1. Программа Калькулятор Паскаль Abc
2. Программа Калькулятор Паскаль

• [Статья] Калькулятор на Pascal! Delphi Форум. Ну и программа написана еще для того.
• Это видео расчитано для тех, кто знает основы языка Pascal, и разбирается в условиях.

Хах)) ) интересно что вы хотели получить в ответ? Готовое решение? Если проблема в написании процедур и функций прикрепите исходник без них)) ) если легко без процедур, напишите)) ) а уж процедуры и функции мы вам напишем вот есть.врядли только преподу вы объясните что это вы сами писали эммм.если это калькулятор.ну судь не в этом в начале программы вы описываете функции напр сложение function sum(a, b: integer): integer; var s: integer; begin s:= a + b; sum:= s; end; var a, b: integer; begin readln(a, b); writeln(sum(a, b)); end.

Программа Калькулятор Паскаль Abc

Для создания программы калькулятор необходимо реализовать. Программа-калькулятор на Pascal.

Программа Калькулятор Паскаль

Если процедура, то procedure sum(a, b: integer); var s: integer; begin s:= a + b; writeln(s); end; var a, b: integer; begin readln(a, b); sum(a, b); end. Как видите ничего сложно.сначала описываете все функции и процедуры, а потом в тексте программы просто вызываете их. А с ними не сложнее. Приведи текст программы без процедур и функций, народ в две минуты переведет его внутрь процедур и функций.

Program calc; function add(a,b:real):real; begin add:=a+b end; function sub(a,b:real):real; begin sub:=a-b end; function mul(a,b:real):real; begin mul:=a.b end; function div(a,b:real):real; begin div:=a/b end; var operation:byte; a,b:real; begin writeln('a'); read(a); writeln('b'); read(b); writeln('1 - сложить'); writeln('2 - вычесть'); writeln('3 - разделить'); writeln('4 - умножить'); read(operation); case operation of 1: writeln(sum(a,b)); 2: writeln(sub(a,b)); 3: writeln(mul(a,b)); 4: writeln(div(a,b)); end; end. Uses crt; var a,b,res: real; op: char; begin textbackground(0); clrscr; textcolor(9); writeln(' Введите действие: '+', '-', '.'

, '/'); textcolor(yellow); readln(op); textcolor(9); writeln(' Введите число от 0.' ); textcolor(yellow); readln(a); textcolor(9); writeln(' Введите число от 0.' ); textcolor(yellow); readln(b); case op of '+': res:=a+b; '-': res:=a-b; '.'

: res:=a.b; '/': res:=a/b; else begin textcolor(12); writeln('.Eror.' ); writeln('.Eror.' ); writeln('.Eror.' ); writeln('.Eror.'

Бейня иосиф степанович проповеди. ); writeln('.Eror.' ); exit; end; end; writeln('Ответ: ', res:6:0); end.