Исходник калькулятора на Паскале с факториалом, степенью и другими функциями

Исходник калькулятора на Паскале с факториалом, степенью и другими функциями

Исходник калькулятора для паскаля, который умеет складывать, вычитать, умножать, находить корень, факториал и степень числа, а также делить в обычном и привычном для нас виде и в целых числах с остатком. Использованы операторы sqrt, for, mod и div, +, -, /, *. Этот калькулятор, как и калькулятор 2-ой версии выполняет только нужные функции. Данная возможность реализована с помощью оператора условия if. Для реализации функций степени и факториала использован цикл с параметром - for. Имеет не скомпилированный формат для редактирования .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 - степень числа a^n, 7 - кв. корень, 8 - факториал');  
  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:=1; // pro присваиваем 1
                               for c:= 1 to b do // см исходник "степень числа" и урок №6
                                pro:=pro*a; // см. исходник "степень числа"
                               writeln ('Степень a^n равна ', pro); // выводим степень числа 
                               end;
                                 if n = 7 then begin
                                  del:= sqrt (a); // Находим квадратный корень первого числа
                                  writeln ('Кв. корень равен ',del); // Выводим кв. корень
                                  end; //
                                    if n = 8 then begin
                                      raz:=1; // присваиваем raz 1
                                      for c:=1 to a do // заходим в цикл FOR (уроки 5,6), присваиваем с от 1 до n (с выполняет роль i)
                                        raz:=raz*c; // умножаем наш результат на i
                                      writeln (raz); // выводим результат
                                      end;                          
end. //конец программы


Скачать: mini-kalkulyator-c-vyborom.pas
Дата: 2012-01-15 11:03:18   Просмотров: 13729

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