Задача 7 Урок 17
Primary tabs
На вход вашей программы подается строка вида:
<целоечисло><произвольное число пробелов> <арифм.операция> <произвольное число пробелов> <целоечисло>например:
1 + 3или
2 - 12Напишите программу, которая разбирает вычисляет результат этого приложения (сделайте поддержку операций сложения и вычитания).
program U17Z7; var s,str: string; i,a,b,code,j: integer; f:boolean; begin writeln('vvedite stroku'); readln(s); str:=''; i:=1; while (s[i]<>' ') do begin str:=str+s[i]; i:=i+1; end; val(str,a,code); writeln('a=',a); str:=''; while (s[i]=' ') do i:=i+1; if (s[i]='+') then f:=true else f:=false; i:=i+1; writeln(f); while (s[i]=' ') do i:=i+1; for j:=i to length(s) do str:=str+s[j]; val(str,b,code); writeln('b=',b); if(f) then writeln(a+b) else writeln(a-b); readln(); end.
- Log in to post comments
- 499 reads