Как написать программу в паскале калькулятор

Как создать программу на Pascal ABC. Простейший калькулятор на Паскале

Здравствуйте, начинающие программисты! Из данной статьи вы узнаете как создать программу на 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. Пишем:

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

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

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

То же самое проделаем со вторым числом 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
Опубликовал: Н.Волков
Последний раз редактировалось: 2020-03-07

Источник статьи: http://www.anyaplanet.net/stati/calculatorPascalABC.html

Программа калькулятор

Нужно написать программу-калькулятор на паскале, которая выполняет операции умножения, деления (проверяет, что делить на 0 нельзя), сложения, вычитания, вычисляет целую часть от деления и остаток.

кто знает как это сделать, отзовитесь пожалуйста.

Программа «Калькулятор»
Надо сделать так что, если при не введении ‘+’ программа выходила Program calc; var .

Программа для вопросов, тестов, списков, фоновых изображений. Нужен ли в программе калькулятор?
Создатель — Волобуев Илья Евгеньевич. Программа умеет: 1. Создавать: вопросы тесты списки.

Программа калькулятор (Найти ошибки)
Здравствуйте уважаемые программисты. Мне очень нужна ваша помощь. Вкратце у меня курсовая на тему.

Программа Калькулятор — исправить ошибки
Помогите найти ошибку!))) program kurs; uses crt; function pow(a,x:longint):longint; var.

кто знает как это сделать, отзовитесь пожалуйста.

через оператор выбора case

PS2: Целую часть находите так же.

спасибо, а какой тип переменных задавать?

Добавлено через 47 секунд
спасибочки! все работает!

спасибо, а какой тип переменных задавать?

Добавлено через 47 секунд
спасибочки! все работает!

хорошо, еще раз спасибо за помощь!

Добавлено через 29 минут
еще раз спасибо за помощь!

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Программа-калькулятор
Решил сегодня начать изучать паскаль. Нашел на 1 сайте пару уроков, почитал и решил создать.

Программа калькулятор
Программа для сложения и вычитание двоичных чисел в обратном коде.

Программа калькулятор
Как сделать, чтобы программа не закрывалась, после получения одного результата, допустим я сделал.

Программа калькулятор
Помогите с кодом, для калькулятора Оболочку сделал, но чтоб все работало не знаю как код .

Источник статьи: http://www.cyberforum.ru/pascal/thread176874.html

КАК сделать калькулятор в ПАСКАЛе

Если тебе нужен такой калькулятор, как стандартный виндосовский, то тебе нужен Delphi.
Там просто ставишь кнопки, один Edit (окно ввода и вывода) . И создаешь функции для каждой кнопки.

А если ты хочешь именно на Pascal’е сделать (Turbo,Free,ABC), то считываешь строку, проходишься по ней, разделяешь все на числа и знаки, а потом считаешь.

Самый простейший калькулятор на +, -*, /. (Запускать через Shift+F9)

program name
uses crt;
var a,b,c:integer;
d:string;
begin
write(‘Введите первое число: ‘);
readln(a);
write(‘Введите символ операции:’);
readln(d);
write(‘Введите второе число: ‘);
readln(c);
if d=(‘-‘) then b:= a-b;
if d=(‘+’) then b:= a+b;
if d=(‘/’) then b:= a div b;
if d=(‘*’) then b:= a*b;
writeln(‘Ответ: ‘, b);
readln;
end.
name можешь на своё поменять

Наверное, уже не нужно, но вот программа калькулятора со степенью:

var
a, b, c: double;
d: char;
i: integer;

writeln(‘Калькулятор’);
writeln();
writeln(‘Введите первое число:’);
readln(a);
writeln(‘Введите знак:’);
readln(d);
writeln(‘Введите второе число:’);
readln(b);
writeln();

case d of
(‘+’): writeln(a, ‘+’, b, ‘ = ‘, a + b);
(‘-‘): writeln(a, ‘-‘, b, ‘ = ‘, a — b);
(‘*’): writeln(a, ‘*’, b, ‘ = ‘, a * b);
(‘:’): writeln(a, ‘:’, b, ‘ = ‘, a / b);
(‘/’): writeln(a, ‘/’, b, ‘ = ‘, a / b);
(‘^’):
begin
if b = 0 then
writeln(a, ‘^0 = 1’)
else
if b = 0.5 then
writeln(‘koren iz ‘, a, ‘ = ‘, sqrt(a))
else
if b = 1 then
writeln(a, ‘^1 = ‘, a)
else
if b b do
begin
c := c * a;
i := i — 1;
end;
c := 1 / c;
writeln(a, ‘^(‘, b, ‘) = ‘, c);
end
else
if b >= 1 then
begin
c := a;
i := 1;
while i <> b do
begin
c := c * a;
i := i + 1;
end;
writeln(a, ‘^’, b, ‘ = ‘, c);
end

