🕵️‍♂️ Тема уроку: Урок алгебри" by Тетяна

Кадя Кирило інформатика

2026-04-28 08:23:32 UTC

елькін єгор

2026-04-28 08:24:46 UTC

вепхвадзе

2026-04-28 08:29:09 UTC

Кадя кирило дубль два інформатика

2026-04-28 08:32:39 UTC

2026-05-01 05:34:08 UTC

Var

Form1: TForm1;

A: array [1…6] of Integer;

implementation

{SR * . 1fm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);

var

i: Integer;

begin

for i := 1 to 6 do

StringGrid1.Cells[i - 1, 0]

:= IntToStr(i);

end;

procedure TForm1. Button1Click(Sender: Object);

var i: Intereger;

Begin

For i:= 1 to 6 do

Begin

A[i]:= StrToInt(input Box)

Картельова Ліза

2026-05-01 05:36:45 UTC

var

Form1: TForm1;

A: array[1 . . 6] of Integer;

implementation

{$R * . 1fm}

{ TForm1 }

procedure TForm1 . FormCreate (Sender: TObject) ;

var i: Integer;

begin

For i := 1 to 6 do StringGridl.Cells [i-1, 0] := IntToStr(i);

procedure TForm1 . ButtonClick( Sender: TObject) ;

var i: Integer;

begin

For i := 1 to 6 do

begin

A{i} := StrToIht (InputBox( ' Уведіть значення елемента ' , ' A{' + IntToStr (i) + '} :', '0' )) ;

StringGridl.Cells

2026-05-01 05:37:22 UTC

Карпляк Анастасия

2026-05-06 10:23:43 UTC

Var

Form1:TForm1;

A:array[1...6] of

Integer;

implementation

{SR*.1fm}

{TForm1}

Procedure

TForm1.FormCreate(S

ender: Tobject);

var

i: Integer;

begin

for i :=1 to 6 do

StringGrid1.Cells[i-1,0]

:= IntToStr(i)

end;

procedure TForm1.

Button1Click(Sender: Object);

var i: Intereger;

Begin

Form1:=1 to 6 do

Begin

A[i]:=StrToInt (input

Box)

Павловська Анастасия

2026-05-06 10:25:28 UTC

var

Form1: TForm1;

A: array[1..6] of Integer;

implementation

procedure TForm1.FormCreate(Sender: TObject);

var i: Integer;

begin

for i := 1 to 6 do

StringGrid1.Cells[i-1, 0] := IntToStr(i);

end;

procedure TForm1.Button1Click(Sender: TObject);

var i: Integer;

begin

for i := 1 to 6 do

begin

A[i] := StrToInt(InputBox('Введення', 'Число ' + IntToStr(i), '0'));

StringGrid1.Cells[i-1, 1] := IntToStr

(A[i]);

end;

Картельова Ліза

2026-05-06 10:26:42 UTC

var

Form1:TForm1;

A:array[1..6] of Integer;

implementation

{$R*.Ifm}

{TForm}

procedure TForm1.FormCreate(Sender: TObject);

var i:Integer;

begin

For i:=1 to 6 do StringGrid1.Cells[i-1, 0]:=IntToStr(i);

end;

procedure TForm1.Button1Click(Sender: TObject);

var i:Integer;

begin

For i:=1 to 6 do

begin

A[i]:=StrToInt(InputBox('Уведіть значення елемента ','A[' + IntToStr(i) + ']:', '0')); StringGrid1.Cells[i-1, 1]:=IntToStr(A[i]);

end;

procedure TForm1.Button2Click(Sender: TObject);

var i:Integer;

Prap,Prap2:Boolean;

begin

Prap:=True;

For i:=2 to 6 do

If A[i]<=A[i-1] Then Prap:=False;

If Prap then

Label1.Caption:='За зростанням'

else

begin

Prap2:=True;

For i:=2 to 6 do If A[i]>=A[i-1]Then Prap2:=False;

if Prap2 then Label1.Caption:='За спаданням' else

Label1.Caption:='Неупорядкована послідовність';

end;

2026-05-06 10:31:08 UTC

Var

Form1: TForm1;

A: array[1..6] of Integer;

implementation

{SR *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);

var

i: Integer

begin

for i := 1 to 6 do

StringGrid1.Cells[i-1, 0] := IntToStr(i);

end;

procedure

TForm1.Button1Click(Sender: TObject);

var

i: Integer;

Шляпужникова

2026-05-06 10:37:29 UTC

var

Form1: TForm1;

A: array[1..6] of Integer;

implementation

{$R *.Ifm}

{ TForm1 }

prodecure TForm1.FormCreate(Sender: TObject);

var i: Integer;

begin

For i:= 1 to 6 do StringGrid1.Cells[i-1, 0] := IntToStr(i);

end;

prodecure TForm1.Button1Click(Sender: TObject);

var i: Integer;

For i:= 1 to 6 do

begin

A[i] := StrToInt(InputBox('Уведіть значення елемента ','A[' + IntToStr(i) + ']:', '0'));

end

end;

prodecure TForm1.Button2Click(Sender: TObject);

var i: Integer;

Prap, Prap2: Boolean;

begin

Prap := True;

For i:= 2 to 6 do

If A[i] <= A[i-1] Then Prap := False;

If Prap then

Label1.Caption := 'За зростання'

else

begin

Prap2 := True;

For i:= 2 to 6 do

If A[i] >= A[i-1] Then Prap2 := False;

if Prap2 then

Label1.Caption := 'За зростання'

else

Label1.Caption := 'Неупорядкована послідовність';

end;