1 лаба по бройлеру

КК-111. Цыбаков А.А.

ЛАБОРАТОРНАЯ РАБОТА №1

Калькулятор в Turbo Pascal.

Цель работы: Написать программу в Turbo Pascal через Procedure, выполняющую функции калькулятора.

Ход работы:

Program p1;

Uses crt;

Var

q, w, e, r: integer;

Procedure kk(a, b, c, s:integer);

Begin

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

Readln(a,b);

Writeln(‘введите номер операции 1= +, 2= -, 3= /, 4= *’);

Readln(c);

Case c of

1:s:=a+b;

2:s:=a-b;

3:s:=a div b;

4:s:=a*b;

end;

Write(‘ответ равен’, s);

Readln;

Begin

Clrscr;

Kk(q, w, e, r);

Readln;

End.

Начало

Начало

Конец

Конец

Вывод ответа

Вывод ответа

a*b

a*b

a/b

a/b

a-b

a-b

a+b

a+b

Ввод чисел

И операции

Ввод чисел

И операции

Case

Case

Блок схема.