Как составить калькулятор в программе паскаль - Сайт, где вы сможете решить свои вопросы

Программы »

Статьи

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

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
Опубликовал:
Последний раз редактировалось:2021-10-28

Источник

§25. Программа «Калькулятор».

В данном параграфе предлагаю написать программу «Калькулятор». Эта программа будет похожа на калькулятор, который есть в любом Windows-е, в наборе стандартных программ. Соответственно, в ней будут кнопочки, поля, отображающие вводимые числа, и поле для вывода результата. Написав такую программу, мы получим хороший опыт реализации графического интерфейса.

В дальнейшем, если вы станете программистами, то писать кнопочки, поля и вообще весь графический интерфейс, который присущ операционной системе Windows, вам, скорее всего, не придётся, т.к. они есть уже готовые в любом современном языке программирования. Однако сейчас мы пропишем весь графический интерфейс калькулятора «от и до». А так же представим себе, что мы пишем полноценную программу, которая должна перемещаться мышкой по экрану. Всё это не только для того, что бы получить опыт, но и для того, что бы ощутить все преимущества, предоставляемые фирмами разработчиками современных языков.

И так приступим к программированию. Для начала определимся, как должен выглядеть наш калькулятор:

Думаю, что принцип работы калькулятора объяснять не надо, поясню только назначение двух кнопок «<-» – кнопка стирает последний введённый символ при вводе числа. Т.е. если пользователь ошибся, то нажимая эту кнопку, он сможет удалять ошибочно введённые символы. Кнопка «С» – всё сбрасывает, что бы можно было снова вводить новые числа и производить над ними новое действие.

Так же сформулируем в виде тезисов элементы графического интерфейса, которые должны присутствовать в программе:

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

Весь процесс программирования данной программы разделим на четыре этапа. Для начала напишем программу, которая будет просто выводить на экран наш калькулятор, и не будет выполнять ни каких действий. Другими словами выведем графическую оболочку калькулятора на экран. Затем будем добавлять в неё различные процедуры и функции, реализующие графический интерфейс, а после этого добавим процедуры реализующие назначение калькулятора. Последним этапом будет тестирование программы. На этом этапе могут проявиться какие либо ошибки и «глюки», которые необходимо будет устранить.

Рассмотрим все этапы последовательно отдельно друг от друга. Далее будут приведены рассуждения и получившийся код. Код будет приведён только тот, который относится к данному этапу и данным рассуждениям. Соответственно код, который уже написан, приводиться не будет, и будет заменён многоточиями. Настоятельно рекомендую параллельно чтению книги собирать код программы в PascalABC.NET, и тестировать его каждый раз по мере появления нового кода. В таком случае вы прочувствуете на себе весь процесс создания программы и убедитесь, что всё это не пустые слова, а результат реальной работы.

Этап первый, рисуем графическую оболочку калькулятора. Выполнить данный этап необходимо с учётом того, что далее нам необходимо будет реализовать графический интерфейс.

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

Т.к. калькулятор будет перемещаться по экрану, то все координаты должны быть относительными, и каждый раз при перемещении они должны уточняться. Для этого создадим ещё две переменные содержащие координаты левого верхнего угла калькулятора.

Так же создадим процедуру заполнения координатами массива объектов, процедуры рисования и стирания калькулятора, а так же отдельную процедуру прорисовки полей ввода вывода. Поля ввода вывода надо будет перерисовывать при их заполнении, каждый раз при вводе нового символа. Поэтому эту процедуру необходимо прописать отдельно.

Код, написанный на первом этапе, будет следующий:

program Kalkulyator;

uses GraphABC;

type TObyekt = record//Тип объектов управления калькулятора

x1,y1,x2,y2:integer;//Координаты объекта

sStr:string; end;//Надпись на кнопке или содержание полей ввода/вывода

const RKn=20;//Размер кнопок

var X0,Y0:integer;//Координаты левого верхнего угла калькулятора

//Массив объектов управления калькулятором

Ob:array [1..22] of TObyekt;

//1..19 – кнопки; 20..22 – поля ввода вывода

procedure UtochneniyeKoordinatOb;//Уточнение координат объектов

var x,y:integer;

begin

y:=Y0+5;

x:=X0+5;

for var i:=1 to 19 do

begin

Ob[i].x1:=x; Ob[i].y1:=y;

Ob[i].x2:=Ob[i].x1+Rkn; Ob[i].y2:=Ob[i].y1+RKn;

x:=x+RKn+5;

if (i mod 4) = 0 then

begin

y:=y+RKn+5;

x:=X0+5;

end;

Ob[19].x2:=Ob[19].x2+5+Rkn;

for var i:=20 to 22 do

begin

Ob[i].x1:=X0+140; Ob[i].y1:=Y0+5+Round((i-19)*120/3–120/3+5);

Ob[i].x2:=X0+295; Ob[i].y2:=Y0+5+Round((i-19)*120/3–5);

end;

procedure DrawPolya;

begin

SetBrushColor(clWhite);

for var i:= 20 to 22 do

Rectangle(Ob[i].x1,Ob[i].y1,Ob[i].x2,Ob[i].y2);

end;

procedure DrawKalkulator;

begin

//Рисуем контур калькулятора

SetBrushColor(clLightGray);

Rectangle(X0,Y0,X0+300,Y0+130);

Line(X0+105,Y0,X0+105,Y0+130);

//Уточняем координаты кнопок и полей

UtochneniyeKoordinatOb;

//Рисуем кнопки

SetBrushColor(clAzure);

