VPF::[Delphi] Матрица - Форум программистов

dies

Дата 2.5.2011, 10:22 (ссылка)

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

Загрузка ...

Новичок

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

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

Надо заполнить рандомно матрицу N на M и вывести минимальный элемент главной диагонали а код smile

mniip

Дата 2.5.2011, 11:10 (ссылка)

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

Загрузка ...

Новичок

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

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

Код


const
 m=10; {10 строк}
 n=10; {10 столбцофф}
 rnd=10; {числа от 0 до 9}
var
 i,j,max,k:integer;
 a:array[0..m,0..n]of integer;
...
begin
...
for i:=0 to m do
for j:=0 to n do a[i,j]:=random(rnd);
if n>m then k:=m else k:=n;
max:=0;
for i:=0 to k do
 if max<a[i,i] then max:=a[i,i];
{max - искомое число}
...
end.

mniip

Дата 2.5.2011, 15:51 (ссылка)

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

Загрузка ...

Новичок

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

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

А минимальное! тогда:

Код


const
 m=10; {10 строк}
 n=10; {10 столбцофф}
 rnd=10; {числа от 0 до 9}
var
 i,j,min,k:integer;
 a:array[0..m,0..n]of integer;
...
begin
...
for i:=0 to m do
for j:=0 to n do a[i,j]:=random(rnd);
if n>m then k:=m else k:=n;
min:=rnd;
for i:=0 to k do
 if min>a[i,i] then min:=a[i,i];
{min - искомое число}
...
end.

Serg90

Дата 11.5.2011, 11:27 (ссылка)

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

Загрузка ...

Новичок

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

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

Есть программа она с одномерным массивом, помогите переделать в двумерную. (Что бы сортировало таблицу)
uses crt;
var a:array [1..100]of integer;
    n,i,j,nmax,buf,k:integer;
Begin
clrscr;
write('razmer massiva n=');
readln(n);
for i:=1 to n do
begin
  write('a[',i,']=');
  readln(a[i]);
end;
clrscr;
writeln('ishodnii massiv:');
for i:=1 to n do
write(a[i],' ');
writeln;
writeln;
k:=0;
for i:=1 to n-1 do
  begin
    nmax:=i;
    for j:=i+1 to n do
    if a[j]<a[nmax] then nmax:=j;
    buf:=a[i];
    a[i]:=a[nmax];
    a[nmax]:=buf;
    k:=k+1;
  end;
writeln('uporyadochenii massiv: ');
for i:=1 to n do
write(a[i],' ');
writeln;
write('kol-vo obmenov=',k);
readln;
end.

losttop

Дата 17.5.2011, 19:05 (ссылка)

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

Загрузка ...

Новичок

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

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

Чет не получается smile

bems

Дата 17.5.2011, 20:32 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

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

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

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

Обижено школьников: 8

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