Программа для калькулятора в паскале

Содержание

Здравствуйте, начинающие программисты! Из данной статьи вы узнаете как создать программу на Pascal ABC, например, простейший калькулятор.

Заходим в программу Pascal ABC, перед нами открывается чистый лист с названием Program1.pas — это файл программных модулей для написания кода. В дальнейшем его можно компилировать в .exe — исполняемый файл, который будет открывать созданную нами программу.

Для начала назовём нашу программу, к примеру, «Решебник», в коде пишем:

Program reshebnik;

Не забывайте в конце каждой строчки обязательно ставить точку с запятой. Так как мы создаём простейший калькулятор, наш «Решебник» будет вычислять буквально одно действие — сложение двух переменных, то есть a+b=c. Во второй строчке кода объявляем переменные a, b, c и добавляем integer (с англ. — «целое») — уточнение, что a, b, c — целые числа:

Var a, b, c: integer;

Var — в языках программирования означает «переменная».

Теперь создадим блок команд (операторов), который начинается со слова begin и заканчивается словом end. Пишем:

begin

Следующей сторочкой предложим пользователю ввести число. Инструкция Write (с анг. — «запись») выведет на экран монитора наше сообщение, WriteLN — ещё и переведёт курсор в начало следующей стороки, то есть пишем в файле четвёртой строчкой:

WriteLN (‘Введите число A:’);

Пятой строчкой выполним ввод пользователя с помощью команды read (с англ. — «читать»):

ReadLN (a);

То же самое проделаем со вторым числом b:

WriteLN (‘Введите число B:.’);
ReadLN (b);

Выполняем подсчёт введённых переменных. Знак «:=» означает присваивание, присваиваем числу c значение a+b:

Выводим ответ и завершаем блок операторов:

WriteLN (‘Ответ’, c);
end.

Итак, наш «Решебник» готов к использованию. Проверим, как он работает. В Верхнем меню программы Pascal ABC выбираем Программа -> Выполнить.

Читайте также  Пользуясь критерием коши исследовать сходимость последовательности

Program reshebnik;
Var a, b, c: integer;
begin
WriteLN (‘Введите число A:’);
ReadLN (a);
WriteLN (‘Введите число B:’);
ReadLN (b);
c := a+b;
WriteLN (‘Ответ’, c);
end.

Вот и все. Надеюсь, всё понятно. Желаю удачи и хороших результатов!

 Дата публикации: 2011-08-16
Опубликовал: Н.Волков
Последний раз редактировалось: 2018-01-10

Задача

Написать программу, в которой вводятся два операнда Х и Y и знак операции (+, –, /, *). Вычислить результат Z в зависимости от знака. Предусмотреть реакции на возможный неверный знак операции, а также на ввод Y=0 при делении. Организовать возможность многократных вычислений без перезагрузки программа (т.е. построить цикл). В качестве символа прекращения вычислений принять ‘0’.

Решение

Алгоритм решения задачи:

  1. Вводим знак. Если он является символом ‘0’, то прерываем цикл.
  2. Если введенный символ принадлежит к перечисленным, то запрашиваем два числа и выполняем вычисления в зависимости от введенного знака.
  3. Иначе сообщаем о некорректном вводе знака.

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

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

Ссылка на основную публикацию
Adblock
detector