for var i:=1 to 19 do

begin

Rectangle(Ob[i].x1,Ob[i].y1,Ob[i].x2,Ob[i].y2);

TextOut(Ob[i].x1+Round((Ob[i].x2-Ob[i].x1)/2–

TextWidth(Ob[i].sStr)/2),Ob[i].y1+2,Ob[i].sStr);

end;

//Рисуем поля для ввода/вывода чисел

DrawPolya;

end;

procedure ClearKalkulator;

begin

SetBrushColor(clWhite);

FillRectangle(X0,Y0,X0+300,Y0+130);

end;

//Тело основной программы

begin

//Инициализируем начальные параметры

X0:=100; Y0:=10;

SetPenColor(clBlue); //Цвет контуров калькулятора и объектов

//Заполняем строки в массиве объектов управления

Ob[1].sStr:=‘7’; Ob[2].sStr:=‘8’; Ob[3].sStr:=‘9’; Ob[4].sStr:=‘/’;

Ob[5].sStr:=‘4’; Ob[6].sStr:=‘5’; Ob[7].sStr:=‘6’; Ob[8].sStr:=‘*’;

Ob[9].sStr:=‘1’; Ob[10].sStr:=‘2’; Ob[11].sStr:=‘3’; Ob[12].sStr:=‘-‘;

Ob[13].sStr:=‘0’; Ob[14].sStr:=‘+/-‘; Ob[15].sStr:=‘.’; Ob[16].sStr:=‘+’;

Ob[17].sStr:=‘<-‘; Ob[18].sStr:=‘C’; Ob[19].sStr:=‘=’;

Ob[20].sStr:=”; Ob[21].sStr:=”; Ob[22].sStr:=”;

//Рисуем калькулятор

DrawKalkulator;

end.

Этап второй, элементы графического интерфейса.

Для начала напишем функцию, определяющую порядковый номер объекта, над которым произошло событие нажатия или отпускания кнопки мыши. Если событие произошло вообще не над калькулятором, то функция должна выдавать ноль, если над калькулятором, но не над объектом, то – 23. В качестве параметров должны передаваться координаты, где произошло событие. Далее код функции:

//Определяет, над каким объектом произошло событие нажатия или отпускания

function OprOb(x,y:integer):byte;

begin

Result:=0;//Событие произошло не над калькулятором

//Если событие произошло над кальклятором, но не над объектом

if (x>=X0) and (x<=X0+300) and (y>=Y0) and (y<=Y0+130) then Result:=23;

//Если событие произошло над калькулятором

for var i:=1 to 22 do

if (x>Ob[i].x1) and (y>Ob[i].y1) and

(x<Ob[i].x2) and (y<Ob[i].y2) then Result:=i;

end;

Перетаскивание калькулятора по экрану. Создадим переменную с именем Peretaskivaniye, которая будет хранить положение стрелки мыши в момент нажатия на калькуляторе (поля dx и dy) и будет иметь поле логического типа Najatiye, которое будет переводиться в True если нажатие произошло на калькуляторе (функция OprOb выдаст 23) и переводиться в False каждый раз как будет клавиша отпускаться. При перемещении мышки по экрану, если Peretaskivaniye.Najatiye=True, то калькулятор будет перемещаться.

Далее получившийся код:

…………………………….

Var Peretaskivaniye:record //Переменная для реализации перетаскивания

//калькулятора по экрану

Najatie:boolean;//Произошло ли нажатие на калькуляторе

dx,dy:integer; end;//Положение мышки в момент нажатия

………………………………………..

procedure MouseDown(x,y,mb:integer);

var NajOb:byte;//Номер нажатой клавиши

begin

if mb=1 then //Если нажата левая кнопка мыши

begin

NajOb:=OprOb(x,y);

if NajOb=23 then

begin

Peretaskivaniye.Najatie:=true;

Peretaskivaniye.dx:=x-X0;

Peretaskivaniye.dy:=y-Y0;

end;

procedure MouseUp(x,y,mb:integer);

begin

Peretaskivaniye.Najatie:=false;

end;

procedure MouseMove(x,y,mb:integer);

begin

if Peretaskivaniye.Najatie then

begin

ClearKalkulator;

X0:=x-Peretaskivaniye.dx;

Y0:=y-Peretaskivaniye.dy;

DrawKalkulator;

end;

//Тело основной программы

begin

………………………………..

//Привязываем события к обработчикам

OnMouseDown:=MouseDown;

OnMouseUp:=MouseUp;

OnMouseMove:=MouseMove;

end.

Подсвечивание нажатой клавиши. Так же как и в предыдущем случае, создадим переменную Podsvechivaniye, которая будет содержать в себе поле Ob – номер объекта на котором произошло нажатие, и поле Najatiye логического типа, которое переводиться в True, если произошло нажатие на объекте и в False всегда при отпускании кнопки мыши.

Далее код:

……………………………….

Var Podsvechivaniye:record

Ob:byte;//Номер объекта на котором было нажатие

Najatiye:boolean;end;//Если объект подсвечен, то True

……………………………….

procedure MouseDown(x,y,mb:integer);

var NajOb:byte;//Номер нажатой клавиши

begin

if mb=1 then //Если нажата левая кнопка мыши

begin

………………………………………..

if (NajOb>=1) and (NajOb<=19) then//Подсвечиваем кнопки

begin

Podsvechivaniye.Najatiye:=true;

Podsvechivaniye.Ob:=NajOb;

SetBrushColor(clLightBlue);

