Добавил:
Источник:
Uman
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:01 семестр / Задачи на Paskal / Char. Символы / 003
.txt Выкладываю задачу, в которой вводишь выражение со сложением и вычитанием, а он выдает результат как доисторический калькулятор.
********************************************program Project1;
{$APPTYPE CONSOLE}
var ch:char;
d,s,sign,sum,k:integer;
begin
{ TODO -oUser -cConsole Main : Insert code here }
s:=0; sign:=1; sum:=0;
writeln('vvodite chisla');
repeat
read(ch);
case ch of
'+': begin sum:=sum+k; sign:=1 ; s:=0;
end;
'-': begin sum:=sum+k; sign:=-1; s:=0;
end;
'0'..'9':begin
d:=(ord(ch)-ord('0'));
s:=10*s+d; k:=sign*s;
end;
end;
until ch=#13;
sum:=sum+k;
writeln(sum);
end.
********************************************program Project1;
{$APPTYPE CONSOLE}
var ch:char;
d,s,sign,sum,k:integer;
begin
{ TODO -oUser -cConsole Main : Insert code here }
s:=0; sign:=1; sum:=0;
writeln('vvodite chisla');
repeat
read(ch);
case ch of
'+': begin sum:=sum+k; sign:=1 ; s:=0;
end;
'-': begin sum:=sum+k; sign:=-1; s:=0;
end;
'0'..'9':begin
d:=(ord(ch)-ord('0'));
s:=10*s+d; k:=sign*s;
end;
end;
until ch=#13;
sum:=sum+k;
writeln(sum);
end.