Написать Калькулятор с помощью процедур и функций - Turbo Pascal

  1. Написать программу. Калькулятор с помощью процедур и функций


textual

Код к задаче: «Написать Калькулятор с помощью процедур и функций - Turbo Pascal»

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.

СДЕЛАЙТЕ РЕПОСТ

8   голосов, оценка 4.000 из 5



Похожие ответы
  1. Есть процедура на Pascal (посчитует суму в кажой строке матрицы)

  1. 1) Написать функцию с параметрами, обеспечивающую вычисление суммы элементов, находящихся ниже главной диагонали.

  1. Используя подсистему прерываний написать программу, которая выводит на экран информацию о параметрах НЖМД. $ 13 - дисковые службы Перечень функций (номер функции при вызове прерывания должен содержаться в регистре АН): 0 - сброс дисковой системы; 1 - определение состояния диска; 2 - чтение секторов диска; 3 - запись секторов диска; 5 - форматирование дорожки; 8 - определение текущих параметров диска; 10 - проверка готовности диска; При задании входных параметров обычно используется следующая схема: АН = номер функции; AL = количество секторов (1-128) СН - количество цилиндров (0-1023) CL = номер сектора (1-17) DH = номер головки (0-15) DL = номер дисковода (0 = А :, 1 = 2-й флоппи; $ 80 = жесткий диск 0, $ 81 = жесткий диск 1). возвращает: CF = 0 в случае успеха, = 1 в случае ошибки.

  1. написать две программы чтобы в конце программ выдалось это изображение $ и ромб

  1. Помогите решить интересную задачу, в нете искал и не смог найти нормального ответа. ЗАранее Спасибо! Написать подрограмму для логического оператора AND, без использования логических операторов . Напривер a and b .

  1. Добрый вечер всем! Помогите, пожалуйста, первокурснице-студентке) Идет такое задание: Написать программу для вычисления заданного выражения и вывода на экран полученного значения, используя заданный циклический оператор While: - 0,13+ 0,16 -0,19+…-0,31 Написала так, но ответ неверный( Когда считаешь вручную ответ идет -0,22, а по программе просто 0,22. Подскажите, пожалуйста, в чем моя ошибка.

  1. Совершенно не понимаю как делать цикл, перерыл весь интернет, но как решать до меня дойти не смогло. Прошу помощи в написании программы. Вычислить с погрешностью E=0.1E-4, если сумма где X=0.71

  1. Помогите написать программу, которая вычисляет среднее арифметическое ненулевых элементов введенного с клавиатуры массива целых чисел, только чтоб в одной строке... Рекамендуемый вид экрана: Введите элементы массива (10 целых чисел) в одной строке и нажмите . -> 23 0 45 -5 12 0 -2 30 0 64 Сумма элементов массива: 184 Количество ненулевых элементов: 7 Среднее арифметическое ненулевых элементов: 23.86

  1. Написать не рекурсивную функцию, которая используя стек, вычисляет значение F(m,n) для любой пары положительных чисел n и m за соотношением: Не могу совсем разобраться с задачей, не соображаю даже с чего мне начать. Уравнение через if'ы смогу решить но что такое стеки и как их сюда прикрутить не знаю.