Rectangle(Ob[Podsvechivaniye.Ob].x1,Ob[Podsvechivaniye.Ob].y1,

Ob[Podsvechivaniye.Ob].x2,Ob[Podsvechivaniye.Ob].y2);

TextOut(Ob[Podsvechivaniye.Ob].x1+

Round((Ob[Podsvechivaniye.Ob].x2-Ob[Podsvechivaniye.Ob].x1)/2–

TextWidth(Ob[Podsvechivaniye.Ob].sStr)/2),

Ob[Podsvechivaniye.Ob].y1+2,Ob[Podsvechivaniye.Ob].sStr);

end;

procedure MouseUp(x,y,mb:integer);

begin

………………………….

if Podsvechivaniye.Najatiye then//Убираем подсветку с кнопки

begin

Podsvechivaniye.Najatiye:=false;

SetBrushColor(clAzure);

Rectangle(Ob[Podsvechivaniye.Ob].x1,Ob[Podsvechivaniye.Ob].y1,

Ob[Podsvechivaniye.Ob].x2,Ob[Podsvechivaniye.Ob].y2);

TextOut(Ob[Podsvechivaniye.Ob].x1+Round((Ob[Podsvechivaniye.Ob].x2-

Ob[Podsvechivaniye.Ob].x1)/2–

TextWidth(Ob[Podsvechivaniye.Ob].sStr)/2),

Ob[Podsvechivaniye.Ob].y1+2,Ob[Podsvechivaniye.Ob].sStr);

end;

……………………………………..

Заполнение полей ввода вывода. Числа, над которыми мы будем производить вычисления, будут содержаться в поле sStr в 20-ом и 21-ом элементах массива Ob. В 22-ом элементе будет содержаться результат вычислений. Поле sStr имеет тип String, поэтому при его заполнении необходимо контролировать вводимые данные, т.к. при переводе её в тип Real функцией StrToFloat может возникнуть ошибка. В нашем случае при нажатии цифровых кнопок ничего другого не будет введено кроме этой цифры. Однако пользователь может нажать несколько раз на точку. Соответственно если была введена уже одна точка, то вторая уже не должна быть введена. Так же необходимо сказать, что в нашем поле может содержаться не более 20 символов. Этот аспект тоже необходимо контролировать. Добавление нового символа в строку будем производить при отпускании левой клавиши мыши.

Сейчас мы не будем прописывать возможность ввода данных с клавиатуры, однако необходимо предусмотреть такую возможность. Поэтому напишем отдельную процедуру заполнения полей, которая будет контролировать вводимые данные.

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

Для реализации вышесказанного, создадим переменную с именем Pole, которое будет содержать поле TekPole (текущее поле) – номер текущего поля, Tochka1 и Tochka2 логического типа – True если точка в поле уже была ввдена.

Так же можно сделать вывод, что необходимо переписать процедуру DrawPolya.

Далее получившийся код:

var Pole: record//Переменная для заполнения полей

TekPole:=1;//Содержит текущее поле ввода

Tochka1:=false;//Есть точка в первом поле нет

Tochka2:=false;//Есть точка во втором поле нет

end;

…………………………………..

procedure DrawPolya;

begin

for var i:= 20 to 22 do

begin

if (((Pole.TekPole=1) and (i=20))

or ((Pole.TekPole=2) and (i=21)))

and (i<>22) then SetBrushColor(clLightBlue)

else SetBrushColor(clWhite);

Rectangle(Ob[i].x1,Ob[i].y1,Ob[i].x2,Ob[i].y2);

TextOut(Ob[i].x2-2-TextWidth(Ob[i].sStr),Ob[i].y1+7,Ob[i].sStr);

end;

………………………………..

procedure MouseDown(x,y,mb:integer);

var NajOb:byte;//Номер нажатой клавиши

begin

if mb=1 then //Если нажата левая кнопка мыши

begin

NajOb:=OprOb(x,y);

…………………………….

//Выбираем текущее поле

if (NajOb=20) then Pole.TekPole:=1;

if (NajOb=21) then Pole.TekPole:=2;

if (NajOb=20) or (NajOb=21) then DrawPolya//Перерисовываем поля

end;

procedure ZapPolya(ch:char);//Заполняем поля ввода

var i:byte;//Номер элемента для ввода

begin

//Если точки в полях уже есть, то выходим из процедуры

if Pole.Tochka1 and (Pole.TekPole=1) and (ch = ‘.’) then exit;

if Pole.Tochka2 and (Pole.TekPole=2) and (ch = ‘.’) then exit;

//Добавляем симол в поле

if Pole.TekPole=1 then i:=20 else i:=21;

//Если нажали кнопку удаления последнего введённого символа

if ch=‘d’ then

begin

if Length(Ob[i].sStr)=1 then exit;

if Ob[i].sStr[Length(Ob[i].sStr)]=‘.’ then

if Pole.TekPole=1 then Pole.Tochka1:=false

else Pole.Tochka2:=false;

Delete(Ob[i].sStr,Length(Ob[i].sStr),1);

if Length(Ob[i].sStr)=1 then Ob[i].sStr[1]:=‘ ‘;

DrawPolya;

exit;

end;

//Если в поле больше символ не войдёт

if Length(Ob[i].sStr)>=20 then exit;

if ch=‘.’ then //Если нажали точку

if Pole.TekPole=1 then Pole.Tochka1:=true else Pole.Tochka2:=true;

if ch=‘-‘ then //Если нажали кнопку смены знака

if Ob[i].sStr[1]=‘-‘ then Ob[i].sStr[1]:=‘ ‘ else Ob[i].sStr[1]:=‘-‘

