21. Запрограммировать команду «Табулировать».
Свойство Lines объекта типа Мето комплексное, то есть оно также является объектом со своими свойствами и методами. Результат работы данной программы - это таблица, которая состоит из нескольких строк. Чтобы добавить в поле Memo1 новую строку таблицы, надо поменять значения комплексного свойства Lines (строки) с помощью его метода Add (добавить) с одним аргументом - символьной строкой: Memo1.Lines.Add('строка символов'). Щелкнуть на команде «Табулировать» из главного меню один раз. Появится заготовка к процедуре, которую заполнить так:
procedure Tform1.N2Click(Sender:Tobject);
var x, y, h,a,b : real;
cod : interger;
str1, str2 : string;
begin
{В объект Memo1! вставляем строку с подписями столбцов
значений аргумента и функции}
Memo1.Lines.Add(' X F(Х)');
(Получаем числовое значение левой границы}
Val(Edit1.Text, a, cod);
{Получаем числовое значение правой границы}
Val(Edit2.Text, b, cod);
(Получаем числовое значение шага}
Val(Edit3.Text, h, cod); х:=а; (Табулируем функцию}
while х<=b+h/2 do (пока аргумент х не превысит } begin (правую границу с определенным запасом} у:=sin(х)+1 ; (Вычисляем значения функции} {Формируем символьные строки из значений } Str(х:8:2,str1); { аргумента и функции}
Str(y:8:2,str2);
if CheckBox1.Checked then
{Вставляем строку в поле Мето1}
Memo1.Lines.Add(str1+str2);
х:=х+h; {Увеличиваем аргумент на величину шага}
end
end;
22. Выполнить программу и поупражняться с разными значениями левой, правой границы и шага аргумента. Закрыть окно программы «Табулирование функции».
23. Сохранить созданную программу в своей папке.
24. Создать ехе-файл программы.
25. Закрыть Delphi, запустить созданную программу и выполните вычисления для различных входных данных.
26. Сохранить программу на дискете для демонстрации преподавателю. Закончить работу.
Результаты работы программы
Рис. 2. Результаты работы программы