VPF::[Паскале]Нужно в матрице найти мин. элемент

smoke88

Дата 28.5.2006, 18:12 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 28.5.2006

Репутация: нет
Всего: нет

в матрице размером м*н, размер задается с клавы, найти минимальный элемент. все это на паскале. Кому не трудно, прошу помочь.

b44

Дата 28.5.2006, 19:27 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 80
Регистрация: 18.5.2006

Репутация: нет
Всего: нет

такую простенькую задачу не смог решить!

Код


uses crt;
const m=3;
          n=3;
var a: array [1..m, 1..n] of integer;
    min: integer;


i,j:integer;
begin
clrscr;
randomize;

for i:=1 to m do begin
   writeln;
   for j:=1 to n do begin
       a[i,j]:=random(41)+10;
       write(a[i,j],' ');
   end;
end;

min := a[1,1];

for i:=1 to m do begin
   writeln;
   for j:=1 to n do begin
     if a[i,j] < min then min := a[i,j];
   end;
end;
write('min = ', min);
readln;
end.

mr.Anderson

Дата 28.5.2006, 21:07 (ссылка)

(нет голосов)

Загрузка ...

iOS Lead Developer

Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: 16
Всего: 128

b44, во-первых, у тебя задачи были не сложнее. Это раз. Во-вторых, не надо говорить о том, что задача проста. Если человек не может ее решить, значит, он ее не знает, но это вовсе не значит, что он, извини за выражение, дурак (слова "такая простенькая задачка" именно на это и намекают). А в-третьих, насколько я вижу, в твоей программе есть ошибки.

--------------------

Pan1ca

Дата 1.7.2009, 22:09 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 1.7.2009

Репутация: нет
Всего: нет

ввод матрицы и опасинае переменных не пишу, только основной блок программы

min:=a[1,1];
for i:=1 to N do
for j:=1 to M do
if a[i,j]<min then
begin
min:=a[i,j];
writeln('min=', min);
end;

Neox_GeForce

Дата 1.7.2009, 22:29 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 283
Регистрация: 14.11.2007
Где: Украина

Репутация: нет
Всего: нет

гм... Учитесть читать .

Цитата

Размер аздается с клавы. Динамический массви надо сделать.

--------------------

Челябинские программисты настолько суровы, что обходятся без компиляторов.
Челябинские программисты настолько суровы, что считают ассемблер недопустительной роскошью - они вручную магнетизируют участки жесткого диска.

ИванМ

Дата 2.7.2009, 19:50 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1260
Регистрация: 19.6.2006
Где: СПб

Репутация: 13
Всего: 23

Код


uses crt;
type
Matrix=array[0..0] of integer;
PMatrix=^Matrix;
var
matr: PMatrix;
m, n, min_el: integer;
i, j: integer;
begin
     clrscr;
     write('m=');
     readln(m);
     write('n=');
     readln(n);
     GetMem(matr, m*n*sizeof(integer));
     for i:=0 to m-1 do
     for j:=0 to n-1 do
     begin
          write('m[',i+1,',',j+1,']=');
          readln(matr^[i*n+j]);
     end;
     writeln('matrix:');
     for i:=0 to m-1 do
     begin
          for j:=0 to n-1 do
          begin
               write(matr^[i*n+j],' ');
          end;
          writeln;
     end;
     min_el:=matr^[0];
     for i:=0 to m-1 do
     for j:=0 to n-1 do
     begin
          if matr^[i*n+j]<min_el then
             min_el:=matr^[i*n+j];
     end;
     write('Minimal element: ',min_el);
     readkey;
     FreeMem(matr, m*n*sizeof(integer));
end.

Это сообщение отредактировал(а) ИванМ - 2.7.2009, 20:21

mr.Anderson

Дата 3.7.2009, 15:30 (ссылка)

(нет голосов)

Загрузка ...

iOS Lead Developer

Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: 16
Всего: 128

Pan1ca, ты вообще дату последнего сообщения видел? Тема три года назад обновлялась. Пока обойдемся без предупреждений, но это в первый и последний раз.

M
mr.Anderson

[Модератор: тема закрыта.

--------------------

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »