ЗАВДАННЯ:
1. Тест №20. (Тема 6)
2. Полюси магнітів. с. 190
Зауваження:
- для обєктів Image1... надати значення властивості Strech:=True.
- процедура опрацювання події клацання кнопкою миші на лівому малюнку:
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Image1.Left:=Image1.Left+50;
Image2.Left:=Image2.Left-50;
end;
3. Площа фігур. с. 191.
Трикутник - S=1/2*h*a
Круг - S=pi*R^2
Прямокутник - S=a*b
4. ДЗ. повторити параграф 27.
Немає коментарів:
Дописати коментар