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

UptoLike

ВУЗ: 

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

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

Рубрика: 

52
for j:= 1 to 5 do writeln ('i= ', i, ' j= ', j);
end.
Программа выводит на экран всевозможные пары зна-
чений целых чисел до пяти.
i-1 j=1
i=l j=2
i=l j=3
i=l j= 4
i=l j= 5
………
………
i=5 j= 2
i=5 j= 3
i=5 j= 4
i=5 j= 5
Каждая строка, выводимая на экран, соответствует од-
ному выполнению тела цикла.
Задача:
Найти
∑∑
==
n
i
n
j
jj
ii
11
)cos()sin(
.
program p14 ;
var
S : real ;
i, j, ij : integer;
begin
ij:= 1;
S:= 0; {начальное значение переменных S и ij}
for i:= 1 to 10 do
begin
ij := i;
for j:= 1 to 10 do
begin
ij : = ij * i;
S:= S + sin(ij)*cos(ij); 
       for j:= 1 to 5 do writeln ('i= ', i, ' j= ', j);
end.
      Программа выводит на экран всевозможные пары зна-
чений целых чисел до пяти.
      i-1 j=1
      i=l j=2
      i=l j=3
      i=l j= 4
      i=l j= 5
      ………
      ………
      i=5 j= 2
      i=5 j= 3
      i=5 j= 4
      i=5 j= 5
      Каждая строка, выводимая на экран, соответствует од-
ному выполнению тела цикла.
      Задача:
                 n     n

        Найти   ∑ ∑ sin( i
                i =1   j =1
                              j
                                  ) cos( i j ) .

program p14 ;
var
   S : real ;
   i, j, ij : integer;
begin
   ij:= 1;
   S:= 0; {начальное значение переменных S и ij}
   for i:= 1 to 10 do
   begin
       ij := i;
       for j:= 1 to 10 do
       begin
           ij : = ij * i;
           S:= S + sin(ij)*cos(ij);
                                                             52

Страницы