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 16:15

[volvo]

всеравно почемута не работает

Потому, что ты наверняка вводишь так: Число+Число, т.е., между числом и знаком пробела нет... Так не пойдет, компилятор читает число до первого символа табуляции (пробел или #9 или #13). То есть, единственный вариант для тебя -

program pas;
uses crt;
var
  a,b,s:integer;
  c, ch:char;
begin
  write('>');
  read(a); { <-- Читаешь первое число }
  read(ch, c); { <-- пробел между первым числом и знаком, и сам знак }
  readln(ch, b); { <-- пробел между знаком и вторым числом и второе число }

  write(a);
  case c of
    '+':write('+');
  end;
  write(b);
  s:=a+b;
  writeln('=',s);
end.

Вводить надо, соответственно, с пробелами:
2 + 3

P.S. Если с учетом последнего поста, то читать введенные числа в виде символов, и обрабатывать их через Ord(a) - Ord('0') ...

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