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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

38
{Нахождение максимальных и минимальных элементов среди
положительных и отрицательных знчений; сначала в качестве
экстремальных берутся первые элементы}
MaxNeg:=MatNeg[1]; MinNeg:=MatNeg[1];
MaxPos:=MatPos[1]; MinPos:=MatPos[1];
For i:=1 to NNeg do
Begin {обработка отрицательных элементов}
If MatNeg[i] > MaxNeg
Then MaxNeg:=MatNeg[i];
If MatNeg[i] < MinNeg
Then MinNeg:=MatNeg[i]
End;
For i:=1 to npl do {аналогично обрабатываются положительные
элементы}
Begin
If MatPos[i] > MaxPos
Then MaxPos:=MatPos[i];
If MatPos[i] < MinPos
Then MinPos:=MatPos[i]
End;
{-----Вывод результатов-----}
WriteLn;
WriteLn('результаты обработки массива положительных элементов');
If NPos = 0
Then WriteLn('положительных элемнтов в матрице нет')
Else begin
Write('NPos = ',Npos);
WriteLn(' MaxPos = ',MaxPos:8:2,' MinPos = ',MinPos:8:2);
WriteLn('MatPos = ');
For i:=1 to NPos do
Write(MatPos[i]:8:2);
WriteLn
end;
WriteLn('результаты обработки массива отрицательных элементов');
If Nneg = 0
Then WriteLn('отрицательных элементов в матрице нет')
Else begin
Write('NNeg = ',Nneg);
WriteLn(' MaxNeg = ',MaxNeg:8:2,' MinNeg = ',MinNeg:8:2);
For i:=1 to notr do Write(MatNeg[i]);
Write(MatNeg[i]:8:2);
WriteLn
End
END.
При обработке больших объемов данных использование рассмотрен-
ных приемов обмена между внешними и внутренними устройствами ком-

Страницы