Помогите написать программу на паскале

[коржик1]

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

[alex_fcsm]

Почитайте про randomize

[коржик1]

огромное спасибо! а как сделать так, чтобы при запуске проги, каждый раз формировалась новая матрица?

[alex_fcsm]

Просто вначале программы вставьте оператор Randomize;

[коржик1]

Сформировать матрицу М вещественного типа в диапазоне [-3.0, 5.0].
Определить min и max элементы матрицы.
Поменять местами строки содержащие min и max элементы. Если оба они находятся в одной строке, то поменять местами столбцы.
Вывести исходную и полученную матрицы, max и min.
и нужно с помощью процедур и функций все делать

program cursovaia;
type MATR=ARRAY[1..6,1..6] of real;
var
x:matr;
i,j:integer;


procedure form(k,k1:integer;var x:matr);
var
i,j,N:integer;
begin
for i:=1 to 6 do
for j:=1 to 6 do
x[i,j]:=random*k-k1;
end;


procedure vivod(x:matr);
var
i,j:integer;
begin
for i:=1 to 6 do
begin
for j:=1 to 6 do
write(x[i,j]:6:2,' ');
writeln;
end;
end;

begin
form(6,6,x);
vivod(x);
readln;
end.

for i:=1 to mas_size do
for j:=1 to mas_size1 do
mas[i,j]:=random(8)-3;

min:=mas[1,1];
for i:=1 to mas_size do
for j:=1 to mas_size1 do
if mas[i,j]<min then begin min:=mas[i,j]; index1:=i;
indexj1:=i end;

max:=mas[1,1];
for i:=1 to mas_size do
for j:=1 to mas_size1 do
if mas[i,j]>max then begin max:=mas[i,j]; index2:=i;
indexj2:=i end;

if indexj=index2 then
for i:=1 to mas_size do
for j:=1 to mas_size1 do
begin
temp:=mas[ indexj1];
mas[ indexj1]:=mas[ indexj2]
mas[ indexj2]:=temp;
end;

дальше я окончательно запуталась, и не знаю как оформить все с помощью процедур и функций(((

[alex_fcsm]

Немного подправил.

program cursovaia;
uses crt;
const n=6;
type MATR=ARRAY[1..n,1..n] of real;
var  x:matr;
     maxi,maxj,mini,minj,i,j:integer;


procedure form(var x:matr);
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
x[i,j]:=(random(801)-300)/100;
end;


procedure vivod(x:matr);
var
i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
write(x[i,j]:6:2,' ');
writeln;
end;
end;

procedure FindMax(x:matr;var a,b:integer);
begin
a:=1;b:=1;
for i:=1 to n do
 for j:=1 to n do
  if x[i,j]>x[a,b] then begin
                          a:=i;
                          b:=j;
                        end;
 
end;

procedure FindMin(x:matr;var a,b:integer);
begin
a:=1;b:=1;
for i:=1 to n do
 for j:=1 to n do
  if x[i,j]<x[a,b] then begin
                          a:=i;
                          b:=j;
                        end;

end;

function Change(a,b,c,d:integer):matr;
var q:Matr;
    temp:real;
begin
q:=x;
if a<>c then begin
        for i:=1 to n do
         begin
           temp:=q[a,i];
           q[a,i]:=q[c,i];
           q[c,i]:=temp;
         end;
       end
   else begin
         for i:=1 to n do
         begin
           temp:=q[i,b];
           q[i,b]:=q[i,d];
           q[i,d]:=temp;
         end;
        end;
Change:=q;
end;


begin
clrscr;
form(x);
vivod(x);
writeln('================================');
FindMax(x,maxi,maxj);
writeln('Max:',x[maxi,maxj]:6:2);
FindMin(x,mini,minj);
writeln('Min:',x[mini,minj]:6:2);
x:=Change(maxi,maxj,mini,minj);
vivod(x);
readln;
end.

Будут вопросы - задавайте, но только постепенно

[коржик1]

а у меня программа не работает((

[Stilet]

Одна тема - один автор. Закрываю.