Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
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. Блок-схемы программы и процедуры.
Дата публикования: 2015-02-18; Прочитано: 380 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!