else Ob[i].sStr:=Ob[i].sStr+ch; //Если нажали не точку

//Если получилось так, что перед точкой нет символа

if Ob[i].sStr[2]=‘.’ then Insert(‘0’,Ob[i].sStr,2);

DrawPolya;

end;

procedure MouseUp(x,y,mb:integer);

begin

…………………………..

if mb=1 then

begin

//Обрабатываем нажатия кнопок

var NajOb:=OprOb(x,y);

case NajOb of

//Заполняем поля ввода

1:ZapPolya(‘7’);

2:ZapPolya(‘8’);

3:ZapPolya(‘9’);

5:ZapPolya(‘4’);

6:ZapPolya(‘5’);

7:ZapPolya(‘6’);

9:ZapPolya(‘1’);

10:ZapPolya(‘2’);

11:ZapPolya(‘3’);

13:ZapPolya(‘0’);

14:ZapPolya(‘-‘);

15:ZapPolya(‘.’);

17:ZapPolya(‘d’);//Нажата кнопка удаления

//последнего введённого символа

end;

………………………………………………….

Здесь необходимо сказать, что первый символ полей sStr объектов ввода используется под знак. И ещё то, что для того, что бы программа работала корректно, в теле основной программы, в разделе инициализации необходимо строковым полям 20-ого 21-ого и 22-ого объектов необходимо присвоить значение символа пробел:

Ob[20].sStr:=‘ ‘; Ob[21].sStr:=‘ ‘; Ob[22].sStr:=‘ ‘;

Этап третий. Реализация функций калькулятора. На данном этапе нам необходимо обработать нажатия на оставшиеся кнопки – кнопки арифметических действий, кнопка «=» (равно) и кнопка «С» (сброс). Рассмотрим их отдельно друг от друга.

Обработка нажатия кнопок арифметических действий. Создадим переменную с именем Deystviye, которая будет символьного типа и будет содержать выбранное действие. Если действие не выбрано, то она будет содержать пробел. При нажатии кнопок с действиями, данная переменная должна принять определённое значение, и на экране должно появиться это действие между полями ввода. Для этого напишем процедуру вывода действия DrawDeyst, которая так же будет вызываться в процедуре DrawKalkulator.

Так же стоит сделать одно небольшое усложнение, если на данный момент текущее поле первое, то для удобства пользователя сделаем так, что при нажатии кнопки действия текущим полем автоматически станет второе поле.

Далее получившийся код:

……………………………….

var Deystviye:=‘ ‘;//Содержит выбранное действие

…………………………….

procedure DrawDeyst;//Выводим на экран действие

begin

SetBrushColor(clLightGray);

FillRect(X0+125,Y0+37,X0+125+15,Y0+37+15);//Стираем старое

TextOut(X0+125,Y0+37,Deystviye)//Выводим новое

end;

procedure DrawKalkulator;

begin

…………………………….

//Рисуем выбранное действие

DrawDeyst;

…………………………….

end;

…………………………….

procedure MouseUp(x,y,mb:integer);

begin

……………………………..

if mb=1 then

begin

//Обрабатываем нажатия кнопок

var NajOb:=OprOb(x,y);

case NajOb of

//Выбор нужного действия и вывод его на экран

4:Deystviye:=‘/’;

8:Deystviye:=‘*’;

12:Deystviye:=‘-‘;

16:Deystviye:=‘+’;

end;

if (NajOb=4) or (NajOb=8) or (NajOb=12) or (NajOb=16) then

begin

DrawDeyst;

if Pole.TekPole=1 then

begin

Pole.TekPole:=2;

DrawPolya;

end;

……………………………..

Обработка нажатия кнопки равно и кнопки сброс. При нажатии кнопки равно мы должны произвести определённое действие над двумя числами, которые содержаться в виде строк в полях ввода. Для этого нам необходимо перевести эти строки в тип Real с помощью функции StrToFloat. Обратно в строку результат можно перевести с помощью функции FloatToStr. Далее результат вычислений необходимо поместить в третье поле вывода и перерисовать поля.

После вывода результата необходимо заблокировать обработку всех нажатий до нажатия кнопки сброс, что бы случайно не изменить введённые числа и действие над ними. Т.е. пользователь должен видеть весь пример в неизменном виде. Так же нужно будет убрать подсвечивание текущего поля. Для этого создадим переменную с именем Blokirovka логческого типа. При нажатии кнопки равно она будет равна True, при нажатии кнопки cброс – False. Так же необходимо будет вставить в код программы отмену обработок нажатий, если Blokirovka = True и изменить процедуру DrawPolya.

Так как мы должны предусмотреть возможность работы калькулятора с помощью клавиатуры, то напишем отдельную процедуру обработки нажатия клавиш равно и сброс с именами Ravno и Sbros соответственно.

Код:

………………………………

var Blokirovka :=false;//Блокирует ввод данных после нажатия равно

……………………………..

procedure DrawPolya;

begin

for var i:= 20 to 22 do

begin

if (((Pole.TekPole=1) and (i=20))

or ((Pole.TekPole=2) and (i=21)))

and (i<>22) and (Pole.TekPole<>3)then SetBrushColor(clLightBlue)

else SetBrushColor(clWhite);

Rectangle(Ob[i].x1,Ob[i].y1,Ob[i].x2,Ob[i].y2);

TextOut(Ob[i].x2-2-TextWidth(Ob[i].sStr),Ob[i].y1+7,Ob[i].sStr);

end;

…………………………………….

