IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Матрицы случайных чисел, Нужно сделать чтоб матрицы задавались не вручную
nblazhko
сообщение 23.12.2007 12:31
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 42
Пол: Мужской

Репутация: -  0  +


В этой проге нужно сделать чтобы матрицы задавались не вручную а рандомом,помогите пожалуйсто очень нужно





program Task2;
uses crt;
const n=4;m=3;
type matr=array [1..n,1..n] of integer;
var m1,m2,m3:matr;
i,j,k:integer;

procedure ReadMatr(var m:matr;k,l:integer);
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do begin
m[i][j]:=0;
end;

for i:=1 to k do
for j:=1 to l do
read(m[i][j]);
end;

function Obrabotka(m1,m2,m3:matr):integer;
var i,j,min1,min2,min3:integer;
begin
min1:=m1[1][1];
min2:=m2[1][1];
min3:=m3[1][1];

for i:=1 to n do
for j:=1 to n do
if min1>m1[i][j] then min1:=m1[i][j];
for i:=1 to n do
for j:=1 to n do
if min2>m2[i][j] then min2:=m2[i][j];
for i:=1 to n do
for j:=1 to n do
if min3>m3[i][j] then min3:=m3[i][j];

if (min1>=0) and (min2>=0) and (min3>=0) then Obrabotka:=0
else
if min1>min2 then
if min2>min3 then Obrabotka:=3
else Obrabotka:=2
else
if min1>min3 then Obrabotka:=3
else Obrabotka:=1;
end;

procedure WriteMatr(m:matr;k,l:integer);
var i,j:integer;
begin
for i:=1 to k do begin
writeln;
for j:=1 to l do
write(' ',m[i][j]:4);
end;
end;

begin
clrscr;
writeln('Vvedite 1-uy matricy razmerom ',n,' na ',m,' :');
ReadMatr(m1,n,m);
writeln('Vvedite 2-uy matricy razmerom ',n,' na ',n,' :');
ReadMatr(m2,n,n);
writeln('Vvedite 3-uy matricy razmerom ',m,' na ',m,' :');
ReadMatr(m3,m,m);
k:=Obrabotka(m1,m2,m3);
if k=0 then writeln('V matricah net otricatelnih elementov!')
else begin
writeln;
writeln('Matrica s maksimalno otricatelnim elementom!');
if k=1 then WriteMatr(m1,n,m)
else
if k=2 then WriteMatr(m2,n,n)
else WriteMatr(m3,m,m);
end;

readln;
readln;
end.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Client
сообщение 23.12.2007 12:35
Сообщение #2


Профи
****

Группа: Пользователи
Сообщений: 865
Пол: Мужской
Реальное имя: Вячеслав

Репутация: -  20  +


Цитата
for i:=1 to k do
for j:=1 to l do
read(m[i][j]);
Заменяешь на
 randomize;
. . .
for i:=1 to k do
for j:=1 to l do
m[i][j]:=random(100);


Сообщение отредактировано: Client - 23.12.2007 12:36
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
nblazhko
сообщение 23.12.2007 13:36
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 42
Пол: Мужской

Репутация: -  0  +


Спасибо выручил! smile.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 22.06.2025 2:00
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"