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

UptoLike

ВУЗ: 

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

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

Рубрика: 

77
begin
a := cos(2∗n – 1);
if a>0 then L := L + 1;
end;
writeln(‘L=’, L);
End.
Задача 2. Алгоритм накопления суммы
Дана последовательность:
sin2x, sin4x, sin6x, …, sin16x.
x
– заданное вещественное число.
Вычислить сумму членов последовательности, которые по
модулю больше 0.3.
Решение
Общий член последовательности имеет вид:
8,1где),2sin( == nnxa .
Для вычисления суммы в памяти компьютера выделяется
ячейка
S, к содержимому которой прибавляется член последова-
тельности a каждый раз, когда выполняется условие |a| > 0.3. На-
копление суммы реализуется оператором присваивания
S:=S+a;.
В начальный момент ячейка для суммирования должна быть
очищена оператором
S:=0;.
Program Z_2;
Var
a, x, S: real;
n: integer;
Begin
writeln(‘Введите число x’);
read(x);
S:=0;
for n := 1 to 8 do
begin
a := sin(2∗n∗x);
if abs(a)>0.3 then S := S + a;
end;
writeln(‘S=’, S:6:2);
End.
78
Задача 3. Алгоритм накопления произведения
Дана последовательность:
cos 0.1, cos 0.2, cos 0.3, …, cos 10.
Вычислить значение:
POP = , где PO – произведение отри-
цательных членов последовательности.
Решение
Общий член последовательности имеет вид:
1.0;101.0где,cos
=
Δ
≤
≤
=
xxxy .
Для реализации алгоритма накопления произведения выделя-
ется ячейка памяти
PO, в которой осуществляется последова-
тельное перемножение отрицательных членов последовательно-
сти с помощью оператора присваивания
PO:=PO∗y;. В началь-
ный момент в ячейку должна быть занесена единица оператором
PO:=1;.
Program Z_3;
Var
x, y, P, PO: real;
Begin
PO := 1;
x := 0.1;
while x<=10 do
begin
y := cos(x);
if y<0 then PO := PO∗y;
x := x + 0.1;
end;
P := abs(PO);
writeln(‘P=’, P:6:2);
End.
Задача 4. Алгоритм поиска минимального члена после-
довательности
Дана последовательность:
10,1);12tg( =+= kkea
k
k
.
Найти минимальный член последовательности. 
                         begin                                         Задача 3. Алгоритм накопления произведения
                            a := cos(2∗n – 1);                         Дана последовательность:
                            if a>0 then L := L + 1;
                         end;                                                     cos 0.1, cos 0.2, cos 0.3, …, cos 10.
                     writeln(‘L=’, L);                                 Вычислить значение: P = PO , где PO – произведение отри-
                  End.                                             цательных членов последовательности.
     Задача 2. Алгоритм накопления суммы                                                         Решение
     Дана последовательность:                                          Общий член последовательности имеет вид:
                   sin2x, sin4x, sin6x, …, sin16x.                                 y = cos x, где 0.1 ≤ x ≤ 10; Δx = 0.1 .
 x – заданное вещественное число.                                      Для реализации алгоритма накопления произведения выделя-
     Вычислить сумму членов последовательности, которые по         ется ячейка памяти PO, в которой осуществляется последова-
модулю больше 0.3.                                                 тельное перемножение отрицательных членов последовательно-
                               Решение                             сти с помощью оператора присваивания PO:=PO∗y;. В началь-
     Общий член последовательности имеет вид:                      ный момент в ячейку должна быть занесена единица оператором
                                                                   PO:=1;.
                      a = sin(2nx), где n = 1, 8 .
     Для вычисления суммы в памяти компьютера выделяется                           Program Z_3;
ячейка S, к содержимому которой прибавляется член последова-                       Var
тельности a каждый раз, когда выполняется условие |a| > 0.3. На-                      x, y, P, PO: real;
копление суммы реализуется оператором присваивания S:=S+a;.                        Begin
                                                                                      PO := 1;
В начальный момент ячейка для суммирования должна быть
                                                                                      x := 0.1;
очищена оператором S:=0;.                                                             while x<=10 do
                  Program Z_2;                                                            begin
                  Var                                                                        y := cos(x);
                     a, x, S: real;                                                          if y<0 then PO := PO∗y;
                     n: integer;                                                             x := x + 0.1;
                  Begin                                                                   end;
                     writeln(‘Введите число x’);                                      P := abs(PO);
                     read(x);                                                         writeln(‘P=’, P:6:2);
                     S:=0;                                                         End.
                     for n := 1 to 8 do
                         begin
                                                                      Задача 4. Алгоритм поиска минимального члена после-
                            a := sin(2∗n∗x);
                                                                   довательности
                            if abs(a)>0.3 then S := S + a;
                         end;                                         Дана последовательность:
                     writeln(‘S=’, S:6:2);
                                                                                   a k = e k tg(2k + 1); k = 1, 10 .
                  End.
                                                                       Найти минимальный член последовательности.
                               77                                                                78

Страницы