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

UptoLike

ВУЗ: 

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

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

Рубрика: 

85
Program OM_1;
Var
B: array [1..20] of integer;
i, L: integer;
Begin
writeln(‘Введите массив В’);
for i :=1 to 20 do read(b[i]);
L := 0;
for i :=1 to 20 do
if (b[i] MOD 3) = 0 then L := L+1;
writeln(‘L =’, L);
End.
Задача 2. Накопление суммы и произведения
Дано целое число n и массив вещественных чисел:
nixX
i
,1};{ == . Вычислить среднее арифметическое и среднее
геометрическое чисел массива, используя формулы:
n
n
i
i
n
i
i
xPx
n
S
∏
∑
=
=
==
1
1
;
1
.
Program ОМ_2;
Var
Х: array [1..100] of real;
n, i: integer;
S, P: real;
Begin
writeln(‘Введите размер массива n’);
read(n);
writeln(‘Введите массив Х’);
for i := 1 to n do read(x[i]);
S := 0;
P := 1;
for i := 1 to n do
begin
S := S + x[i];
P := P∗x[i];
end;
86
S := S/n;
P := exp(1/n∗ln(P));
writeln(‘S =’, S:6:2);
writeln(‘P =’, P:10:2);
End.
Задача 3. Поиск минимального и максимального элемен-
тов массива
Дан вещественный массив:
10,1};{ == itT
i
. Поменять мес-
тами минимальный и максимальный элементы массива и вывести
массив после обмена.
Решение
В этой задаче для осуществления обмена надо знать не толь-
ко значения минимального и максимального элементов массива,
но и их местоположение. Поэтому во время поиска минимального
и максимального элементов необходимо фиксировать их индексы.
Введем обозначения:
min – минимальный элемент;
imin – индекс минимального элемента;
max – максимальный элемент;
imax – индекс максимального элемента.
Program ОМ_3;
Var
T: array [1..10] of real;
i, imin, imax: integer;
min, max: real;
Begin
writeln(‘Введите массив T’);
for i := 1 to 10 do read(t[i]);
min := +1E6;
max := –1E6;
for i := 1 to 10 do
begin
if t[i]<min then
begin
min := t[i];
imin := i;
end; 
                     Program OM_1;                                                   S := S/n;
                      Var                                                            P := exp(1/n∗ln(P));
                       B: array [1..20] of integer;                                  writeln(‘S =’, S:6:2);
                       i, L: integer;                                                writeln(‘P =’, P:10:2);
                      Begin                                                         End.
                       writeln(‘Введите массив В’);                     Задача 3. Поиск минимального и максимального элемен-
                       for i :=1 to 20 do read(b[i]);               тов массива
                       L := 0;
                       for i :=1 to 20 do                               Дан вещественный массив: T = {t i }; i = 1, 10 . Поменять мес-
                           if (b[i] MOD 3) = 0 then L := L+1;       тами минимальный и максимальный элементы массива и вывести
                       writeln(‘L =’, L);                           массив после обмена.
                     End.                                                                      Решение
     Задача 2. Накопление суммы и произведения                          В этой задаче для осуществления обмена надо знать не толь-
     Дано целое число n и массив вещественных чисел:                ко значения минимального и максимального элементов массива,
 X = {xi }; i = 1, n . Вычислить среднее арифметическое и среднее   но и их местоположение. Поэтому во время поиска минимального
геометрическое чисел массива, используя формулы:                    и максимального элементов необходимо фиксировать их индексы.
                              n                  n
                                                                    Введем обозначения:
                         1
                    S=
                         n   ∑
                             =
                                   xi ;   P=n   ∏   xi .                min – минимальный элемент;
                                                                        imin – индекс минимального элемента;
                             i 1                 =
                                                i 1
                                                                        max – максимальный элемент;
                Program ОМ_2;                                           imax – индекс максимального элемента.
                Var
                 Х: array [1..100] of real;                                         Program ОМ_3;
                 n, i: integer;                                                     Var
                 S, P: real;                                                         T: array [1..10] of real;
                Begin                                                                i, imin, imax: integer;
                 writeln(‘Введите размер массива n’);                                min, max: real;
                 read(n);                                                           Begin
                 writeln(‘Введите массив Х’);                                        writeln(‘Введите массив T’);
                                                                                     for i := 1 to 10 do read(t[i]);
                 for i := 1 to n do read(x[i]);
                                                                                     min := +1E6;
                 S := 0;
                                                                                     max := –1E6;
                 P := 1;                                                             for i := 1 to 10 do
                 for i := 1 to n do                                                      begin
                     begin                                                                   if t[i]

Страницы