| Практична робота. Складання та виконання алгоритмів з графічним відображенням даних
Увага! Під час роботи з комп’ютером дотримуйтеся правил безпеки та санітарно-гігієнічних норм.
Завдання1.
1. Відкрийте вікно Lazarus.
2. Створіть проект, після запуску якого на виконання:
а) з правої сторони з графічних примітивів буде створене зображення світлофору;
б) в лівій частині форми буде розміщено зображення світлофору, створене з застосуванням відповідних методів полотна в процесі виконання процедур :
procedure TForm1.Button1Click(Sender: TObject);
procedure TForm1.Button2Click(Sender: TObject);
procedure TForm1.Button3Click(Sender: TObject);
3. Збережіть проект.
4. Запустіть проект на виконання.
5. Проаналізуйте отриманий результат.
6. Закрийте вікно виконання проекту.
7. Закрийте вікно середовища Lazarus.
|
Построение:
прямоугольника(50,50,150,280)
эллипсов: (65,60,135,120); (65,130,135,190); (65,200,135,260)
ломаной: точка(50,50) –провести линию в точку(40,50) –провести линию в точку(100,30) –провести линию в точку(160,50) –провести линию в точку(150,50)
|
Варианты программного кода построения ломаной.
вариант1
procedure TForm1.Button3Click(Sender: TObject);
begin
Canvas.Pen.Color := clGray; // цвет контура - зеленый
Canvas.Pen.Width := 3; // толщина контура - 3 пикселя
canvas.MoveTo(50,50);
canvas.lineTo(40,50);
canvas.lineto( 100,30);
canvas.lineto(160,50);
canvas.lineto(150,50);
end;
вариант2
procedure TForm1.Button3Click(Sender: TObject);
begin
with form1.canvas do
begin
Pen.Color := clGray; // цвет контура - зеленый
Pen.Width := 3; // толщина контура - 3 пикселя
MoveTo(50,50);
lineTo(40,50);
lineto( 100,30);
lineto(160,50);
lineto(150,50);
end;
end;
|
|
Вариант программного кода
procedure TForm1.FormCreate(Sender: TObject);
begin
form1.Height:=350;
form1.Width:=315;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Canvas.Pen.Color := clGray; // цвет контура - серый
Canvas.Pen.Width := 3; // толщина контура - 3 пикселя
Canvas.Brush.Color := clGray; // цвет заливки -серый
Canvas.Brush.Style := bsSolid; // стиль заливки —сплошная
Canvas.Rectangle (50, 50, 150, 280); (* прямоугольник с противоположными вершинами в точках (10, 10) и (350, 100) и сторонами, параллельными осям координат *)
end;
|
procedure TForm1.Button2Click(Sender: TObject);
begin
Canvas.Pen.Color := clgreen; // цвет контура - зеленый
Canvas.Pen.Width := 3; // толщина контура - 3 пикселя
Canvas.Brush.Color := clgreen; // цвет заливки - красный
Canvas.Brush.Style := bsSolid; // стиль заливки —сплошная
Canvas.ellipse (65, 60, 135, 120);
Canvas.Pen.Color := clyellow; // цвет контура - зеленый
Canvas.Pen.Width := 3; // толщина контура - 3 пикселя Canvas.Brush.Color := clyellow; // цвет заливки - красный
Canvas.Brush.Color := clyellow; // цвет заливки - красный
Canvas.Brush.Style := bsSolid; // стиль заливки —сплошная
Canvas.ellipse (65, 130, 135, 190);
Canvas.Pen.Color := clred; // цвет контура - зеленый
Canvas.Pen.Width := 3; // толщина контура - 3 пикселя Canvas.Brush.Color := clyellow; // цвет заливки - красный
Canvas.Brush.Color := clred; // цвет заливки - красный
Canvas.Brush.Style := bsSolid; // стиль заливки —сплошная
Canvas.ellipse (65, 200, 135, 260);
end;
|
Завдання2. Створити проект "Новорічна листівка". Джерело - Практические задания к урокам в Lazarus
| |
