Исходник небольшого калькулятора с выбором на Паскаль

Исходник небольшого калькулятора с выбором на Паскаль

Исходник калькулятора для паскаля, который умеет складывать, вычитать, умножать, находить корень и квадрат числа, а также делить в обычном и привычном для нас виде и в целых числах с остатком. Использованы операторы sqrt, sqr, mod и div, +, -, /, *. Теперь он выполняет те функции, которые Вам надо, а не выводит всё сразу. Данная функция реализована с помощью оператора условия if. Имеет не скомпилированный формат для редактирования .pas. Открывается в таких программах, как Pascal ABC, Pascal ABC.Net и Turbo Pascal. В программе есть пояснительные комментарии к каждой строке.

Скачать: mini-kalkulyator-c-vyborom.pas

Исходный код калькулятора на паскале:

var a, b, sum, raz, pro, c, n: integer; // Задаём переменные, их типы
del: real;

begin
  writeln (' Введите требуемое действие:' ); // Диалог с пользователем
  writeln (' 1 - сложение, 2 - вычитание, 3 - умножение, 4 - простое деление, 5 - деление с остатком, 6 - квадрат, 7 - кв. корень');  
  readln (n); // считывание действия
  writeln ('Введите числа для операции, если корень или квадрат, то второе число - любое');
  readln (a, b); // считываем два числа
    if n = 1 then begin // Если n = 1 (сложение), то начало д.
    sum:=a+b; // складываем числа
    writeln ('сумма - ', sum); // выводим сумму
    end; //конец д.
          if n = 2 then begin // Если n = 2 ( вычитание), то начало д.
          raz:= a-b; //вычитаем
          writeln ('разность - ', raz); // выводим разность
          end; // конец д.
                if n = 3 then begin // Если n = 3 (умножение), то начало д.
                pro:=a*b; // умножаем
                writeln ('произведение - ', pro); // выводим произведение
                end; // конец действия.
                {Дальше комментарии к оператору if отсутствуют, т.к. они почти теже}
                      if n = 4 then begin
                      del:=a/b; // выполняем простое деление
                      writeln ('простое деление - ', del); // выводим обычное деление
                      end;
                            if n = 5 then begin
                            c:=a div b; //делаем целочисленное деление
                            a:= a mod b; // находим остаток, при этом меняем значение a
                            writeln ('целочисленное деление - ', c); // выводим результат целочисленного деления
                            writeln ('остаток - ', a); // выводим остаток
                            end;
                               if n = 6 then begin 
                               pro:= sqr (a); // находим квадрат первого числа
                               writeln ('Квадрат a равен ', pro); // выводим квадрат перового числа 
                               end;
                                 if n = 7 then begin
                                  del:= sqrt (a); // Находим квадратный корень первого числа
                                  writeln ('Кв. корень равен ',del); // Выводим кв. корень
                                  end; //
                                  
                                  
end. //конец программы


Скачать: mini-kalkulyator-c-vyborom.pas
Дата: 2011-12-28 19:26:27   Просмотров: 33037

Теги: калькулятор Паскаль исходник Pascal