Здравствуйте! Работа с массивом! Нужно найти кратные 3 и 5 и сравнить их количество друг с другом!

[Argontarg]

Сообщение от Stilet

Предлагаю вводить массив так:

unit Unit1;

{$mode objfpc}{$H+}

interface

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

type

  { TForm1 }

  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure Edit1KeyPress(Sender: TObject; var Key: char);
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var  a:array[1..5,1..5] of integer; i,j:integer;
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
  i:=Low(a); j:=low(a[i]);
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: char);
begin
  if key=#13 then begin
    a[i,j]:=StrToIntDef(TEdit(Sender).Text,0);
    inc(j);
    if j>High(a[i]) then begin
      inc(i);
      if i>High(a) begin
         ShowMessage('ввод массива окончен');
         i:=Low(a);
      end;
      j:=low(a[i]);
    end;
  end;
end;

end.

Идея ясна?

Что то ошибку выдаёт. А нельзя обычный ввод массивов сделать, чтобы вводить в Edit, а он их в label выстраивал? а потом уже с помощью кнопки он отсевал в один лабел кол-во тех , что делится на 3, и в другой тех, что делится на 5?

[Stilet]

Что то ошибку выдаёт.

Бывает )

А нельзя обычный ввод массивов сделать, чтобы вводить в Edit, а он их в label выстраивал?

Можно.

with TStringList.Create do begin
 Delimiter:=' ';
 DelimitedText:=Edit1.Text;
 for i:=0 to Count-1 do begin
  strings[i] дает очередной элемент, введенный в Эдит через пробел
 end;
 free;
end;

А вообще не выеживайся, и используй StringGrid для двумерных массивов.

[Argontarg]

Сообщение от Stilet

Бывает )

Можно.

with TStringList.Create do begin
 Delimiter:=' ';
 DelimitedText:=Edit1.Text;
 for i:=0 to Count-1 do begin
  strings[i] дает очередной элемент, введенный в Эдит через пробел
 end;
 free;
end;

А вообще не выеживайся, и используй StringGrid для двумерных массивов.

var
i:integer;
begin
with TStringList.Create do begin
 Delimiter:=' ';
 DelimitedText:=Edit1.Text;
 for i:=0 to Count-1 do begin
  strings[i];
  Label1.Caption:=inttostr(i);
 end;
 free;
end;

написал так, но когда ввожу в edit, в label пишет просто кол-во цифр), а нужно чтобы выстраивал опр. массив 5 на 5 там к примеру. Ну или хотя бы, чтобы рандомно вводилось само по нажатию кнопки тогда?!

[Streletz]

в label пишет просто кол-во цифр), а нужно чтобы выстраивал опр. массив 5 на 5 там к примеру.

Простите, но TLabel для этого, не предназначен. Используйте TStringGrid, как Вам советовали выше.

[Argontarg]

Сообщение от Streletz

Простите, но TLabel для этого, не предназначен. Используйте TStringGrid, как Вам советовали выше.

Ок хорошо!

[Argontarg]

var
r : array[1..10, 1..10] of integer;
i, j: integer;

begin
for i:=1 to 10 do
for j:=1 to 10 do
r[i,j]:=StrToInt(StringGrid1.Cells[j-1,i-1]);
end;

Вот такой простенький массив сделал, но как заполнить его рандомно? Куда там правильно поместить Randomize?!

[Serge_Bliznykov]

Сообщение от Argontarg

var
r : array[1..10, 1..10] of integer;
i, j: integer;

begin
for i:=1 to 10 do
for j:=1 to 10 do
r[i,j]:=StrToInt(StringGrid1.Cells[j-1,i-1]);
end;

Вот такой простенький массив сделал, но как заполнить его рандомно?

например, числами от 1 до 100:

  Stringgrid1.RowCount := 10;  {10 строк}
  StringGrid1.ColCount :=  10;  {10 столбцов}
  for i:=0 to StringGrid1.RowCount-1 do
    for j:=0 to StringGrid1.ColCount-1 do
       StringGrid1.Cells[j,i] := IntToStr(  Random(100)+1 );

Сообщение от Argontarg

Куда там правильно поместить Randomize?!

Randomize достаточно вызывать один раз, например, при создании формы (в событии FormCreate допишите:

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

[Argontarg]

Сообщение от Serge_Bliznykov

например, числами от 1 до 100:

  Stringgrid1.RowCount := 10;  {10 строк}
  StringGrid1.ColCount :=  10;  {10 столбцов}
  for i:=0 to StringGrid1.RowCount-1 do
    for j:=0 to StringGrid1.ColCount-1 do
       StringGrid1.Cells[j,i] := IntToStr(  Random(100)+1 );

Randomize достаточно вызывать один раз, например, при создании формы (в событии FormCreate допишите:

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

Не пашет, я вставил это в кнопку var
r : array[1..10, 1..10] of integer;
i, j: integer;

begin
for i:=1 to 10 do
for j:=1 to 10 do
r[i,j]:=StrToInt(StringGrid1.Cells[j-1,i-1]);
end;
В форму Randomize; просто вписал после begina - не пашет.
В саму кнопку после begina вписал тоже не пашет.

[Аватар]

Не пашет

Random наверно белым цветом в коде. Поэтому и не пашет (целину что ли?)

[Argontarg]

Сообщение от Аватар

Random наверно белым цветом в коде. Поэтому и не пашет (целину что ли?)

И, что тогда делать? нет не целину.