Просьба с помощью к программистам.⁠⁠

Работаем в Delphi7. Дали зачетную работу, в которой 5 из 7 заданий мы не проходили, только на Pascal.
6 из 7 заданий сделал.
Не могу последнее, пол ночи просидел, методом подбора пытался скомпилировать программу. Пол Интернета облазил, но правильно переписать код на Delphi не могу.
Помогите, у кого есть свободное время и желание помочь.
Условие:
Дана матрица размера M × N. Найти минимальный среди максимальных элементов ее столбцов.

Вы смотрите срез комментариев. Показать все

drossha

10 лет назад

кидай код ))

раскрыть ветку (10)

drochumba

10 лет назад

Вот на Паскале. В нем все отлично получается. А идеально точно преобразовать не получается.
program zada4a;
Uses
Crt;
const
m = 5;
n = 5;
Var
mas: array[1..m][1..n] of integer;
mas_mx: array[1..n] of integer;
i, j, k: byte;
min, max: integer;
Begin
randomize;
max := 0;
min := 0;
k := 1;
for i := 1 to m do
for j := 1 to n do
begin
mas[i,j] := random(100) - 57;
write(a[i,j],' ');
if (j mod 5 = 0) then
writeln;
end;
for j := 1 to n do
begin
max := 0;
for i := 1 to m do
if (mas[i,j] > max) then
max := mas[i,j];
mas_mx[k] := max;
k := k + 1;
end;
for k := 1 to n do
if (max_mx[k] < min) then
min := max_mx[k];
writeln('Минимальный элемент ', min);
readln;
End.

раскрыть ветку (9)

drossha

10 лет назад

Как-то так
const
M = 5;
N = 5;
MAX_ = 90;
var
a: array [1..M, 1..N] of integer;
i, j: integer;
min, max: integer;
begin
randomize;
min := MAX_+1;
for i:=1 to M do
begin
for j:=1 to N do
begin
a[i][j]:=random(MAX_)+10;
write(a[i,j],' ');
end;
writeln;
end;
for j := 1 to N do
begin
max := a[1,j];
for i:=1 to M do
begin
if(a[i,j]>max) then max := a[i,j] ;
end;
if(max<min) then min := max;
end;
writeln('Min = ',min);
readln;
end.

раскрыть ветку (8)

drochumba

10 лет назад

Так код, который я кидал - рабочий. Ты написал на Паскале.
А нужно на Delphi
Всякие IntToStr, Edit-ы всякие и т.д.

раскрыть ветку (1)

drossha

10 лет назад

Нахрена там эдиты и inttostr?)

drochumba

10 лет назад

Хотя твой код сохраню, может его попробую преобразовать.

раскрыть ветку (5)

drossha

10 лет назад

Он как раз и написан на delphi. Console application.

раскрыть ветку (4)

drochumba

10 лет назад

Вот мой кривой листинг.
unit Unit1;

interface

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

type
TForm1 = class(TForm)
btn1: TButton;
Label1: TLabel;
Label2: TLabel;
strngrd1: TStringGrid;
mmo1: TMemo;
procedure btn1Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
const
m = 5; n = 5;
Var i,j,k, max,min:Integer; mas:array[1..m,0..n] of Integer; mas_mx:array[1..n] of Integer;
begin
Randomize;
max:=0;
min:=0;
k:=1;
for i:=0 to m-1 do
for j:=0 to n-1 do
begin
mas[i,j]:=random(50);
Strngrd1.Cells[i,j]:=IntToStr(mas[i,j]);
end;
for i:= 0 to m-1 do
begin
max:=mas[1,j];
for j:=1 to n-1 do
begin
if mas[i,j] > max then
max:= mas[i,j];
if max<min then
min:=max;
end;
Label1.Caption:=('Минимальный элемент='+IntToStr(min));
end;

end;

end.

procedure TForm1.edt1Change(Sender: TObject);
begin
Strngrd1.ColCount := StrToInt(Edit1.Text);
Strngrd1.RowCount := StrToInt(Edit1.Text);
end;
end.

раскрыть ветку (3)

drochumba

10 лет назад