Question

пожалйста,помогите с лазарусом.......мне нужен код на программу "светофор",она идет с таймером.....все,что состовляла,не идет на компеляцию....(

Answer 1

Q1 = c1 *m*( t2- t1),
Q2 = c2 *m*,
Q3 = c3 *m*( t3- t2),
Q4 = c4 *m*.

Answer 2

Конечно, я могу помочь вам с программой "светофор" в Lazarus. Вот пример кода, который реализует светофор с использованием таймера:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { private declarations }
    LightColor: Integer;
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Начальное значение цвета светофора
  LightColor := 0;
  // Запускаем таймер с интервалом 1000 миллисекунд (1 секунда)
  Timer1.Interval := 1000;
  Timer1.Enabled := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  // Изменяем цвет светофора
  case LightColor of
    0: begin
         // Красный цвет
         Canvas.Brush.Color := clRed;
         LightColor := 1;
       end;
    1: begin
         // Желтый цвет
         Canvas.Brush.Color := clYellow;
         LightColor := 2;
       end;
    2: begin
         // Зеленый цвет
         Canvas.Brush.Color := clGreen;
         LightColor := 0;
       end;
  end;
  // Перерисовываем форму, чтобы обновить цвет светофора
  Form1.Repaint;
end;

end.

В этом примере используется компонент `TTimer`, который позволяет запускать событие с определенным интервалом времени. В процедуре `FormCreate` мы устанавливаем начальное значение цвета светофора и запускаем таймер с интервалом 1 секунда. В процедуре `Timer1Timer` мы изменяем цвет светофора в зависимости от текущего значения `LightColor` и перерисовываем форму для обновления цвета.

Убедитесь, что вы создали новый проект в Lazarus и добавили компонент `TForm` и `TTimer` на форму. Затем скопируйте приведенный выше код в модуль формы (unit) вашего проекта. После этого вы должны быть в состоянии скомпилировать и запустить программу "светофор".

Надеюсь, это поможет вам! Если у вас возникнут еще вопросы, не стесняйтесь задавать.