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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

50
{Конец программы}
Write('Нажми Enter'); ReadLn;
END.
{Вариант 2 решения задачи (c подпрограммой-процедурой)}
Type a = array [1..100] of real;
b = array [1..100,1..3] of real;
Var i,j,n,l,k,m : byte;
x,y,z,xx,yy,zz : a;
Matr : b;
{--------------------------------------------}
Procedure Ord(w : a; nn : byte; var ww : a);
Var MinW : real;
Begin {Тело процедуры}
{Организация сортировки исходных массивов}
i:=1; MinW:=w[1];
Repeat
For j:=i+1 to nn do
If w[j] < MinW
Then MinW:=w[j];
ww[i]:=MinW; i:=i+1;
Until i > nn;
End;
{--------------------------------------------}
BEGIN
{Начало основной программы}
Write('Ввести n, l, k '); ReadLn(n, l, k);
WriteLn('Ввести последовательно массивы x, y, z');
For i:=1 to n-1 do
Read(x[i]);
ReadLn(x[n]);
For i:=1 to l-1 do
Read(y[i]);
ReadLn(y[l]);
For i:=1 to k-1 do
Read(z[i]);
ReadLn(z[k]);
{Обращение к процедуре Оrd для сортировке исходных массивов}
Ord(x,n,xx);
Ord(y,l,yy);
Ord(z,k,zz);
{Выбор длины строки в матрице А}
If (n < l) and (n < k)
Then m:=n
Else if (l < n) and (l < k)
Then m:=l

Страницы