Операции с одномерными и многомерными массивами

Програмирование в TurboPaskal 7.0

Отчет по лабораторной работе №5

Тема-операции с массивами

Цель работы – изучение операций с одномерными и многомерными массивами.

Выполнил: ст. гр.  ТО-07 Цыдыпов РБ.

                                                                                             Проверил: доц.  каф. ИКТ Журов Г.Н.

Дата: 28.04.08

Задание 1.Создать два одномерных массива по правилам , где   и  , где

Решение:

Program Vector_Matrix;

Var A:array[4..9] of real;

b:array[1..9] of real;

c:array[4..7,5..9] of real;

i,j:integer;

begin for i:=4 to 9 do

  a[i]:=i-sqrt(i);

 for j:=1 to 9 do

 b[j]:=j*sqrt(j);

  for i:=4 to 7 do for j:=5 to 9 do

    c[i,j]:=a[i]*b[j]+3;

writeln('Массив А');  for i:=4 to 9 do write(a[i]:4:1,'  ');

writeln;

writeln('Массив В');  for j:=1 to 9 do write(b[j]:4:1,'  ');

writeln;

writeln('Массив С'); for i:=4 to 7 do begin for j:=5 to 9 do

write(c[i,j]:5:1,'  ');

writeln; end; end.

Ответ:

Массив А

 2.0   2.8   3.6   4.4   5.2   6.0

Массив В

 1.0   2.8   5.2   8.0  11.2  14.7  18.5  22.6  27.0

Массив С

 25.4   32.4   40.0   48.3   57.0

 33.9   43.6   54.2   65.5   77.6

 42.7   55.2   68.8   83.3   98.9

 51.7   67.0   83.6  101.5  120.6

Задание 2. Элементы последовательности заданы рекуррентно. Составить программу вычисления и печати числа элементов последовательности, удовлетворяющих указанному неравенству.

   n=6

Program Matr;

Type Matrix=array[1..9,1..5] of real;

var a:matrix; sum,max:real; N_max: integer; i,j: integer;

Begin for i:=1 to 9 do for j:=1 to 5 do a[i,j]:=0.5*cos(ln(i+2*j)/ln(10));

writeln('Массив А'); for i:=1 to 9 do begin for j:=1 to 5 do

write(a[i,j]:6:3,'  ');

writeln; end;

sum:=0; for i:=1 to 9 do begin if odd(i)=false then begin Max:=a[i,1];

for j:=2 to 5 do if max>a[i,j] then begin max:=a[i,j];

N_max:=j; end; sum:=sum+max; Writeln(i:2, ' строка: ',  ' наибольший элемент в',N_max:j, ' столбце ',

 ' равен ', Max:6:3); end; end; writeln('Сумма наименьших элементов равна ',sum:6:3); end.

Ответ

Массив А

 0.444   0.383   0.332   0.289   0.253

 0.412   0.356   0.310   0.270   0.236

 0.383   0.332   0.289   0.253   0.221

 0.356   0.310   0.270   0.236   0.206

 0.332   0.289   0.253   0.221   0.192

 0.310   0.270   0.236   0.206   0.179

 0.289   0.253   0.221   0.192   0.167

 0.270   0.236   0.206   0.179   0.155

 0.253   0.221   0.192   0.167   0.144

 2 строка:  наибольший элемент в    5 столбце  равен  0.236

 4 строка:  наибольший элемент в    5 столбце  равен  0.206

 6 строка:  наибольший элемент в    5 столбце  равен  0.179

 8 строка:  наибольший элемент в    5 столбце  равен  0.155

Сумма наименьших элементов равна  0.776

Задание 3.  найти элементы двумерного массива , где I = 1,…,K;  j = 1,…,L  по правилу . Упорядочить массив А по убыванию элементов целой части столбца с номером 6. Вывести на печать исходный и отсортированный массивыю