4+4=8, Программа Опции

[Rossi]

При в воде на экрна 4+4 после нажатия на ентер все должно посщитатся и вывести в таком формате 4+4=8.
Правильно ли я реализовал эту программу ?

uses crt;
var a,b,s,c:integer;
	begin
	write('>'); readln(a,c,b);
	write(a);
	s:=a+b;
		case c of
		'+':write('+');
		end;
	write(b);	
	writeln('=',s);
	end.

Сообщение отредактировано: Rossi - 20.06.2007 20:15

[volvo]

только с пробелами иначе не работает

Очень интересно... Тогда смотри сюда:


А в своем примере набери 3, потом подними глаза выше, посмотри на название темы, и попробуй сделать так, чтобы посчиталось 4+4 ...

P.S.

договорились только без пробелов

То есть, МОЮ программу, которая выполняет ТО ЖЕ самое, что и твоя (и это написано в посте №13), только с сохранением возможности редактирования, ты гоняешь с пробелами, и когда она не работает, ты меня в это тыкаешь носом, а когда ТВОЯ программа не работает по той же (да и не только, см. выше) причине - то это ее несомненный плюс?


Сообщение отредактировано: volvo - 20.06.2007 21:56

[compiler]

я тестировал твою программу с пробелами(как было сказано в 9 посте)...

не работает... да и не только

вторая причина не есть причина по которой она не работает... возможность редактирования может и хорошо, но необезательна(см. заданее)...

думаю тема закрыта... четыре сложили с четырьмя

[Malice]

Вот так я думаю вернее будет

var s:string;
begin
write ('>');
readln (s);
while pos (' ',s)>0 do delete (s,pos(' ',s),1);
if s='4+4' then writeln ('4 + 4 = ', 4+4) else
writeln ('Введенные данные не соответствуют заданию..');
end.