procedure MouseDown(x,y,mb:integer);

var NajOb:byte;//Номер нажатой клавиши

begin

if mb=1 then //Если нажата левая кнопка мыши

begin

……………………………………..

//Выбираем текущее поле

if Blokirovka then exit;

…………………………………..

end;

………………………………

procedure Ravno;

var r1,r2,r3:real;

begin

r1:=StrToFloat(Ob[20].sStr);

r2:=StrToFloat(Ob[21].sStr);

case Deystviye of

‘/’:r3:=r1/r2;

‘*’:r3:=r1*r2;

‘-‘:r3:=r1-r2;

‘+’:r3:=r1+r2;

end;

Ob[22].sStr:=FloatToStr(r3);

Blokirovka:=true;

Pole.TekPole:=3;

SetBrushColor(clLightGray);

TextOut(X0+125,Y0+78,‘=’);

DrawPolya;

end;

procedure Sbros;

begin

Blokirovka:=false;

Pole.TekPole:=1;

Deystviye:=‘ ‘;

for var i:=20 to 22 do Ob[i].sStr:=‘ ‘;

DrawPolya;

DrawDeyst;

//Стираем равн0

SetBrushColor(clLightGray);

TextOut(X0+125,Y0+78,‘ ‘);

end;

procedure MouseUp(x,y,mb:integer);

begin

………………………..

if mb=1 then

begin

//Обрабатываем нажатия кнопок

var NajOb:=OprOb(x,y);

if Blokirovka and (NajOb<18) then Exit;

case NajOb of

………………..

//Обработка нажатия кнопки равно

19:Ravno;

//Обработка кнопки Сброс

18:Sbros;

end;

……………………

end;

…………………………

Последний этап. Тестируем программу.

В результате тестирования обнаружились некоторые ошибки. Далее будут приведены их словесные описания и способ их устранения.

1. Если в поле ввода ещё нет ни какого числа, то при нажатии кнопки смены знака выходит ошибка.

Для устранения данной ошибки не будем вспоминать или снова вникать в процедуру ZapPolya и переписывать её заново, а просто вставим следующие строчки:

…………………………….

//Добавляем симол в поле

if Pole.TekPole=1 then i:=20 else i:=21;

//Если ничего нет в строке и нажата кнопка смены знака

if (ch=‘-‘) and (Length(Ob[i].sStr)=1) then

begin

if Ob[i].sStr[1]=‘-‘ then Ob[i].sStr[1]:=‘ ‘

else Ob[i].sStr[1]:=‘-‘;

DrawPolya;

exit;

end;

//Если нажали кнопку удаления последнего введённого символа

…………………………….

2. Если нажать одну кнопку калькулятора и, не отпуская кнопки мыши, перетащить её на вторую кнопку, то обработается нажатие второй кнопки.

У нас в программе есть две процедуры MouseDown и MouseUp. В обоих есть локальная переменная NajOb, в которой содержиться номер нажатого объекта. Для устранения данной ошибки сделаем одну такую переменную, которая будет глобальной, т.е. опишем её в разделе описания переменных самой программы. Из процедур описание данных локальных переменных необходимо удалить. Думаю, вы сами без труда это сделаете, поэтому код приводить не буду.

3. Если после того, как нажали кнопку «=» перетаскивать калькулятор, то знак равно между полями ввода и полем вывода исчезает.

Для устранения ошибки вставим в процедуру DrawKalkulator следующий код:

…………………………….

//Рисуем выбранное действие

DrawDeyst;

//Если нажали равно, то рисуем знак равно

if Blokirovka then TextOut(X0+125,Y0+78,‘=’);

…………………………….

4. Если не введено число или не выбрано действие, то при нажатии кнопки равно выходит ошибка.

Устраним эту ошибку следующим образом: в процедуре Ravno, прежде чем производить какие либо действия проверим, все ли поля заполнены и выбрано ли действие:

procedure Ravno;

var r1,r2,r3:real;

begin

//Если не выбрано действие или не введено число, то выйти

if (Deystviye=‘ ‘) or (Length(Ob[20].sStr)=1) or (Length(Ob[21].sStr)=1)

then exit;

………………………………..

5.Если в каком либо поле ввода уже находилась точка, то после нажатия кнопки равно, а затем кнопки сброс, точку в это поле уже ввести невозможно. Это потому, что в процедуре Sbros забыли сбросить переменные Pole.Tochka1 и Pole.Tochka2:

procedure Sbros;

begin

Blokirovka:=False;

Pole.TekPole:=1;

Pole.Tochka1:=false;

Pole.Tochka2:=false;

………………….

На этом разработку калькулятора мы закончим. Можно добавить ещё возможность работы с клавиатуры. Это мы сделаем в разделе решения задач.

В завершение хочется сказать следующее: обязательно добавляйте комментарии в свой код. Даже если на данный момент вам кажется, что в данном месте всё банально просто, то через некоторое время, вероятнее всего, вам придётся долго разбираться с тем, что вы сами написали. Думаю, что если вы внимательно изучали код, приведённый в книге, то вы с этим согласитесь.

Работая над калькулятором, я приводил код порциями, которые отвечают за то или иное действие. Но даже в таком виде, на мой взгляд, не сразу можно понять, как он работает. А если вам попадётся код подобной программы вообще без комментариев и целиком. И нужно будет его доработать или исправить ошибки. Думаю, в таком случае вам будет проще написать программу заново.

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

Задача.

Дописать в программе калькулятор возможность работы с клавиатуры.

Решение.

……………………………