Источник статьи: http://otvet.mail.ru/question/67421459

Паскаль!Программа Калькулятор

program calc;
var
operation:byte;
a,b:integer;
begin
writeln(‘a’);
read(a);
writeln(‘b’);
read(b);
writeln(‘1 — сложить’);
writeln(‘2 — вычесть’);
writeln(‘3 — разделить’);
writeln(‘4 — умножить’);
read(operation);
case operation of
1: writeln(a+b);
2: writeln(a-b);
3: writeln(a/b);
4: writeln(a*b);
end;
end.

хах)) ) интересно что вы хотели получить в ответ?
готовое решение?
если проблема в написании процедур и функций прикрепите исходник без них)) )

если легко без процедур, напишите)) ) а уж процедуры и функции мы вам напишем

http://pascal.sources.ru/parsing/calc_s.zip
вот есть.. .врядли только преподу вы объясните что это вы сами писали

эммм.. .если это калькулятор. ну судь не в этом
в начале программы вы описываете функции
напр сложение

function sum(a, b: integer): integer;
var
s: integer;
begin
s := a + b;
sum := s;
end;

begin
readln(a, b);
writeln(sum(a, b));
end.

если процедура, то
procedure sum(a, b: integer);
var
s: integer;
begin
s := a + b;
writeln(s);
end;

begin
readln(a, b);
sum(a, b);
end.

как видите ничего сложно.. .сначала описываете все функции и процедуры, а потом в тексте программы просто вызываете их

А с ними не сложнее. Приведи текст программы без процедур и функций, народ в две минуты переведет его внутрь процедур и функций.

program calc;
function add(a,b:real):real; begin add:=a+b end;
function sub(a,b:real):real; begin sub:=a-b end;
function mul(a,b:real):real; begin mul:=a*b end;
function div(a,b:real):real; begin div:=a/b end;
var operation:byte; a,b:real;
begin
writeln(‘a’); read(a);
writeln(‘b’); read(b);
writeln(‘1 — сложить’);
writeln(‘2 — вычесть’);
writeln(‘3 — разделить’);
writeln(‘4 — умножить’);
read(operation);
case operation of
1: writeln(sum(a,b));
2: writeln(sub(a,b));
3: writeln(mul(a,b));
4: writeln(div(a,b));
end;
end.

