Язык программирования Pascal. Регулярные типы данных. Васильев В.В - 15 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

15
{Сдвиг массива на k позиций}
for i:=1 to n-k do y[i+k]:=x[i];
for i:=n-k+1 to n do y[i-(n-k)]:=x[i];
x:=y;
{Вывод преобразованного массива}
writeln(‘Преобразованный вектор:');
for i:=1 to n do
begin
write(x[i]:7:2,' ');
if i mod 10 = 0 then writeln
end;
readkey;
End.{Go}
В следующей части лабораторной работы мы познакомимся с некоторыми
задачами обработки двумерных массивов.
3. Матрицы . Заполнение, ввод-вывод, поиск,
преобразование
В первой задаче заполним матрицу заданным способом.
Задача 1. Получите целочисленную матрицу A размером 8x14, для кото-
рой a
ij
=i+2j.
♣ Организуем два вложенных цикла. Параметр внешнего цикла i задает
номера строк. Параметр внутреннего цикла j - номера столбцов. В тело вло-
женного цикла поставим оператор присваивания значения элементу a
ij
и опе-
ратор вывода значения этого элемента на экран . ♣
Program Matr;
Uses crt;
Var i,j:integer; a:array[1..8,1..14] of integer;
Begin
Textbackground(7); Textcolor(blue); Clrscr;
for i:=1 to 8 do
begin
for j:=1 to 14 do
begin a[i,j]:=i+2*j;
write(a[i,j]:4)
end;
writeln {перевод строки }
end;
readkey
End.{Matr}
Рассмотрим задачу, связанную с поиском элементов, обладающих указан -
ным свойством.
Задача 2. Пусть дана вещественная матрица размером 6x9. Найдите сред-
нее арифметическое наибольшего и наименьшего значений ее элементов, рас-

Страницы