Вторник, 17.09.2019, 20:18
Главная | Регистрация | Вход Приветствую Вас Гость | 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;

 

Завдання2. Створити проект "Новорічна листівка". Джерело - Практические задания к урокам в Lazarus 

Вариант интерфейса проекта

 

Форма входа
Поиск
Календарь
«  Сентябрь 2019  »
ПнВтСрЧтПтСбВс
      1
2345678
9101112131415
16171819202122
23242526272829
30
Архив записей
Друзья сайта
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz

  • Рейтинг@Mail.ru
    Copyright MyCorp © 2019
    Конструктор сайтов - uCoz