-6A82E~1
.PDF
181
Рисунок 2 – Схема подпрограммы-процедуры Sum
182
Рисунок 3 – Схема подпрограммы функции F1
Рисунок 4 – Схема подпрограммы функции F2
183
Типовая задача №3-2. Составить схему алгоритма и программу для задачи:
Перемножить квадратные матрицы М1 и М2 размером n×n. Размер n и исходные матрицы ввести с клавиатуры. Исходные и результирующую матрицы вывести в файл.
Программа
Program Lab3_T2;
Type Matr=array[1..9,1..9] of integer; Var i,j,k,n:integer;
r:text;
M1,M2,M3:Matr;
Procedure Vvod (Var M: Matr);
Begin
For i:=1 to n do
For j:=1 to n do Read(M[i,j]);
End;
Procedure Vyvod (M:Matr); Begin
For i:=1 to n do begin
For j:=1 to n do Write(r,M[i,j]:4); Writeln(r);
end;
End;
Begin
Assign(r,'res-7t2'); Rewrite(r); Writeln('n='); Readln(n); Writeln('M1=');
Vvod (M1); Writeln('M2='); Vvod (M2);
For i:=1 to n do begin For j:=1 to n do begin M3[i,j]:=0;
For k:=1 to n do M3[i,j]:=M3[i,j]+M1[i,k]*M2[k,j]; end;
end;
Writeln(r,' Matrix M1:'); Vyvod (M1); Writeln(r,' Matrix M2:'); Vyvod (M2); Writeln(r,' Matrix M3:'); Vyvod (M3);
Close(r);
End.
184
Результат
Matrix M1:
1 |
2 |
3 |
3 |
2 |
1 |
0 |
0 |
1 |
Matrix M2: |
||
1 |
0 |
1 |
0 |
1 |
0 |
1 |
1 |
1 |
Matrix M3: |
||
4 |
5 |
4 |
4 |
3 |
4 |
1 |
1 |
1 |
185
Схема алгоритма
Рисунок 1 – Схема головной программы (начало)
186
Рисунок 1 – Схема головной программы (окончание)
187
Рисунок 2 – Схема подпрограммы-процедуры Vvod
188
Рисунок 3 – Схема подпрограммы-процедуры Vyvod
189
Индивидуальное задание №3
Вариант №1. Составить схему алгоритма и программу для задачи:
n
Вычислить сумму f
x 1
100 x
конкретные суммы x 1 x 5
(x) , вид функции заранее неизвестен. Вычислить
50 |
|
5 |
|
|
|
и |
|
|
lg x |
. Результаты вывести в файл. |
|
|
2 |
||||
x 1 |
x |
|
|
|
|
Вариант №2. Составить схему алгоритма и программу для задачи:
Сложить две квадратные матрицы размером (n×n). Матрицы ввести с клавиатуры. Исходные и результирующие матрицы вывести в файл.
Вариант №3. Составить схему алгоритма и программу для задачи:
Вычислить произведение
числить конкретные значения
n
x 1
10
x 1
f (x) , вид функции заранее неизвестен. Вы-
15
tg(x) и lg( x) . Результаты вывести в файл.
x 1
Вариант №4. Составить схему алгоритма и программу для задачи:
Умножить на скаляр квадратную матрицу размером (n×n). Матрицу и скаляр ввести с клавиатуры. Исходную и результирующую матрицы вывести в файл.
Вариант №5. Составить схему алгоритма и программу для задачи:
Вычислить произведение
числить конкретные значения
n
x m
20
x 5
f (x) , вид функции заранее неизвестен. Вы-
15
ctg(x) и ln(x) . Результаты вывести в файл.
x 2
Вариант №6. Составить схему алгоритма и программу для задачи: Умножить на скаляр квадратную матрицу размером (n×n), затем сложить
ее со второй матрицей. Матрицы и скаляр ввести с клавиатуры. Исходные и результирующие матрицы вывести в файл.
190
Вариант №7. Составить схему алгоритма и программу для задачи:
|
n |
|
|
|
m |
|
|
|
||
Вычислить выражение f1 |
(x) f2 |
(x) , вид функций заранее неизвестен. |
||||||||
|
x 1 |
|
|
|
x 1 |
|
|
|||
100 |
x 2 |
|
50 |
5 |
|
|
|
|
||
Вычислить выражение |
|
|
|
|
|
|
|
ln x |
. Результаты вывести в файл. |
|
x 5 |
|
2 |
||||||||
x 1 |
|
x 1 x |
|
|
|
|
|
|||
Вариант №8. Составить схему алгоритма и программу для задачи:
Умножить на различные скаляры квадратные матрицы размером (n×n), затем сложить их. Матрицы и скаляры ввести с клавиатуры. Исходные данные и результаты вывести в файл.
Вариант №9. Составить схему алгоритма и программу для задачи:
|
n |
|
|
m |
|
|
|
Вычислить выражение f1 |
(x) f2 (x) , вид функций заранее неизвестен. |
||||||
|
x k |
|
x l |
|
|
||
10 |
ln x 2 |
15 |
|
5 |
|
|
|
Вычислить выражение |
lg x 5 |
|
|
tg(x) |
. Результаты вывести в файл. |
||
x |
|||||||
x 2 |
x 5 |
|
|
|
|||
Вариант №10. Составить схему алгоритма и программу для задачи:
Найти минимальный элемент главной диагонали квадратной матрицы размером (n×n). Рассчитать для двух различных матриц различных размеров. Исходные данные вводить с клавиатуры. Исходные данные и результаты вывести в файл.