Система программирования Турбо Паскаль. Воробьева А.П - 51 стр.

UptoLike

ВУЗ: 

НГАСУ «Сибстрин» | Новосибирск

Составители: 

Рубрика: 

103
Вариант c процедурой
Program P1_P;
Type
vect = array[1..10] of real;
Var
X, Y: vect;
i: integer;
Dx, Dy, D: real;
Procedure Mod_Otkl(A: vect; n: integer; var Da: real);
var
ma, sa: real;
i: integer;
begin
ma := –1E6;
sa := 0;
for i := 1 to n do
begin
if a[i]>ma then ma := a[i];
sa := sa + a[i];
end;
sa := sa/n;
Da := abs(ma – sa);
end;
Begin
writeln(‘Введите массив X’);
for i :=1 to 8 do read(x[i]);
writeln(‘Введите массив Y’);
for i := 1 to 10 do read(y[i]);
Mod_Otkl(X, 8, Dx);
Mod_Otkl(Y, 10, Dy);
D := Dx/Dy;
writeln(‘D=’, D:6:2);
End.
104
Вариант c функцией
Program P1_F;
Type
vect = array[1..10] of real;
Var
X, Y: Vect;
i: integer;
Dx, Dy, D: real;
Function Mod_Otkl (A: vect; n: integer): real;
var
ma, sa, Da: real;
i: integer;
begin
ma := –1E6;
sa:=0;
for i :=1 to n do
begin
if a[i]>ma then ma := a[i];
sa := sa + a[i];
end;
sa := sa/n;
Da := abs(ma – sa);
Mod_Otkl := Da;
end;
Begin
writeln(‘Введите массив X’);
for i := 1 to 8 do read(x[i]);
writeln(‘Введите массив Y’);
for i := 1 to 10 do read(y[i]);
Dx := Mod_Otkl(X, 8);
Dy := Mod_Otkl(Y, 10);
D := Dx/Dy;
writeln(‘D=’, D:6:2);
End. 
Вариант c процедурой                                                Вариант c функцией
           Program P1_P;                                               Program P1_F;
           Type                                                        Type
            vect = array[1..10] of real;                                vect = array[1..10] of real;
           Var                                                         Var
            X, Y: vect;                                                 X, Y: Vect;
            i: integer;                                                 i: integer;
            Dx, Dy, D: real;                                            Dx, Dy, D: real;
           Procedure Mod_Otkl(A: vect; n: integer; var Da: real);      Function Mod_Otkl (A: vect; n: integer): real;
            var
                                                                        var
                ma, sa: real;
                                                                            ma, sa, Da: real;
                i: integer;
            begin                                                           i: integer;
                ma := –1E6;                                             begin
                sa := 0;                                                    ma := –1E6;
                for i := 1 to n do                                          sa:=0;
                    begin                                                   for i :=1 to n do
                        if a[i]>ma then ma := a[i];                             begin
                        sa := sa + a[i];                                            if a[i]>ma then ma := a[i];
                    end;                                                            sa := sa + a[i];
                sa := sa/n;                                                     end;
                Da := abs(ma – sa);                                         sa := sa/n;
            end;                                                            Da := abs(ma – sa);
           Begin                                                            Mod_Otkl := Da;
            writeln(‘Введите массив X’);                                end;
            for i :=1 to 8 do read(x[i]);                              Begin
            writeln(‘Введите массив Y’);                                writeln(‘Введите массив X’);
            for i := 1 to 10 do read(y[i]);                             for i := 1 to 8 do read(x[i]);
            Mod_Otkl(X, 8, Dx);                                         writeln(‘Введите массив Y’);
            Mod_Otkl(Y, 10, Dy);
                                                                        for i := 1 to 10 do read(y[i]);
            D := Dx/Dy;
                                                                        Dx := Mod_Otkl(X, 8);
            writeln(‘D=’, D:6:2);
           End.                                                         Dy := Mod_Otkl(Y, 10);
                                                                        D := Dx/Dy;
                                                                        writeln(‘D=’, D:6:2);
                                                                       End.



                              103                                                                   104

Страницы