Написать Калькулятор с помощью процедур и функций - Turbo Pascal
Формулировка задачи:
Написать программу. Калькулятор с помощью процедур и функций
Решение задачи: «Написать Калькулятор с помощью процедур и функций»
textual
Листинг программы
program CalculatoR; var a,b,c: integer; Procedure add(a:integer;b:integer); begin writeln('Sum a+b= ',a+b); end; Procedure minus(a:integer;b:integer); begin writeln('Otnayt a-b= ',a-b); end; Procedure mnoz(a:integer;b:integer); begin writeln('Ymnoz a*b= ',a*b); end; Procedure Deleum(a:integer;b:integer); begin writeln('Del a/b= ',a div b); end; begin writeln(' ***Calculator***'); writeln('Viberete deystvie 1-Dodat 2-Otnayt 3-Ymnoz 4-Delit'); readln(c); if c=1 then begin writeln('Vvedite dva chisla'); readln(a,b); add(a,b); end; if c=2 then begin writeln('Vvedite dva chisla'); readln(a,b); minus(a,b); end; if c=3 then begin writeln('Vvedite dva chisla'); readln(a,b); mnoz(a,b); end; if c=4 then begin writeln('Vvedite dva chisla'); readln(a,b); Deleum(a,b); end; if c<1 then writeln('Error!'); if c>4 then writeln('Error!'); readln; end.
Объяснение кода листинга программы
- Создается программа CalculatoR.
- Объявляются переменные a, b, c типа integer.
- Определяются процедуры add, minus, mnoz, Deleum.
- Выводится приглашение для ввода данных.
- В цикле while считываются данные, пока c не станет больше 4.
- Если c равно 1, выводится приглашение для ввода двух чисел и вызывается процедура add.
- Если c равно 2, выводится приглашение для ввода двух чисел и вызывается процедура minus.
- Если c равно 3, выводится приглашение для ввода двух чисел и вызывается процедура mnoz.
- Если c равно 4, выводится приглашение для ввода двух чисел и вызывается процедура Deleum.
- Если введенное значение c меньше 1 или больше 4, выводится сообщение об ошибке.
- Выводится завершающее сообщение.
- Программа завершается.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д