‘);
textcolor(yellow);
readln(a);
textcolor(9);
writeln(‘> Введите число от 0.

var
a:string;
function primer(s:string):integer;
var
i:integer;
col1,col2,znak:string;
otvet:integer;
begin
for i:=1 to Length(s) do
begin

case s[i] of
‘+’,’-‘,’*’,’/’:
begin
znak:=s[i];
col1:=Copy(s,1,i-1);
col2:=Copy(s,i+1,Length(s)-(Length(col1)+1));
end;
end;
end;
if(znak=’+’)then
otvet:=StrToInt(col1)+StrToInt(col2);
if(znak=’-‘)then
otvet:=StrToInt(col1)-StrToInt(col2);
if(znak=’*’)then
otvet:=StrToInt(col1)*StrToInt(col2);
if(znak=’/’)then
otvet:=Trunc(StrToInt(col1)/StrToInt(col2));
primer:=otvet;
end;
begin
readln(a);
writeln(primer(a));
end.

var
a,c: real;
b: char;
begin
write(‘Введите первое число : ‘);
readln(a);
write(‘Введите действия с числами : ‘);
readln(b);
write(‘Введите второе число : ‘);
readln(c);
case b of
‘+’:a:=a+c;
‘-‘:a:=a-c;
‘/’:a:=a/c;
‘*’:a:=a*c;
else
write(‘Вы вели не правельное действие. ‘)
end;
write(‘Результат : ‘,a:6:2 )
end.

Источник статьи: http://otvet.mail.ru/question/55937617

Как написать программу в паскале калькулятор

02. Кнопочный калькулятор на PascalABC

На этом уроке мы воспользуемся знаниями о технологии ООП (Объектно-ориентированного программирования) создадим простой кнопочный калькулятор.

На вид наш калькулятор будет иметь примерно такой вид:

Итак начинаем

Как я уже отметил в преамбуле, нам понадобится ООП — подход, а значит будем использовать классы и их экземпляры.

В данном случае мы подключим модуль VCL , который отвечает за создание всевозможных форм и их элементов: кнопок, полей ввода, переключателей, текстовых полей.

Для каждого из вышеперечисленных элементов форм в модуле VCL уже имеются готовые классы, поэтому в отличие от предыдущей статьи (об основах ООП), мы сами классы уже создавать не будем, а будем создавать только экземпляры классов.

В блоке описания переменных мы должны перечислить имена всех этих будущих экземпляров:

Что здесь имеем: MainForm — это экземпляр класса Form, т.е. сама форма — сам «ящик» будущей формы,

Bsum — экземпляр класса Button , т.е. кнопки. Это будет кнопка суммирования,

Braz — экземпляр кнопки Разность

Bpr — экземпляр кнопки Произведение

Bdel — экземпляр кнопки Деление

Bres — экземпляр кнопки Результат

Bclean — экземпляр кнопки Очистить

Т1 — экземпляр поля ввода данных

Также нам потребуется переменная » operation » — она будет содержать в себе номер операции (станет ясно ниже), переменная rint — будет хранить целочисленный результат, переменная rr — будет хранить вещественный результат операции, x1, x2 — это операнды, которые над которыми будут производиться арифметические действия.

А теперь само тело программы:

Сначала создаем последовательно экзепляры всех необходимых нам объектов с нужными нам свойствами:

В скобках у экземпляра формы указыны 4 цифры: (отступ x, отступ y, ширина, высота), где отступ x и отступ y — это отступ левого верхнего угла формы от левого верхнего угла экрана.

Для поля ввода, и экземпляров кнопок отступ х и отступ у — это уже отступ от левого верхнего угла самой формы.

Для экземпляров кнопок сразу задаем свойство «Caption» — заголовок, для каждой кнопки задаем свою надпись.

Обработка методов экземпляров

В этой программе мы будем использовать для экземпляров кнопок методы щелчка мышки — » onClick » — дословно переводится при клике.

При возникновении события «Click» мы для каждого экземпляра вызываем свою процедуру:

Теперь осталось описать перечисленные 6 процедур в области описания процедур:

Для обработки щелчка на кнопке Bsum (суммирование):

В этой процедуре мы заносим в переменную x1 содержимое поля ввода (с одновременным переопределением типа из строкового в целочисленный), и сразу же очищаем это поле. Также переменной operation присваиваем код операции суммирования (в нашем случае это 1).

Для обработки щелчка на кнопке Braz (разность):

Аналогично заносим значение поля ввода в переменную х1, очищаем поле и даем код операции: 2.

Для обработки щелчка на кнопке Bpr (произведение):

Аналогично заносим значение поля ввода в переменную х1, очищаем поле и даем код операции: 3.

Для обработки щелчка на кнопке Bdel (деление):

Аналогично заносим значение поля ввода в переменную х1, очищаем поле и даем код операции: 4.

Для обработки щелчка на кнопке Bres (вычисление результата):

При щелчке на кнопке «=» в переменную x2 заносим содержимое поля ввода. К этому времени в переменной х1 уже хранится первое введенное число, поэтому далее производим вычисление заданного действия. Если код операции был равен 1, то делаем суммирование, если 2, то вычитание, если 3, то умножение, если 4, то деление. При этом результат операции будет находиться в вещественной переменной rr .

Но есть одна проблема: в текстовом поле может быть только строковая переменная. А как преобразовать число в строку. Есть в паскале такая функция: inttostr(x) — она превращает целочисленный тип в строковый. Но у нас результат вещественный (т.к. после операции деления результат всегда бывает только вещественным). Поэтому, нам приходится делать промежуточный перевод вещественной переменной в целую:

rint:=round(rr); — мы в данном случае для этого воспользовались функцией округления. При этом, конечно мы жертвуем результатом деления, отсекая его дробную часть. В этом состоит серъезный недостаток данной программы, который мы будем устранять на следующем уроке.

Осталась последняя процедура — процедура очистки текстового поля.

При обработке щелчка на кнопку Bclean (очистка):

Здесь комментарии излишни — и так все ясно.

Теперь программа полностью завершена.

На этом будем завершать этот урок. Надеюсь, все было достаточно понятно.

Источник статьи: http://aaginfo.ru/02_knopochnyy_kalkulyator_na_pascalabc/215/article