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

[Argontarg]

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

Т.е. вводим через edit массив к примеру 5 на 5. Далее при нажатии кнопки программа должна найти числа в массиве кратные 3 и кратные 5 и дальше уже в label1 и label2 вывести их сравнение, т.е в 1-й label к примеру выводится общее число чисел кратных 3, во второй 5-ти. Подскажите реализацию данной задачи?

[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.

Идея ясна?

[Streletz]

Общий совет. Для нахождения кратных чисел воспользуйтесь признаками делимости.
Признак делимости на 5. Последняя цифра числа или 0 или 5.
Признак делимости на 3. Сумма всех цифр числа делится на 3. Пример можно посмотреть здесь: Признаки делимости на 3, 6 и 9.

[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.

Идея ясна?

Вроде как ясно, но что означает i:=Low(a); j:=low(a[i]); ?

[Stilet]

Небольшой а?

Малый )
Читай хелп по этим функциям - это для определения индексов массива.

[Argontarg]

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

Малый )
Читай хелп по этим функциям - это для определения индексов массива.

Ясно) ок) Спасибо)

[Serge_Bliznykov]

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

Общий совет. Для нахождения кратных чисел воспользуйтесь признаками делимости.
Признак делимости на 5. Последняя цифра числа или 0 или 5.
Признак делимости на 3. Сумма всех цифр числа делится на 3. Пример можно посмотреть здесь: Признаки делимости на 3, 6 и 9.

Зачем???!!
В случае устного счёта, ладно, допускаю Ваш подход, но в случае вычислительной задачи
код

if (N mod 5) = 0 then // число делится на 5
if (N mod 3) = 0 then // число делится на 3

более чем подходит!
всё это имхо, разумеется!

p.s. про простоту/наглядность/надёжность и универсальность я уже и не говорю.
представьте, например, что вместо 3 и 5 даны числа 11 и 13, 19 и 21, или 89 и 257

[Streletz]

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

Зачем???!!
В случае устного счёта, ладно, допускаю Ваш подход, но в случае вычислительной задачи
код

if (N mod 5) = 0 then // число делится на 5
if (N mod 3) = 0 then // число делится на 3

более чем подходит!
всё это имхо, разумеется!

p.s. про простоту/наглядность/надёжность и универсальность я уже и не говорю.
представьте, например, что вместо 3 и 5 даны числа 11 и 13, 19 и 21, или 89 и 257

Можно ещё с помощью функции frac. Хотя, учитывая особенности машинного представления вещественных чисел, в данном случае становится актуальным вопрос точности.
На самом деле очень часто задачу можно решить более чем 1 способом. Какой из них лучше, ИМХО чаще всего определяется исходя из сути и контекста задачи. Истинной сути и истинного контекста никто, кроме ТС, не знает, если он конечно не выложит полностью проект и/или ТЗ.
Поэтому ИМХО, в общем случае, все подходы имеют равное право на существование.

[Аватар]

Streletz, есть еще понятие эффективности алгоритма. Можно вообще найти все делители и проверить, а попадает ли в них 3 или 5. Эффективно? Или придумать способ с использованием интегрального или дифференциального исчисления, который будет работать. Так что алгоритм с mod имеет больше всего прав на существование по причине максимальной эффективности. И ни каких равных прав

[Streletz]

Так что алгоритм с mod имеет больше всего прав на существование по причине максимальной эффективности.

Если вопрос вычислительной эффективности алгоритма критичен безусловно. Но это уже ИМХО не общий случай, а конкретный контекст задачи.