Pascal Калькулятор посложнее // Case Of // Sqrt // Mod // Div

[deadboy]

Всем Привет, опять я начал чутка активничать на этом интернет портале, и так приступим.
Если вы знакомы с базовыми навыками Pascal то знаете функцию Case Of и Sqrt
Sqrt - Квадратный корень
Сase of- Тоже самое с switch в C
Объясняю что и как устроено.
В нашей программе есть 6 видов действий 4 основных действия [+] [-] [*] [/] и два новых [Остаток] [Квадратный корень √]
Открыв спойлер, Вы увидите что код адаптирован под все языки ЯП. То есть алгоритм работает на всех ЯП. Думаю вы разберетесь
Перейдем в спойлер

program Calc; // Это название программы, не обязательно
 
var a, b: real; 
var i, c, d: integer; // Что касается перемен, все стандартно, но присутствие в программе ОБЯЗАТЕЛЬНО
begin
  writeln('Калькулятор.');
  writeln('1 - сумма двух чисел;'); 
  writeln('2 - разность двух чисел;'); 
  writeln('3 - произведение двух чисел;'); 
  writeln('4 - целая часть от деления;'); 
  writeln('5 - остаток от деления;');
  writeln('6 - квадратный корень числа.');
[COLOR="#DAA520"]// Это все довольно легко т.к WriteLn и ReadLn - 6-7 класс Информатика[/COLOR]
  write('Введите цифру: '); 
  readln(i);
  case i of [COLOR="#DAA520"]// Это функция которую мы прошли в прошлом уроке, она нам пригодится :))[/COLOR]
    1: 
      begin
        write('Введите два числа: ');
        read(a, b);
        writeln(a + b);
      end;
    2: 
      begin
        write('Введите два числа: ');
        read(a, b);
        writeln(a - b);
      end;
    3: 
      begin
        write('Введите два числа: ');
        read(a, b);
        writeln(a * b);
      end;
    4: 
      begin
        write('Введите два числа: ');
        read(c, d);
        writeln(c div d); // Это наше частное с остатком
      end;
    5: 
      begin
        write('Введите два числа: ');
        read(c, d);
        writeln(c mod d);  // Это наш остаток
      end;
    6: 
      begin
        write('Введите число: ');
        read(c);
        writeln(sqrt(c):3:3); // А это наш квадратный корень, новое для нас
      end;
  else writeln('Ошибка.');
  end;
end.

В принципе разобраться здесь дело пяти минут, но если вы не очень поняли принцип работы case of, mod, div, sqrt, программа для вас !)
Если дошел до конца, спасибо что ты прочитал этот урок, я очень сильно старался!) Ставь лайкос) И обязательно жди новых уроков!!)