26.11.2009, 23:30
|
|
Познающий
Регистрация: 15.07.2009
Сообщений: 71
С нами:
8854881
Репутация:
35
|
|
Сообщение от Fireblade
решил вернуться и повторить пройденое в паскале. Хотел написать элементарный калькулятор, да вылазиет ошибка: "Error in expression"
вот код
Код:
program calc;
uses crt;
var a,s,b:integer; c:char;
begin
writeln('введите 1 число');
readln(a);
writeln('введите знак дейчтвия');
readln(c);
writeln('введите 2 число');
readln(b);
case c of
+ : s:=a+b;
- : s:=a-b;
* : s:=a*b;
/ : s:=a/b;
end;
writeln('ответ=',s);
repeat until keypressed;
end.
Вообще то символы в ковычки брать надо
Код:
program calc;
uses crt;
var
a,s,b: integer;
c: char;
begin
writeln('введите 1 число');
readln(a);
writeln('введите знак действия');
readln(c);
writeln('введите 2 число');
readln(b);
case c of
'+' : s:=a+b;
'-' : s:=a-b;
'*' : s:=a*b;
'/' : s:=a div b; //s - integer!
end;
writeln('ответ=',s);
repeat until keypressed;
end.
|
|
|