Примеры задач

Двумерные массивы

Пусть даны вещественные числа Х1, … , Х8. Получите квадратную матрицу порядка 8, образованную по правилу:

Методика решения

Используемые переменные:
I,j - номера элемента массив,
R – получившийся массив.

Для начала в цикле считываем с экрана 8 чисел и записываем их в первую строку массива.

Затем формируем следующие строки. Для того чтобы вычислить элемент, мы умножаем соответствующее число из предыдущей строки на число из первой строки массива ( r[I,j]:=r[i-1,j]*r[1,j] ) , таким образом увеличиваем степень.

Затем выводим получившуюся матрицу на экран.

Замечание:

При выводе массива на экран возникает некоторая трудность в связи, например, со степенями числа 0,1 (или ему подобного), так как результат округляется до нуля.

Листинг программы

Program ex3_2;

Uses crt;

var i,j:integer;

r:array [1..8,1..8] of real;

begin

clrscr;

Writeln ('Введите 8 чисел');

for j:=1 to 8 do

read (r[1,j]);

writeln;

writeln ('Наша матрица будет иметь вид:');

writeln;

for j:=1 to 8 do

write (r[1,j]:9:1);writeln;

for i:=2 to 8 do

begin

for j:=1 to 8 do begin

r[i,j]:=r[i-1,j]*r[1,j];

write (r[i,j]:9:1);

end;

writeln;

end;

readkey;

end.

Запустить программу

Назад

X