Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

Блок схема калькулятор и программа на Паскале

Ответ оставил Гость

program kalkulator;

uses crt;

var    a,b,c:real; x:integer;

Begin

clrscr;

Writeln(введите 2 числа);    

Readln(a,b);    

Writeln(выберете действие);    

Writeln(1-"+" 2-"-" 3-"*" 4-"/");         

Readln(x);         

case x of    

1:begin c:=a+b; Writeln(c:2:2); end;    

2:begin c:=a-b; Writeln(c:2:2); end;    

3:begin c:=a*b; Writeln(c:2:2); end;    

  elsebegin  c:=a/b; Writeln(c:2:2);

end;    

end;    

Readln;    

end.