Практикум по решению задач на ЭВМ. Тарова И.Н - 43 стр.

UptoLike

ВУЗ: 

ЕГУ им. Бунина | Елец

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

Рубрика: 

Практикум по решению задач на ЭВМ
b[p]:=a[i];
end;
end;
for i:=1 to p do
writeln(i,'- элемент новой послед.-и: ',b[i]);
readln;
end.
Лабораторная работа №10
Вложенные циклы
1) Вычислить: а)
∑∑
==
+
100
1
50
1
2
1
ij
ji
; б)
∑∑
;
==
+
100
1
60
1
43
)sin(
ij
ji
в)
∑∑
==
+
+−
100
1
100
1
iij
ji
ij
; г)
∑∑
==
+
100
11
2
1
i
i
j
ij
.
2) Вычислить
∑∑
==
−
15
1
23
10
1
)(
ik
ikk
program summa(output);
uses CRT;
var
k,l:integer;
S1,sum,P:longint;
begin
clrscr;
sum:=0;
for k:=1 to 10 do
begin
S1:=0;
for l:=1 to 15 do
begin
S1:=S1+((k-l)*(k-l));
end;
P:=S1*k*k*k;
sum:=sum+P;
end;
writeln('Сумма ряда равна: ',sum);
43
                                     Практикум по решению задач на ЭВМ


                       b[p]:=a[i];
                     end;
          end;
       for i:=1 to p do
          writeln(i,'- элемент новой послед.-и: ',b[i]);
       readln;
     end.




   Лабораторная работа №10
                           Вложенные циклы
1) Вычислить: а)
                 100 50
                        1 ; б) 100 60
                                      sin(i 3 + j 4 ) ;
                                ∑∑ i + j          2           ∑∑
                                i =1 j =1                     i =1 j =1
     100 100
                  j − i +1;           100   i
                                                      1
в)   ∑∑
     i =1 j = i     i+ j
                                г)   ∑∑ 2 j + i
                                      i =1 j =1
                                                          .
                         10          15
2) Вычислить             ∑
                         k =1
                                k 3 ∑ (k − i ) 2
                                     i =1



     program summa(output);
     uses CRT;
     var
       k,l:integer;
       S1,sum,P:longint;
     begin
        clrscr;
        sum:=0;
        for k:=1 to 10 do
            begin
               S1:=0;
               for l:=1 to 15 do
               begin
                  S1:=S1+((k-l)*(k-l));
               end;
               P:=S1*k*k*k;
               sum:=sum+P;
             end;
        writeln('Сумма ряда равна: ',sum);


                                                                     43

Страницы