Головна |
PROGRAM LR_7_3;
Const n = 200;
Type mas = array [1..n] of real;
Var i, nr, mr, k: integer;
x, y, z: mas;
{Початок підпрограми-процедури}
PROCEDURE ST (VAR A, C: MAS; N, L: INTEGER;
VAR K: INTEGER);
BEGIN
K: = L;
FOR I: = 1 TO N DO
IF A [I]> 0 THEN
BEGIN
K: = K + 1;
C [K]: = A [I]
END
END;
{Кінець підпрограми-процедури}
Begin
writeln ('введіть значення nr і mr');
readln (nr, mr);
writeln ('введіть елементи масиву x');
for i: = 1 to nr do readln (x [i]);
Writeln ('Введіть елементи масиву Y');
For i: = 1 to mr do readln (y [i]);
ST (X, Z, NR, 0, K);
ST (Y, Z, MR, K, K);
Writeln ('результуючий масив');
For i: = 1 to k do write (z [i]: 8: 2); writeln ('')
End.
Мал. 7.2. Блок-схеми програми і процедури.
Програма 7.2. | Завдання до лабораторної роботи
Теоретична частина | Лабораторна робота № 8 | параметри процедур | Область дії ідентифікаторів | Завдання до лабораторної роботи | Теоретична частина | Програма 9.1. | Програма 9.2. | Завдання до лабораторної роботи | Теоретична частина |