Расчет элементов квадратной матрицы - Turbo Pascal (29542)
Формулировка задачи:
Здравствуйте!
Прошу помочь с написанием программы в Паскале, совсем не знаю, с чего взяться....
Решение задачи: «Расчет элементов квадратной матрицы»
textual
Листинг программы
program pr;
var
i, n, m, j: integer;
a: array [1..100, 1..100] of real;
begin
writeln('Введите количество строк матрицы');
readln(n);
writeln('Введите количество столбцов матрицы');
readln(m);
for i := 1 to n do
for j := 1 to m do
a[i, j] := (1.4 * i + 2.2) * (1.4 * i + 2.2) + (j) / (sqrt(i + 2 * j));
writeln('Матрица');
for i := 1 to n do
begin
for j := 1 to m do
write(' ',a[i, j]:3:2);
writeln;
end;
end.
Объяснение кода листинга программы
- Программа начинается с объявления переменных: i, n, m, j - целочисленные; a - массив размером 100x100, содержащий числа с плавающей точкой.
- Пользователю предлагается ввести количество строк и столбцов матрицы. Эти значения сохраняются в переменных n и m соответственно.
- Затем происходит инициализация массива a. Каждый элемент массива a[i, j] присваивается результат вычисления формулы (1.4i + 2.2)(1.4i + 2.2) + (j)/(sqrt(i + 2j)).
- Выводится сообщение
Матрица. - Далее происходит итерация по строкам матрицы. Для каждой строки выполняется итерация по столбцам и выводится значение элемента a[i, j] с помощью функции write. Между значениями ставится пробел. Выводится символ табуляции для отступления.
- Программа завершается.