
20.06.2007, 15:54
|
|
Участник форума
Регистрация: 10.08.2006
Сообщений: 147
С нами:
10395573
Репутация:
94
|
|
Сообщение от NetMan
Я же дал новый рабочий код!
Код:
uses crt;
var
a,b,c:real;
action:char;
begin
write('a='); readln(a);
write('b='); readln(b);
write('action='); readln(action);
case action of
'+':c:=a+b;
'-':c:=a-b;
'/':c:=a/b;
'*':c:=a*b;
end;
writeln(a:1:3,action,b:1:3,'=',c:1:3);
readln;
end.
да нет чел, в твоем коде получается так:
a= //вводим первое число
b= //вводим второе число
жмем Enter и получаем
c:= //ответ
а нужно так
a:= 4+4 //т.е. вводим не по одному числу, а сразу все вместе с знаком +,-,/,*, все одной строкой, чтоб получилосьтак
a:= 25+26
жмем Enter получаем
c:=51
|
|
|