Предыдущая страница реферата | 2  3  4  5  6  7  8  9  10  11  12 | Следующая страница реферата

Postroenie(T1,T2,R1,R2); end;

procedure TForm1.FormPaint(Sender: TObject); begin x0:=100; y0:=200;

OsiK(x0,y0); end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (key in ['0'..'9',#8,'.']) then begin

Key:=#0;

MessageBeep($FFFFFFFF); end; end;

end.

--------------------
P

[pic]

[pic]

n

Рисунок 2.1

[pic]

[pic]

А

Рисунок 2.2

(Qz

(Qy

(Qx

dz

dy

dx

z

y

x

Рекомендуем скачать другие рефераты по теме: контрольная работа 1, контрольные 7 класс.





Предыдущая страница реферата | 2  3  4  5  6  7  8  9  10  11  12 | Следующая страница реферата