Программирование в среде Турбо Паскаль. Закутский С.Н - 49 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

49
i:=1;
Repeat
MinY:=y[i];
For j:=i+1 to l do
If y[j] < MinY
Then begin
MinY:=y[j];
y[j]:=y[i];
y[i]:=MinY;
End;
i:=i+1;
Until i > l-1;
i:=1;
Repeat
MinZ:=z[i];
For j:=i+1 to k do
If z[j] < MinZ
Then begin
MinZ:=z[j];
z[j]:=z[i];
z[i]:=MinZ;
End;
i:=i+1;
Until i > k-1;
{Выбор длины строки в матрице А}
If (n < l) and (n < k)
Then m:=n
Else if (l < n) and (l < k)
Then m:=l
Else m:=k;
{Формирование матрицы А}
For i:=1 to 3 do
For j:=1 to m do
If i=1
Then Matr[i,j]:=x[j]
Else if i=2
Then Matr[i,j]:=y[j]
Else Matr[i,j]:=z[j];
{Вывод матрицы А}
WriteLn('Матрица результата работы программы');
For i:=1 to 3 do
Begin
For j:=1 to m-1 do
Write(Matr[i,j]:5:2, ' ');
WriteLn(Matr[i,m]:5:2);
End;

Страницы