Студопедия — Operate;
Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

Operate;






operation:='*';

Edit1.setfocus;

End;

Для кнопки / (Button6):

procedure TForm1.Button6Click(Sender: TObject);

Begin

Operate;

operation:='/';

Edit1.setfocus;

End;

 

Для кнопки Quit (Button7):

procedure TForm1.Button7Click(Sender: TObject);

Begin

Close; { Завершение работы приложения}

End;

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

Procedure operate;

var s:string;

code:integer;

N:integer;

Begin

s:=Form1.Edit1.text; { читаем сроку из параметра textEdit1 }

Form1..clear; { очищаем Edit1 }

val(s,n,code); { преобразуем строку в число}

case operation of { выполняем операцию}

'@': sum:=n;

'+': sum:=sum+n;

'-': sum:=sum-n;

'*': sum:=sum*n;

'/': sum:=sum/n;

End;

End;

7. Добавьте в модуль после служебного слова implementation объявление переменных:

Var

Sum:real;

Const

operation:char='@';

8. Сохраните полученный проект, используя меню File\SaveAll.

9. Выполните компиляцию проекта, используя либо Ctrl-F9, либо меню Project\Compile. Если при компиляции обнаружены ошибки, то внимательно проверьте текст программы.

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

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

Структура программы.

Созданная в предыдущем разделе программа состоит из следующих элементов:

1. Проект программы. Он был создан средой автоматически. Для просмотра (а при необходимости и изменения) проекта необходимо использовать меню View/Project Source:

Program Culc;

uses { используемые модули}

Forms,

C_unit in 'C_unit.PAS' {Form1};

{$R *.RES}

Begin

Application.CreateForm(TForm1, Form1); { создание формы}

Application.Run; { основной цикл программы }

End.

2. Модуль C_unit.PAS:

Unit Culc;

interface

Uses

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,

Forms, Dialogs, StdCtrls;

Type

TForm1 = class(TForm)

Edit1: TEdit;

Button1: TButton;

Button2: TButton;

Button3: TButton; поля-объекты

Button4: TButton;

Button5: TButton;

Button6: TButton;

Button7: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject); методы

procedure Button3Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button7Click(Sender: TObject);







Дата добавления: 2015-10-01; просмотров: 255. Нарушение авторских прав; Мы поможем в написании вашей работы!



Обзор компонентов Multisim Компоненты – это основа любой схемы, это все элементы, из которых она состоит. Multisim оперирует с двумя категориями...

Композиция из абстрактных геометрических фигур Данная композиция состоит из линий, штриховки, абстрактных геометрических форм...

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

ТЕОРЕТИЧЕСКАЯ МЕХАНИКА Статика является частью теоретической механики, изучающей условия, при ко­торых тело находится под действием заданной системы сил...

Конституционно-правовые нормы, их особенности и виды Характеристика отрасли права немыслима без уяснения особенностей составляющих ее норм...

Толкование Конституции Российской Федерации: виды, способы, юридическое значение Толкование права – это специальный вид юридической деятельности по раскрытию смыслового содержания правовых норм, необходимый в процессе как законотворчества, так и реализации права...

Значення творчості Г.Сковороди для розвитку української культури Важливий внесок в історію всієї духовної культури українського народу та її барокової літературно-філософської традиції зробив, зокрема, Григорій Савич Сковорода (1722—1794 pp...

Различие эмпиризма и рационализма Родоначальником эмпиризма стал английский философ Ф. Бэкон. Основной тезис эмпиризма гласит: в разуме нет ничего такого...

Индекс гингивита (PMA) (Schour, Massler, 1948) Для оценки тяжести гингивита (а в последующем и ре­гистрации динамики процесса) используют папиллярно-маргинально-альвеолярный индекс (РМА)...

Методика исследования периферических лимфатических узлов. Исследование периферических лимфатических узлов производится с помощью осмотра и пальпации...

Studopedia.info - Студопедия - 2014-2024 год . (0.009 сек.) русская версия | украинская версия