Пример решения задачи. Задание. Задан двумерный массив С из 4-х строк и 4-х столбцов (квадратная матрица)Задание. Задан двумерный массив С из 4-х строк и 4-х столбцов (квадратная матрица). Составить программу подсчёта суммы всех элементов массива и произведения отрицательных элементов. Решение. 1.Блок-схема решения задачи приведена на рисунке. Рисунок 5.1
2. Текст программы.
program p4; const n=4; var c:array [1..4,1..4] of real; S,P:real; i,j:integer; begin for i:=1 to n do for j:=1 to n do begin write('Введите c[',i,',',j,']='); readln(c[i,j]); end; S:=0; P:=1; writeln('Исходный массив С'); for i:=1 to n do begin for j:=1 to n do write(c[i,j]:6:2); writeln; end; for i:=1 to n do for j:=1 to n do begin S:=S+c[i,j]; if c[i,j]<0 then P:=P*c[i,j]; end; writeln('Сумма S=',s:7:2,' Произведение P=',P:7:2); readln; end.
3.Результат выполнения контрольного примера.
Исходный массив С 2.00 -5.90 5.00 -65.00 -3.98 0.00 8.00 76.40 23.70 1.34 -9.00 1.00 4.00 7.40 1.00 8.00 Сумма S= 53.96 Произведение P= 13736.97 Задания к лабораторной работе № 6 Тема: Подпрограммы. Задание. Составить программу на языке Паскаль для вычисления значения функции y = f (x) в точках x при заданных значениях a. Нахождение значения функции f(x) при заданных значениях а оформить в виде подпрограммы. Результат вывести в виде двумерной таблицы. Варианты заданий Таблица 6.1
|
