Задача №334. Вычислить…
>Решение Pascal
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | program Pr334; const n = 100; m = 50; var s1, s2, s3, s4 : real; i, j : integer; begin s1 := 0; s2 := 0; s3 := 0; s4 := 0; for i := 1 to m do for j := 1 to n do begin s1 := s1 + 1 / (i + j * j); s2 := s2 + sin(i*i*i + j*j*j*j); s3 := s3 + (j - i + 1) / (i + j); s4 := s4 + 1 / (2*j + i); end; writeln('s1 = ', s1:2:3); writeln('s2 = ', s2:2:3); writeln('s3 = ', s3:2:3); writeln('s4 = ', s4:2:3); readln; end. |