Вычисление элементов одномерного массива по формуле. Как исправить программу?

@jestero · Регистрация: 17.02.2014

Студворк — интернет-сервис помощи студентам

Составить программу для вычисления элементов одномерного массива по формуле: $https://www.cyberforum.ru/cgi-bin/latex.cgi?{c}_{k}=\frac{lnk+\sum_{i=1}^{n}\sum_{j=1}^{m}cos{a}_{ij}}{k+1}$

Попытался написать код:

Pascal

const l=20;
var i,j,k,n,m:integer; s1,s2:real;
    c:array [1..100] of real;
    a:array [1..10,1..100] of integer;
begin
   write('Введите n<=20  = '); readln(n);
   write('Введите m<=20 = '); readln(m);
 
   writeln('Заполняем массив a: ');
   for i:=1 to n do
   begin
   for j:=1 to n do
   begin
   a[i,j]:=random(30);
   write(a[i,j]:4);
   end;
   writeln;
   end;
    
    s1:=0;
   s2:=0;
   for i:=1 to n do
   for j:=1 to n do
   s1:=s1+cos(a[i,j]);
   
   for k:=1 to l do
   begin
   s2:=s2+(ln(l[k])+s1)/(l[k]+2);
   c[k]:=s2;
   end;
    
   for k:=1 to n do
   write(c[k]:5:2);
 
end.

Не работает. В этой строке явно как то неправильно вычисляю: s2:=s2+(ln(l[k])+s1)/(l[k]+2);
Подскажите пожалуйста как исправить?

@CodeR · 03.11.2015, 09:39

Pascal

1 2	for k:=1 to l do c[k]:=(ln(k)+s1) / (k+1);

@jestero · 03.11.2015, 10:05 **[ТС]**

Сообщение от CodeR

1
2
for k:=1 to l do
* c[k]:=(ln(k)+s1) / (k+1);

Вот я написал:

Pascal

const l=20;
var i,j,k,n,m:integer; s:real;
c:array [1..20] of real; 
 
a:array [1..10,1..100] of integer;
begin
write('Введите n<=10 = '); readln(n);
write('Введите m<=100 = '); readln(m);
for i:=1 to n do
  begin
for j:=1 to m do
  begin   
    a[i,j]:=-50+random(100);
  end;
  end;
for k:=1 to l do
begin
s := 0;
 
for i:=1 to n do
for j:=1 to m do
s := s + cos(a[i,j]);
 
c[k] := (ln(k) + s) / (k + 2);
writeln('c[k] = ',c[k]:0:3);
end;
end.

В результате получился такой результат
с[k] = значение 1
с[k] = значение 2
......
с[k] = значение 20

Как сделать так, чтобы вместо c[k]=, получалось с[1] =, c[2] = и так далее?

Добавлено через 9 минут
Понял: writeln(writeln('c[',k,'] = ',c[k]:0:3)

;

Опции темы