TURBO PASCAL:Учебное пособие. Терёхин В.В. - 51 стр.

UptoLike

ВУЗ: 

НФИ КемГУ | Новокузнецк

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

Рубрика: 

51
f: = f*2;
S:= S + sin{i)/f;
end;
Writeln(' S= ', S: 6: 4) ;
end.
Задача. Найти
∏
=
+
n
i 1
ii
))cos(b )(sin(a
, n, а и b вводятся с
клавиатуры.
program p12;
var
a, b, P, k, 1: real;
i, n: integer;
begin
Writeln('введите a, b и n');
Read (a, b, n);
k:= 1;
1:= 1;
P:= 1; {начальное значение переменных k,1 и Р}
for i:= 1 to n do
begin
k:= k * a;
1:= 1 * b;
P:= P * sin(k) + cos(i);
end;
Writeln(‘ P= ', P: 6: 4);
end.
Часто возникает необходимость организации вложен-
ных циклов, действие которых можно понять при анализе ра-
боты следующей программы:
program р13;
var
i, j : integer;
begin
for i:= 1 to 5 do 
     f: = f*2;
     S:= S + sin{i)/f;
  end;
   Writeln(' S= ', S: 6: 4) ;
end.
                       n
      Задача. Найти   ∏ (sin(a ) + cos(b )) , n, а и b вводятся с
                      i =1
                               i         i



клавиатуры.
program p12;
var
   a, b, P, k, 1: real;
   i, n: integer;
begin
   Writeln('введите a, b и n');
   Read (a, b, n);
   k:= 1;
   1:= 1;
   P:= 1; {начальное значение переменных k,1 и Р}
   for i:= 1 to n do
   begin
       k:= k * a;
       1:= 1 * b;
       P:= P * sin(k) + cos(i);
   end;
   Writeln(‘ P= ', P: 6: 4);
end.
        Часто возникает необходимость организации вложен-
ных циклов, действие которых можно понять при анализе ра-
боты следующей программы:
program р13;
var
   i, j : integer;
begin
   for i:= 1 to 5 do
                                                                51

Страницы