procedure KeyPress(ch:char);

begin

//Убираем подсветку с кнопки

if Podsvechivaniye.Najatiye then//Убираем подсветку с кнопки

begin

Podsvechivaniye.Najatiye:=false;

SetBrushColor(clAzure);

Rectangle(Ob[Podsvechivaniye.Ob].x1,Ob[Podsvechivaniye.Ob].y1,

Ob[Podsvechivaniye.Ob].x2,Ob[Podsvechivaniye.Ob].y2);

TextOut(Ob[Podsvechivaniye.Ob].x1+Round((Ob[Podsvechivaniye.Ob].x2-

Ob[Podsvechivaniye.Ob].x1)/2–

TextWidth(Ob[Podsvechivaniye.Ob].sStr)/2),

Ob[Podsvechivaniye.Ob].y1+2,Ob[Podsvechivaniye.Ob].sStr);

end;

//Определяем нажатый объект

case ch of

‘0’:NajOb:=13;

‘1’:NajOb:=9;

‘2’:NajOb:=10;

‘3’:NajOb:=11;

‘4’:NajOb:=5;

‘5’:NajOb:=6;

‘6’:NajOb:=7;

‘7’:NajOb:=1;

‘8’:NajOb:=2;

‘9’:NajOb:=3;

‘/’:NajOb:=4;

‘*’:NajOb:=8;

‘-‘:NajOb:=12;

‘+’:NajOb:=16;

‘.’:NajOb:=15;

‘=’:NajOb:=19;

else NajOb:=0;

end;

//Подсвечиваем кнопки

if (NajOb>=1) and (NajOb<=19) then

begin

Podsvechivaniye.Najatiye:=true;

Podsvechivaniye.Ob:=NajOb;

SetBrushColor(clLightBlue);

Rectangle(Ob[Podsvechivaniye.Ob].x1,Ob[Podsvechivaniye.Ob].y1,

Ob[Podsvechivaniye.Ob].x2,Ob[Podsvechivaniye.Ob].y2);

TextOut(Ob[Podsvechivaniye.Ob].x1+

Round((Ob[Podsvechivaniye.Ob].x2-Ob[Podsvechivaniye.Ob].x1)/2–

TextWidth(Ob[Podsvechivaniye.Ob].sStr)/2),

Ob[Podsvechivaniye.Ob].y1+2,Ob[Podsvechivaniye.Ob].sStr);

end;

if Blokirovka and (NajOb<18) then Exit;

case NajOb of

//Заполняем поля ввода

1:ZapPolya(‘7’);

2:ZapPolya(‘8’);

3:ZapPolya(‘9’);

5:ZapPolya(‘4’);

6:ZapPolya(‘5’);

7:ZapPolya(‘6’);

9:ZapPolya(‘1’);

10:ZapPolya(‘2’);

11:ZapPolya(‘3’);

13:ZapPolya(‘0’);

15:ZapPolya(‘.’);

//Выбор нужного действия и вывод его на экран

4:Deystviye:=‘/’;

8:Deystviye:=‘*’;

12:Deystviye:=‘-‘;

16:Deystviye:=‘+’;

//Обработка нажатия кнопки равно

19:Ravno;

end;

//Меняем текущее поле

if (NajOb=4) or (NajOb=8) or (NajOb=12) or (NajOb=16) then

begin

DrawDeyst;

if Pole.TekPole=1 then

begin

Pole.TekPole:=2;

DrawPolya;

end;

procedure KeyUp(Key:integer);

begin

//Убираем подсветку с кнопки

if Podsvechivaniye.Najatiye then//Убираем подсветку с кнопки

begin

Podsvechivaniye.Najatiye:=false;

SetBrushColor(clAzure);

Rectangle(Ob[Podsvechivaniye.Ob].x1,Ob[Podsvechivaniye.Ob].y1,

Ob[Podsvechivaniye.Ob].x2,Ob[Podsvechivaniye.Ob].y2);

TextOut(Ob[Podsvechivaniye.Ob].x1+Round((Ob[Podsvechivaniye.Ob].x2-

Ob[Podsvechivaniye.Ob].x1)/2–

TextWidth(Ob[Podsvechivaniye.Ob].sStr)/2),

Ob[Podsvechivaniye.Ob].y1+2,Ob[Podsvechivaniye.Ob].sStr);

end;

procedure KeyDown(Key:integer);

begin

//Убираем подсветку с кнопки

if Podsvechivaniye.Najatiye then//Убираем подсветку с кнопки

begin

Podsvechivaniye.Najatiye:=false;

SetBrushColor(clAzure);

Rectangle(Ob[Podsvechivaniye.Ob].x1,Ob[Podsvechivaniye.Ob].y1,

Ob[Podsvechivaniye.Ob].x2,Ob[Podsvechivaniye.Ob].y2);

TextOut(Ob[Podsvechivaniye.Ob].x1+Round((Ob[Podsvechivaniye.Ob].x2-

Ob[Podsvechivaniye.Ob].x1)/2–

TextWidth(Ob[Podsvechivaniye.Ob].sStr)/2),

Ob[Podsvechivaniye.Ob].y1+2,Ob[Podsvechivaniye.Ob].sStr);

end;

//Определяем нажатый объект

case key of

8:NajOb:=17;

13:NajOb:=19;

67:NajOb:=18;

83:NajOb:=14;

else NajOb:=0;

end;

//Подсвечиваем кнопки

if (NajOb>=1) and (NajOb<=19) then

begin

Podsvechivaniye.Najatiye:=true;

