Найти номер первого из ее столбцов, содержащих максимальное количество одинаковых элементов (Delphi)

[ALEXandr20333]

Дана целочисленная матрица размера MxN. Найти номер первого из ее столбцов, содержащих максимальное количество одинаковых элементов.

[ALEXandr20333]

помогите переделать паскалевский код в делфи (и что нужно будет кинуть на форму)

program Matrix41;
var
t,otvet,k,temp,j,i,M,N:integer;
a: array [1..10,1..10] of integer;
begin
// Ввод данных 
writeln('Введите числа M (M<=10) и N (N<=10)');
read(M); readln(N);
writeln('Введите по ',N,' элементов (значения от 0 до 100) ');
for i:=1 to M do begin
write(i,' строки : ');
for j:=1 to N do read(a[i,j]);
end;
// Решение 
otvet:=0;
t:=0;
for i:=1 to N do
begin
temp:=0;
for j:=1 to M-1 do
begin
for k:=j+1 to M do
begin
if a[j,i]=a[k,i] then inc(temp);
end;
end;
if temp>otvet then begin t:=i; otvet:=temp;end;
end;
// ответ 
writeln;
writeln('Ответ');
writeln('Номер столбца ',t );
end.

[Arigato]

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

Для оконной: для ввода значений пойдет TEdit. Ввод массива можно сделать в таблице - TStringGrid. Ну кнопки там всякие, TLabel.

[ALEXandr20333]

ПОМОГИТЕ РЕШИТЬ ЭТУ ЗАДАЧУ НА ДЕЛФИ (НЕ В КОНСОЛИ ТОЛЬКО) Дана матрица c целыми числами размера АxN. Найти номер первого из ее столбцов, содержащих максимальное количество одинаковых элементов.
ЭТО КОД ПАСКАЛЯ А МНЕ НАДО В ДЕЛФИ

program Matrix41;
var
t,otvet,k,temp,j,i,M,N:integer;
a: array [1..10,1..10] of integer;
begin
// Ввод данных
writeln('Введите числа M (M<=10) и N (N<=10)');
read(M); readln(N);
writeln('Введите по ',N,' элементов (значения от 0 до 100) ');
for i:=1 to M do begin
write(i,' строки : ');
for j:=1 to N do read(a[i,j]);
end;
// Решение
otvet:=0;
t:=0;
for i:=1 to N do
begin
temp:=0;
for j:=1 to M-1 do
begin
for k:=j+1 to M do
begin
if a[j,i]=a[k,i] then inc(temp);
end;
end;
if temp>otvet then begin t:=i; otvet:=temp;end;
end;
// ответ
writeln;
writeln('Ответ');
writeln('Номер столбца ',t );
end.

[ALEXandr20333]

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

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

Для оконной: для ввода значений пойдет TEdit. Ввод массива можно сделать в таблице - TStringGrid. Ну кнопки там всякие, TLabel.

А что именно надо переделать в самом коде

[Stilet]

Все. writeln заменить на какие нить Memo.Lines.Add()
Readln заменить на Edit или InputBox. Я же давал пример, неужели ненаглядный?

[Arigato]

procedure TForm1.Button1Click(Sender: TObject);
var
t,otvet,k,temp,j,i,M,N:integer;
a: array [1..10,1..10] of integer;
begin
// Ввод данных
m:=strtoint(inputbox('Ввод данных', 'Введите число M (M<=10)', '0'));
n:=strtoint(inputbox('Ввод данных', 'Введите число N (N<=10)', '0'));
for i:=1 to M do begin
for j:=1 to N do
a[i,j]:=strtoint(inputbox('Введите по '+inttostr(N)+' элементов (значения от 0 до 100) ',
inttostr(i)+' строки : ', '0'));
end;
// Решение
otvet:=0;
t:=0;
for i:=1 to N do
begin
temp:=0;
for j:=1 to M-1 do
begin
for k:=j+1 to M do
begin
if a[j,i]=a[k,i] then inc(temp);
end;
end;
if temp>otvet then begin t:=i; otvet:=temp;end;
end;
// ответ
messagebox(handle,pchar('Номер столбца '+inttostr(t)) ,'Ответ',mb_iconinformation);
end;

[ALEXandr20333]

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

procedure TForm1.Button1Click(Sender: TObject);
var
t,otvet,k,temp,j,i,M,N:integer;
a: array [1..10,1..10] of integer;
begin
// Ввод данных
m:=strtoint(inputbox('Ввод данных', 'Введите число M (M<=10)', '0'));
n:=strtoint(inputbox('Ввод данных', 'Введите число N (N<=10)', '0'));
for i:=1 to M do begin
for j:=1 to N do
a[i,j]:=strtoint(inputbox('Введите по '+inttostr(N)+' элементов (значения от 0 до 100) ',
inttostr(i)+' строки : ', '0'));
end;
// Решение
otvet:=0;
t:=0;
for i:=1 to N do
begin
temp:=0;
for j:=1 to M-1 do
begin
for k:=j+1 to M do
begin
if a[j,i]=a[k,i] then inc(temp);
end;
end;
if temp>otvet then begin t:=i; otvet:=temp;end;
end;
// ответ
messagebox(handle,pchar('Номер столбца '+inttostr(t)) ,'Ответ',mb_iconinformation);
end;

А если в memo выводить как будет выглядеть ответ

[Arigato]

Зачем мемо, если ответ только один?

[ALEXandr20333]

ну мне надо чтобы матрица была через StringGrid и вывод в memo или в edit