Question

Var Form1: TForm1; t:Integer; i:Integer; opros:Array[9..40]of Integer; znac,tek:array[1..3]of Real; //opros-ïåðèîä îïðîñà äàò÷èêà //znac- èçìåðåííîå çíà÷åíèå äàò÷èêîì //tek- âûîäèìîå çíà÷åíèå äàò÷èêîì implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin randomize;//ñáðàñûâàåò àëãîðèòìû ñëó÷àéíûõ ÷èñåë; for i:=3 to 1 do opros[i]:=random(10)+3; znac[1]:=Random(40);// ãåí ñë ÷èñëà îò 0..40 znac[2]:=Random(40)-10;// ãåí ñë ÷èñëà îò 30..9 znac[3]:=Random(400)-100/100;// ãåí ñë ÷èñëà îò 3..0 tek[1]:=znac[1]; tek[2]:=znac[2]; tek[3]:=znac[3]; with stringgrid1 do begin cells[0,0]:='Òåêóùåå âðåìÿ'; cells[1,0]:='1 äàò÷èê '+inttostr(opros[1])+' sek'; cells[1,0]:='2 äàò÷èê '+inttostr(opros[2])+' sek'; cells[1,0]:='3 äàò÷èê '+inttostr[opros[3]]+' sek'; end; end; procedure TForm1.tmr1Timer(Sender:TObject); begin //Òåêóùåå âðåìÿ t:=t+1; znac[1]:=Random(40);// ãåí ñë ÷èñëà îò 0..40 znac[2]:=Random(40)-10;// ãåí ñë ÷èñëà îò 30..9 znac[3]:=Random(400)-100/100;// ãåí ñë ÷èñëà îò 3..0 if (t mod opros[1])=0 then tek[1]:=znac[1]; if (t mod opros[2])=0 then tek[2]:=znac[2]; if (t mod opros[3])=0 then tek[3]:=znac[3]; //(400)-10)/10;random ãåíåðèðóåò ñëó÷àéíûå çíà÷åíèÿ îò 1,6,3 with stringgrid1 do begin rowcount:= rowcount+1; cells[0,t]:=inttostr(t)+' cåêóíä'; cells[1,t]:= floattostr(tek[1]); cells[2,t]:= floattostr(tek[2]); cells[3,t]:= floattostr(tek[3]); end; end; procedure TForm1.Button1Click(sender:TObject); begin Timer1.Enabled:=not timer1.Enabled; end; procedure TForm;Button2Click(Sender:TOBJecct); begin if timer1.Enabled then begin tek[1]:= znac[1]; ShowMessage('Òåêóùåå çíà÷åíèå äàò÷èêà 1'+floattostr(tek[1])); end else ShowMessage('ñèñòåìà íå ðàáîòàåò'); procedure TForm1.btn9Click(Sender: TObject); begin Timer1.Enabled:=True; end; end; procedure TForm1.btn7Click(Sender: TObject); begin if Timer1.Enabled then ShowMessage('Çíà÷åíèå äàò÷èêà 1='+inttostr(tek[1])); else ShowMessage('Ñèñòåìà íå çàïóùåíà'); end; procedure TForm1.btn8Click(Sender: TObject); begin timer1.Enabled:=True; end. помогите пожалуйста с программой в делфи

Answer 1

Ответ:

иимраишрчшрл

вдомвщосыдоор

сговш

Объяснение:

Answer 2

Конечно, я могу помочь с программой на Delphi. Однако код, который вы предоставили, имеет некоторые ошибки и недочеты. Вот исправленная версия вашего кода:

delphiCopy code
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, ExtCtrls;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Timer1: TTimer;
    Button1: TButton;
    Button2: TButton;
    btn9: TButton;
    btn7: TButton;
    btn8: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure btn9Click(Sender: TObject);
    procedure btn7Click(Sender: TObject);
    procedure btn8Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  t, i: Integer;
  opros: array[9..40] of Integer;
  znac, tek: array[1..3] of Real;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize;

  for i := 9 to 40 do
    opros[i] := Random(10) + 3;

  znac[1] := Random(41);
  znac[2] := Random(22) - 10;
  znac[3] := (Random(401) - 100) / 100;

  tek[1] := znac[1];
  tek[2] := znac[2];
  tek[3] := znac[3];

  with StringGrid1 do
  begin
    Cells[0, 0] := 'Текущее время';
    Cells[1, 0] := '1 аргумент ' + IntToStr(opros[9]) + ' сек';
    Cells[2, 0] := '2 аргумент ' + IntToStr(opros[10]) + ' сек';
    Cells[3, 0] := '3 аргумент ' + IntToStr(opros[11]) + ' сек';
  end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  t := t + 1;

  znac[1] := Random(41);
  znac[2] := Random(22) - 10;
  znac[3] := (Random(401) - 100) / 100;

  if (t mod opros[9]) = 0 then
    tek[1] := znac[1];
  if (t mod opros[10]) = 0 then
    tek[2] := znac[2];
  if (t mod opros[11]) = 0 then
    tek[3] := znac[3];

  with StringGrid1 do
  begin
    RowCount := RowCount + 1;
    Cells[0, t] := IntToStr(t) + ' сек';
    Cells[1, t] := FloatToStr(tek[1]);
    Cells[2, t] := FloatToStr(tek[2]);
    Cells[3, t] := FloatToStr(tek[3]);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled := not Timer1.Enabled;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if Timer1.Enabled then
  begin
    tek[1] := znac[1];
    ShowMessage('Текущее значение аргумента 1: ' + FloatToStr(tek[1]));
  end
  else
    ShowMessage('Таймер не запущен.');
end;

procedure TForm1.btn9Click(Sender: TObject);
begin
  Timer1.Enabled := True;
end;

procedure TForm1.btn7Click(Sender: TObject);
begin
  if Timer1.Enabled then
    ShowMessage('Значение аргумента 1: ' + IntToStr(tek[1]))
  else
    ShowMessage('Таймер не запущен.');
end;

procedure TForm1.btn8Click(Sender: TObject);
begin
  Timer1.Enabled := True;
end;

end.

Пожалуйста, обратите внимание, что я исправил ошибки в коде и сделал его более читаемым. Если у вас есть какие-либо дополнительные вопросы, не стесняйтесь задавать.