Podsvechivaniye.Ob:=NajOb;

SetBrushColor(clLightBlue);

Rectangle(Ob[Podsvechivaniye.Ob].x1,Ob[Podsvechivaniye.Ob].y1,

Ob[Podsvechivaniye.Ob].x2,Ob[Podsvechivaniye.Ob].y2);

TextOut(Ob[Podsvechivaniye.Ob].x1+

Round((Ob[Podsvechivaniye.Ob].x2-

Ob[Podsvechivaniye.Ob].x1)/2–

TextWidth(Ob[Podsvechivaniye.Ob].sStr)/2),

Ob[Podsvechivaniye.Ob].y1+2,Ob[Podsvechivaniye.Ob].sStr);

end;

if Blokirovka and (NajOb<>18) then Exit;

case NajOb of

//Заполняем поля ввода

14:ZapPolya(‘-‘);

//Нажата кнопка удаления последнего введённого символа

17:ZapPolya(‘d’);

//Обработка нажатия кнопки равно

19:Ravno;

//Обработка кнопки Сброс

18:Sbros;

end;

//Тело основной программы

begin

……………………………

OnKeyPress:=KeyPress;

OnKeyUp:=KeyUp;

OnKeyDown:=KeyDown;

end.

Далее приведу описание работы калькулятора с клавиатуры. Ввод символов обозначающих цифры, точку и действия равносильно нажатиям соответствующих кнопок на экранном калькуляторе. Кнопке равно соответствует ввод символа «=» и клавиши Enter. Кнопке сброс соответствует клавиша с символом «С». Кнопке смены знака – клавиша с символом «S».

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

В отличии от нажатия на кнопки калькулятора мышкой, в случае работы с клавиатуры заполнение полей будем производить в событиях OnKeyDown и OnKeyPress, а не OnKeyUp. В этих же событиях надо произвести убирание подсветки. Т.к. при нажатии одной клавиши можно не отпуская её нажать другую. После отпускания другой, старая нажатая клавиша может оказаться подсвеченной. При отпускании клавиши здесь производим только убирание подсветки с кнопки.

Так же стоит сказать, что после добавления возможности работать с клавиатуры код, отвечающий за подсвечивание кнопок и убирание подсветки, встречается в неизменном виде несколько раз. Поэтому его можно вывести в отдельную процедуру. В таком случае программа занимала бы меньше места, и код был бы нагляднее. Здесь этого делать не стал т.к. пришлось бы привести весь изменённый код программы.

Источник

dukesoteg

1 / 1 / 0

Регистрация: 02.04.2010

Сообщений: 36

Как написать простейший калькулятор?

28.04.2010, 18:38. Показов 213110. Ответов 7

Метки нет (Все метки)

Написать программу, моделирующую простейший калькулятор. Пользователь вводит выражение типа ’6+3’ (цифра, знак операции +, цифра) и получает результат.

я написал что то вроде этого:

Pascal

program calcus;
uses crt;
var a,b,c:integer;
d:string;
begin
clrscr;
writeln('vvedite cifru 1');
readln(a);
writeln('vvedite znak operacii');
readln(d);
writeln('vvedite cifru 2');
readln(c);
if d=('+') then b:=a+c;
if d=('-') then b:=a-c;
if d=('*') then b:=a*c;
if d=('/') then b:=a div c;
writeln('otvet: ',b);
readln;
end.

