Завдання
Переглянь відео
Урок №1-2
Пригадати свої логіни та паролі на електронні скриньки
2. Зайти на свій Google-диск, виконувати усі Завдання на своєму Google-диску у відповідних Google-додатках і надавати доступ вчителеві інформатики за адресою varenyuk@gmail.com або onoykoas@gmail.com
3. Заповнити дані у таблиці свого класу
Варенюк Г.А. varenyuk@gmail.com
Онойко А.С. onoykoas@gmail.com
Пврфенюк О.Р. parfenyukor@gmail.com
Варенюк Г.А. varenyuk@gmail.com
Онойко А.С. onoykoas@gmail.com
Пврфенюк О.Р. parfenyukor@gmail.com
Завдання розміщені:
Виконати усі попередні завдання
Чекаю виконаних робіт в Класі (ClassRoom).
Завдання №1. Опрацювати § 27
Зразок тесту
procedure TForm1.FormClick(Sender: TObject);
begin
canvas.pen.Color:=clred;
canvas.Brush.color:=clyellow;
canvas.Ellipse(175,50,325,200);
canvas.Brush.color:=clgreen;
canvas.Brush.Style:=bscross;
canvas.Polygon([point(250,200),point(150,400),point(350,400)]); // Багатокутник
canvas.Polyline([point(200,400),point(200,500),point(150,500)]);
canvas.Polyline([point(300,400),point(300,500),point(350,500)]);
canvas.arc(200,150,300,176,200,163,300,163);
canvas.Brush.color:=clblue;
canvas.Brush.Style:=bssolid;
canvas.Ellipse(200,85,230,125);
canvas.Ellipse(270,85,300,125);
canvas.Polyline([point(200,300),point(100,150)]);
canvas.Polyline([point(300,300),point(400,150)]);
end;
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
randomize;
for i:=1 to 100 do
begin
shape1.Top:=shape1.Top-1;
shape1.Left:=shape1.Left-1;
shape1.Width:=shape1.Width+2;
shape1.Height:=shape1.Height+2;
shape1.Brush.Color:=Random($FFFFFFFF);;
sleep(100);
Refresh (); // Оновлення сторінки
end;
end;
end.
Запитання до задач
Задача №1
Задача №2
Задача №3