Головна

програма 7.3

  1.  Air Alert III - програма для розвитку стрибка
  2.  C) архівтеу программаси
  3.  I. Програма страхування автокаско
  4.  III. РЕГІОНАЛЬНА ПРОГРАМА КАПІТАЛЬНОГО РЕМОНТУ багатоквартирних будинків
  5.  А) Базова програма обов'язкового медичного страхування
  6.  Б) Територіальна програма обов'язкового медичного страхування
  7.  БАЗОВА РОБОЧА ПРОГРАМА ДИСЦИПЛІНИ

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. |  Завдання до лабораторної роботи |  Теоретична частина |

© 2016-2022  um.co.ua - учбові матеріали та реферати