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

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


Пусть даны вещественные числа Х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.

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






Назад