Порядок выполнения

1. Загрузить Delphi, сохранить проект.

2. Изменить свойства главной формы в соответствии с таблицей:

3. Добавить на форму компонент StringGrid (Additional)и изменить свойства в соответствии с таблицей:

4. Для события OnCreate ввести код:

Var

t:longint; i,n:integer; step,x,sx,cx: double;

Begin

step:=0.01;

n:=round(90/step)+1;

With stringgrid1 do

Begin

cells[0,0]:='x'; cells[1,0]:='sin(x)';

cells[2,0]:='cos(x)'; cells[3,0]:='tg(x)';

cells[4,0]:='ctg(x)'; colwidths[0]:=colwidths[0] div 2;

rowcount:=n+1;

For i:=1 to n do

Begin

x:=(i-1)*step;

sx:=sin(x*pi/180); cx:=cos(x*pi/180);

cells[0,i]:=floattostr(x); cells[1,i]:=floattostr(sx);

cells[2,i]:=floattostr(cx);

if cx <> 0 then cells[3,i]:=floattostr(sx/cx)

else cells[3,i]:= не существует;

if sx<>0 then cells[4,i]:=floattostr(cx/sx)

else cells[4,i]:= 'не существует';

end; end; end ;

5. Проверить работу приложения.

6. Добавить новую форму (заставка), для этого:

· выбрать в меню File / New/ Form;

· сохранить новую форму с именем Unit2.pas;

· подключить новый файл к проекту, выбрав в меню

Project / Add to Project…, открытьUnit2.pas;

· создать ссылку на новый модуль, с той формы, которая будет его использовать:

o выбрать в менюFile / Use Unit,

o в открывшемся диалоговом окне выбрать модуль Unit2 и нажать Ок.

7. Изменить свойства Form2 в соответствии с таблицей:

8. На форму Form2 добавить метку, ввести для нее заголовок ТРИГОНОМЕТРИЧЕСКИЕ ФУНКЦИИ

9. Загрузить в редактор файл проект, для этого выбрать в меню Project/ View Source.

10. Откорректировать файл проекта следующим образом:

program Project1;

uses

Forms,

Unit1 in 'Unit1.pas' {Form1},

Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

Begin

Application.Initialize;

form2:=tform2.create(application); form2.Show ;

form2.Update ; form2.Label1.Update ;

Application.CreateForm(TForm1, Form1);

form2.Hide ; form2.Free;

Application.Run;

end.

11. Для того, чтобы заставка задерживалась на экране 5 секунд в начало процедуры Form1Create добавить:

t:=gettickcount div 1000;

while (gettickcount div 1000)<t+5 do

12. Проверить работу приложения