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