Программа для выполнения простейших арифметических расчетов - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Здравствуйте! У меня имеется вот такое задание: Написать программу для выполнения простейших арифметических расчетов( калькулятор) Технические требования: Размер калькулятора. Его расположение относительно начала координат, размер кнопок цветовая гамма определяется в файле Input.txt. Управление калькулятором осуществляется с помощью клавиатуры. Предусмотреть запись рассчитанного значения в файл Output.txt. У меня есть текст программы где создан простейший калькулятор с текстовым меню. Друзья, прошу у Вас помощи как у более опытных. Буду очень благодарен за помощь.

Решение задачи: «Программа для выполнения простейших арифметических расчетов»

textual
Листинг программы
uses graph, crt;
var d,m,k,size: integer;
s: string;
begin
 InitGraph(d,m,'C:\FPC\BGI');
 size:=1;
 k:=1;
If graphResult=0 then
begin
rectangle(25,80,300,540);
settextstyle(k,0,size); str(size,s);
outtextxy(55,215,'7');
outtextxy(55,285,'4');
outtextxy(55,355,'1');
outtextxy(55,425,'/');
outtextxy(125,215,'8');
outtextxy(125,285,'5');
outtextxy(125,355,'2');
outtextxy(125,425,'0');
outtextxy(195,215,'9');
outtextxy(195,285,'6');
outtextxy(195,355,'3');
outtextxy(195,425,'.');
outtextxy(265,215,'C');
outtextxy(265,285,'X');
outtextxy(265,355,'-');
outtextxy(265,425,'+');
outtextxy(160,495,'=');
 
 
rectangle(35,95,290,150);
rectangle(35,250,80,200);
rectangle(105,250,150,200);
rectangle(175,250,220,200);
rectangle(245,250,290,200);
rectangle(35,320,80,270);
rectangle(105,320,150,270);
rectangle(175,320,220,270);
rectangle(245,320,290,270);
rectangle(35,390,80,340);
rectangle(105,390,150,340);
rectangle(175,390,220,340);
rectangle(245,390,290,340);
rectangle(35,460,80,410);
rectangle(105,460,150,410);
rectangle(175,460,220,410);
rectangle(245,460,290,410);
rectangle(35,530,290,480);
readln;
closegraph;
end
else writeln('Произошла ошибка при инициализации графики');
end.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 4 из 5
Похожие ответы