Задача: Char. Символы
Описание
Характеристики решённой задачи
Список файлов
Одна из самых первых и самая простая задача. Для тех, кто конкретно отстал. p.s. нет системных модулей, которые нужны на delphi. не забудьте скопипастить их, когда придёте сдавать.
**************************************** ***program e;
var
c1,c2,c3,c4:char;
s:integer;
begin
writeln('vvedite c1,c2,c3,c4');
readln(c1,c2,c3,c4);
s:=1000*(ord(c1)-48)+100*(ord(c2)-48)+10 *(ord(c3)-48)+(ord(c4)-48);
writeln(s);
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.