но препод говорит надо сделать строками а я незнаю =(

Rom@

23 / 23 / 12

Регистрация: 29.11.2009

Сообщений: 210

08.05.2010, 16:05

Pascal

uses crt;
const
     ASCII=[48..57];
var
   s,temp:string;
   i,f,l,code:integer;
   res:integer;
   d:byte;
begin
 write('Введите выражение -->');
 readln(s);
 temp:='';
 for i:=1 to length(s) do
  begin
   if (ord(s[i]) in ASCII) then temp:=temp+s[i];
   if not(ord(s[i]) in ASCII) or (i=length(s)) then
    begin
     if (i<length(s)) then
      begin
       case s[i] of
       '+':d:=1;
       '-':d:=2;
       '*':d:=3;
       '/':d:=4;
       end;
       val(temp,f,code);
       temp:='';
      end else
      val(temp,l,code);
    end;
  end;
 case d of
 1: res:=f+l;
 2: res:=f-l;
 3: res:=f*l;
 4: res:=f/l;
 end;
 writeln(res);
 readln
end.

Форумчанин Паскаля

77 / 90 / 55

Регистрация: 08.11.2013

Сообщений: 399

Записей в блоге: 2

08.03.2014, 19:52

в 36 строке несоответствие типов

Модератор

7533 / 4394 / 2784

Регистрация: 22.11.2013

Сообщений: 12,584

Записей в блоге: 1

08.03.2014, 20:25

code-n’-help,
из-за того, что операнды выбраны целочисленными, а “/” даёт действительный результат. Можно заменить, например, на res:=f div l;

3 / 3 / 2

Регистрация: 20.05.2013

Сообщений: 43

08.03.2014, 21:50

Вот как у меня выглядит самый простейший:

Только деления нету, почему ошибку выдаёт когда деление пишу, а почему не могу понять.

Изображения

Модератор

7533 / 4394 / 2784

Регистрация: 22.11.2013

Сообщений: 12,584

Записей в блоге: 1

08.03.2014, 22:41

Сообщение от reaktiv12

ошибку выдаёт когда деление пишу, а почему не могу понять

Сообщение от bormant

операнды выбраны целочисленными, а “/” даёт действительный результат

присвоение целому числу действительного приводит к ошибке компиляции.

3 / 3 / 2

Регистрация: 20.05.2013

Сообщений: 43

09.03.2014, 00:06

Сообщение от bormant

code-n’-help,
из-за того, что операнды выбраны целочисленными, а “/” даёт действительный результат. Можно заменить, например, на res:=f div l;

Сообщение от bormant

присвоение целому числу действительного приводит к ошибке компиляции.

Да, всё именно так, исправил и всё заработало. Спасибо.

Изображения

Николай8973457

0 / 0 / 0

Регистрация: 19.06.2018

Сообщений: 1

19.06.2018, 10:17

Я за час написал вот это

Pascal

Program Prog1;
 uses crt;
 var a,b:integer;
Operation:string;
 begin
 writeln('Введите значение переменных a');
readln(a);
 writeln('Введите значение переменных b');
readln(b); 
 writeln('Доступны функции:a+b(1),a-b(2),a/b(3),a*b(4)');
readln(Operation);
if Operation=('1') then 
 writeln(a+b);
if Operation=('2') then 
 writeln(a-b);
if Operation=('3') then 
 writeln(a div b);
if Operation=('4') then 
 writeln(a*b);
 end.

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

19.06.2018, 10:17

Помогаю со студенческими работами здесь

Как написать калькулятор с функиями +,-/,*,%.
Как написать калькулятор с функиями +,-/,*,%.
ЗАРАНИЕ БЛОГАДОРЮ.

Используя оператор выбора, написать программу, которая работала бы как калькулятор
Используя оператор выбора, написать программу, которая работала бы как калькулятор…

Как написать простейший калькулятор
Как написать простейший калькулятор?

Написать простейший калькулятор
Всем привет, хотел написать калькулятор, но в конце всегда выдаёт – Вы ввели неизвестный знак. В…

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Источник

Варианты решений задачки №1 (программа «Элементарный калькулятор») на языке Pascal. Первый вариант самый простой, с использованием переменных целого типа и условного оператора if ... then ... else ... («если» … «то» … «иначе» …):

{ Программа "Элементарный калькулятор", вариант №1 }
program SimpleCalc; { Необязательная строка, пишем по традиции }
var
  a, b: Integer; { Переменные-целочисленные операнды }
  op: Char; { Переменная-символ арифметической операции }

begin
  { Получаем исходные данные}
  write('Введите операнд a: ');
  readln(a); { Вводим первый операнд }
  write('Введите операнд b: ');
  readln(b); { Вводим второй операнд }
  write('Введите операцию (+, -, *, /): ');
  readln(op); { Вводим символ операции }

  { Выполняем операцию и выводим результат }
  if op = '+' then
    writeln('a + b = ', a + b)
  else
    if op = '-' then
      writeln('a - b = ', a - b)
    else
      if op = '*' then
        writeln('a * b = ', a * b)
      else
        if op = '/' then
          writeln('a / b = ', a / b)
        else
          writeln('Неизвестная операция!')
end.

Текст программы сохраняем в файл с именем, например, 01.pas. Работаем в Linux (например Linux Mint) и используем Free Pascal, поэтому скомпилировать файл можно так:

$ fpc 01.pas

а запустить готовую программу (при условии, что компиляция прошла без ошибок и исполняемый файл был создан) так:

$ ./01

Теперь попробуем записать эту же программу более лаконично: оформим компактнее ввод данных и используем оператор выбора case вместо конструкции if ... then ... else ...:

{ Программа "Элементарный калькулятор", вариант №2 }
program SimpleCalc;
var
  a, b: Integer; { Переменные-целочисленные операнды }
  op: Char; { Переменная-символ арифметической операции }

begin
  { Получаем исходные данные}
  write('Введите операнды a и b (через пробел): ');
  readln(a, b);
  write('Введите операцию (+, -, *, /): ');
  readln(op);

  { Выполняем операцию и выводим результат }
  case op of
    '+': writeln('a + b = ', a + b);
    '-': writeln('a - b = ', a - b);
    '*': writeln('a * b = ', a * b);
    '/': writeln('a / b = ', a / b);
    else
      writeln('Неизвестная операция!')
  end
end.

Еще один вариант — украсим оформление вывода результатов и добавим проверку «деления на ноль» (как уже сделал один из учеников):

{ Программа "Элементарный калькулятор", вариант №3 }
program SimpleCalc;
var
  a, b: Integer; { Переменные-целочисленные операнды }
  op: Char; { Переменная-символ арифметической операции }

begin
  { Получаем исходные данные}
  write('Введите операнды a и b (через пробел): ');
  readln(a, b);
  write('Введите операцию (+, -, *, /): ');
  readln(op);

  { Выполняем операцию и выводим результат }
  case op of
    '+': writeln(a,' + ', b, ' = ', a + b);
    '-': writeln(a,' - ', b, ' = ', a - b);
    '*': writeln(a,' * ', b, ' = ', a * b);
    '/': if b <> 0 then  { На ноль мы делить не умеем }
           writeln(a,' / ', b, ' = ', a / b)
         else
           writeln('Операция деления на ноль не определена!');
    else
      writeln('Неизвестная операция!')
  end
end.

Источник

Текст статьи:

Ниже приведён пример программы простого калькулятора. Программа получает от пользователя 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» г. Богородск

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

Источник

Как написать простейший калькулятор?

Вам также может понравиться

Как найти контакт в телеграмме без номера

Как найти путь посылки

Как составить мебель в комнате

Добавить комментарий Отменить ответ