Простой калькулятор в Pascal

Тип статьи:
Авторская
Источник:
Текст статьи:

Ниже приведён пример программы простого калькулятора. Программа получает от пользователя 2 произвольных числа, знак математической операции (+ — * / %) и выполняет соответствующую операцию. Затем выводит ответ. После программа спрашивает повторить ли операцию.

Использованы типы переменных real (дробные числа) и string (для ввода знаков)

Условный операторif

Цикл while

Пример программы написаной на языке Pascal в среде Pascal ABC.Net


var
a, b, c: real;//Дробный тип переменных
d, e: string;//символьный тип переменных
begin
e := 'да';//Объявляем начальное значение переменной, отвечающей за цикл
while e = 'да' do //начало цикла
begin
writeln('Введите первое число');//вывод на экран сообщения
readln(a);//чтение с клавиатуры переменной
writeln('Введите второе число');//вывод на экран сообщения
readln(b);//чтение с клавиатуры переменной
writeln('Введите знак математической операции');//вывод на экран сообщения
readln(d);//чтение с клавиатуры переменной символьной(знак математической операции)
if d = '+' then//условие если d имеет значение "+", тогда
c := a + b;//c примет значение а+b
if d = '-' then
c := a — b;
if d = '*' then
c := a * b;
if d = '/' then
c := a / b;
if d = '%' then
c := a / 100 * b;
writeln('= ', c);//Вывод на экран переменной с
writeln('Повторить? да/нет');//Выводим на экран сообщение
readln(e);//считываем переменную, отвечающую за цикл
end;//конец цикла
readln;//чтобы программа не закрывалась сама
end.


Исходник программы можно скачать ниже.

  Калькултор.pas


Статью и программу подготовил

учитель информатики

МБОУ «Школа №7» г. Богородск

Лосев Антон Владимирович

Гость
08:48
Надо убрать строку
readln;//чтобы программа не закрывалась сама. Из-за неё при ответе да рограмма закрывается
Загрузка...

Подготовка к ГИА


Подпишись