Порядок выполнения работы Пример1. Использования оператора цикла while
Вычислить сумму членов бесконечного ряда с заданной точностью =10-4 при x=5.
Прежде всего находят ОДЗ переменной, Х>0.
Открыть новое приложение с помощью команды File| New Application. Сохранить проект.
На форме Form1 разместить компоненты Label1, Label2, Labe3; Memo1; Edit1, Button1, Button2 как показано на рис. 3.1.
Свойству Caption метки Label1 задать значение
’Введите значение переменной Х’
Текст выровнять по центру, установив следующие значения свойств:
AutoSize – False
WordWrap – True
Alignment – taCenter
Размеры метки и ее местоположение отрегулировать вручную. Размер и тип шрифта установить с помощью свойства Font.
Свойству Caption метки Label3 задать значение
’ Вычисление суммы членов бесконечного ряда с заданной точностью =10-4 при различных x’
Для метки Label2 установить свойство Caption равным ‘X=’.
Для компонента Edit1 установить свойство Text равным пустой строке.
Для компонента Memo1 выбрать свойство Lines и открыть окно String list editor. Удалить в нем строку ‘Memo1’.
Для кнопок Button1, Button2 установить свойство Caption равным ‘Решение’ и ’Очистить’ соответственно.
Выполнить двойной щелчок на кнопке ‘Решение’ и определить следующий обработчик события OnClick:
procedure TForm1.Button1Click(Sender: TObject);
var s, eps, x, un, uk, y:real;
i:integer;
begin
x:=StrToFloat(Edit1.Text);
if x<=0 then
begin Memo1.Lines.Add('Значение X не входит в ОДЗ');
exit;
end;
eps:=1e-5; s:=1; i:=1; y:=-1*2;
un:=(ln(x)/ln(10))/y;
while abs(un)>eps Do
begin
s:=s+un;
uk:=un; i:=i+1; y:=-y*(2*i-1)*(2*i);
un:=ln(i*x)/ln(10)/y;
end;
Memo1.Lines.Add('Результат');
Memo1.Lines.Add('s='+FloatToStr(s));
Memo1.Lines.Add('n='+FloatToStr(i));
Memo1.Lines.Add('u='+FloatToStr(uk));
end;
Рис. 3.3. Вид приложения
Вернуться в форму с помощью клавиши F12, выполнить двойной щелчок на кнопке ‘Очистить’ и определить следующий обработчик события OnClick:
procedure TForm1.Button2Click(Sender:TObject);
begin
Memo1.Clear;
end;
Откомпилировать и выполнить программу. Результат работы программы показан на Рис. 3.4
Рис. 3.4. Результат работы программы.
Пример2. Создание простейшего изображения.
Открыть новое приложение с помощью команды File|New Application. Сохраните проект в вашем рабочем каталоге, выполнив команду меню File|Save Project As.
Запустить графический редактор командой Tools|Image Editor.
В графическом редакторе выполнить команду File|New|Bitmap File (.bmp).
В появившемся диалоговом окне Bitmap Properties установить
Width=300
Height=200
Colors=SuperVGA(256 colors)
Создать произвольное изображение, пример которого приведен на рис.3.5.