Лабораторный практикум по программированию на языке Pascal. Суркова Е.В. - 46 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

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

Рубрика: 

45
begin
for j:=1 to m do
write(a[i,j]:3);
writeln;
end;
Как можно заметить, этот фрагмент очень похож на блок формирования и
вывода исходной матрицы. Отличие состоит в том, что тело «внутреннего»
цикла содержит всего один оператор вывода, поэтому он не заключается в опе-
раторные скобки
begin..end.
Итак, соединив фрагменты в единое целое, получим текст программы:
program lab_6;
uses crt;
const n=5;
m=7;
type matr=array[1..n,1..m] of byte;
var a:matr;
i,j,j_min,min:byte;
begin
writeln;
writeln(’ Автор – Иванов И.П., студент гр. ИСЭд-11’);
writeln(’ Вариант № 100’);
writeln(’ Дана матрица A(n×m) целых положительных двузначных
чисел.’);
writeln(’ Минимальные элементы строк заменить нулями.’);
writeln(’ Исходную матрицу сгенерировать случайным.’);
writeln;
{$R+} {Включение контроля значений индексов}
clrscr; {Очистка экрана}
writeln(’Исходная матрица’);
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(90)+10;
write(a[i,j]:3);
end;
writeln;
end;
for i:=1 to n do
begin
j_min:=1;
min:=a[i,1];
for j:=1 to m do

Страницы