Программа для выполнения простейших арифметических расчетов - 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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д