Исходник калькулятора для паскаля, который умеет складывать, вычитать, умножать, находить корень, факториал и степень числа, а также делить в обычном и привычном для нас виде и в целых числах с остатком. Использованы операторы 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