Уроки информатики в школе - Графика. Практическая работа

Вторник, 03.12.2024, 20:30

Главная | Регистрация | Вход

Приветствую Вас Гость | RSS

Меню сайта

Статистика

Онлайн всего: 1

Гостей: 1

Пользователей: 0

Тестування онлайн

тестування онлайн

Социальные закладк

Практична робота. Складання та виконання алгоритмів з графічним відображенням даних

Увага! Під час роботи з комп’ютером дотримуйтеся правил безпеки та санітарно-гігієнічних норм.
Завдання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;