Графическая среда ТД2014 (981800), страница 2
Текст из файла (страница 2)
Done: There are errors. – при наличии ошибок.
-
Выполнение до курсора – Run\Run to Cursor или F4.
Синие точки слева показывают, в каких точках программы можно остановить выполнение.
Щелкнуть на синей точке она будет красная (точка останова). Для выполнения очередной строки клавиша F8.
-
Выполнить строку с заходом в подпрограмму – Run\Trace Into, или кнопка
, или F7.
-
Выполнить строку без захода в подпрограмму – Run\Trace Over, или кнопка
, или F8.
-
Завершить отладку – Run\Program Reset или Ctrl+F2. Использовать при зависании.
-
Отобразить окно наблюдения - Run\Add Watch или нажать Ctrl+F5, ввести имя переменной или выражение, нажать OK. Чтобы добавить в окно наблюдения новую переменную, можно установить на ней курсор в окне редактора кода, активизировать окно наблюдения, сделать на нем двойной щелчок и нажать кнопку OK.
-
Установить точку останова – щелкнуть в окне редактора кода на сером поле перед строкой, на которой должна быть эта точка.
-
Убрать точку останова – повторить действия предыдущего пункта.
Создание проекта для сложения двух чисел
-
Запустить Turbo Delphi, командой File\New\VCL Forms Application – Delphi for Win32. При этом автоматически будет создана форма с именем Form1 (или с именем Form#, где # - очередной номер формы).
-
Сохраните проект (в отдельной папке) командой File\Save All или щелкнуть на пиктограмме
панели инструментов. Turbo Delphi последовательно предложит сохранить в файлах в появляющемся окне Save Until As - имя программного модуля Unit1.pas , а затем в еще одном окне имя проекта Project1.dpr. Можно не менять эти имена. В дальнейшем, если Turbo Delphi открывается для загрузки программы на редактирование, выбирайте файл Project1 типа Delphi Project Type или, после открытия Turbo Delphi, используйте команду File\Open Project для этого файла. Проект это набор (совокупность) файлов, используя которые компилятор создает выполняемый файл программы (EXE.файл).
-
В процессе работы необходимо периодически сохранять файлы программы щелчком на кнопке
панели инструментов.
Зеленая линия на полях обозначает, что эти строки изменялись с момента открытия программы, но они уже сохранены.
Желтая линия выделяет строки, которые изменялись с момента открытия, но не сохранены.
-
Щелчком активизируйте окно формы, в диалоге (в окне диалога) Инспектора объектов (Object Inspector) на вкладке Properties щелкните на поле Caption и введите заголовок формы Задание 1.
-
Измените размеры формы мышкой или заданием значений в свойствах Height и Width в окне Инспектора объектов.
-
Разместите на форме поле ввода Edit1 и задайте ему текст (например, Ввoд числа А), используя компонент Label1 и его свойство Caption.
-
Разместите на форме поле вывода Edit2 и задайте ему текст (например, Ввод числа В), используя компонент Label2 и его свойство Caption.
-
Разместите на форме поле вывода Edit3 и дайте ему название (например, Сумма С), используя компонент Label3 и его свойство Caption.
-
Разместите на форме компонент Button1. Измените название кнопки, используя свойство Caption (например, Сложить).
-
Разместите на форме компонент Button2. Измените название кнопки, используя свойство Caption (например, Выход).
-
Запустите программу кнопкой
или Run\Run, или F9 и завершите ее, закрыв окно формы.
Программирование
-
Создать обработчик события «Сложить» (Button1). В тело обработчика включить
описания переменных А, В, С типа real и записать операторы:
A:= StrToFloat (Edit1.Text); //преобразование строки в число
В:= StrToFloat (Edit2.Text);
C:=A+B;
Edit3.Text:=FloatToStr(C); //преобразование числа в строку и вывод результата в окно
Edit1.Text:=''; Edit2.Text:='';
Edit1.SetFocus; //установка курсора в окно и делает его активным (курсор мигает)
-
Создать обработчик события «Выход » (Button2). В теле обработчика
записать процедуру закрытия Close.
-
Создать обработчик события создания формы, который будет задавать символ '0' в качестве начального значения свойства Text полей ввода, выполнив соответствующие действия:
- дважды щелкнуть на свободном месте формы или,
- щелкнуть на форме и затем двойной щелчок на строке события OnCreate на вкладке Events
Инспектора объектов. В результате этого Turbo Delphi добавит в класс TForm1 заголовок
метода Procedure FormCreate (Sender: TObject );,
а в раздел реализации – описание этого метода с пустым телом begin end;
Procedure FormCreate (Sender: TObject );
begin
end;
В тело обработчика записать операторы: Edit1.Text:='0'; Edit2.Text:='0';
Edit3.Text:='0';
- Управление свойствами при создании макета формы
-
В Инспекторе объектов на вкладке Properties
- Управление свойствами при выполнении программы
-
В операторе присваивания <Компонент><Свойство>:=<Значение>, например, Label3.Caption:='СУММА С = '; Edit3.Text:=FloatToStr(С);
Помощь в Delphi
-
Для получения сведений щелкните на поле этого события в Инспекторе объектов и нажмите клавишу F1.
Задание
Вычислить значение интеграла
b
s = ∫ f(x) dx по заданию преподавателя:
a
1) методами прямоугольника и трапеций,
2) методами прямоугольника и трапеций с заданной точностью ε.
По заданию 1 форма должна иметь поля ввода данных (поля Edit): нижний предел интегрирования (A), верхний предел интегрирования (B), число подинтервалов (N); поля вывода результатов; кнопки событий Button (метод прямоугольников, метод трапеций, выход). Например, как показано на форме для одного метода (расположение окон произвольное).
По заданию 2 форма должна иметь дополнительно окна для задания точности ε и вывода числа итераций (приближений) K.
Требуемая точность ε определяет условие окончания итерационного процесса, которое задаётся отношением |S1-S2| < ε, где S1 и S2 – соседние значения интеграла, полученные на предыдущем и последующим шагах его вычисления. Начальное значение S1=0.
В
Для заданий 1 и 2 добавить окно для вывода точного значения интеграла
Для проверки правильности задания исходных данных в полях ввода Edit1, Edit2, Edit3 можно использовать обработку исключений с выводом сообщений в окне MessageDLG.
Try
a:=StrToFloat(Edit1.Text);
except
MessageDLG('Введите нижний предел интегрирования'
,'например, так 2,5',mtInformation,[mbOk],0);
exit;
end;
try
b:=StrToFloat(Edit2.Text);
except
MessageDLG('Введите верхний предел интегрирования'
,'например, так 6,5',mtInformation,[mbOk],0);
exit;
end;
try
N:=StrToInt(Edit3.Text);
except
MessageDLG('Введите число подинтервалов'
,'например, так 10',mtInformation,[mbOk],0);
exit;
end;