Процедура Паскаль

[Павел58]

помогите пожалуйста написать процедуру суммы.

[Mad_Cat]

procedure SumRow(x:real;N:integer;var Sum:real);
var sl:real;
i:integer;
begin
sl:=sqr(cos(x))/2;
i:=1;
sum:=0;
while i<=n do
begin
sum:=sum+sl;
i:=i+1;
sl:=sl*cos(x)/(i+1);
end;
end;

[Павел58]

не работает...

[Mad_Cat]

не работает...

а программу для этой процедуры ты написал??? или просто скопировал - вставил?

х=0.5; N=10
Сумма = 0.52749598221521
Все работает)

[Павел58]

ахах..скопировал и вставил...а что за программа?

[Mad_Cat]

программа, которая запрашивает у пользователя исходные данные --> считает сумму ряда --> выдает результат
ты просил

написать процедуру суммы

ты ее и получил) программу писать ты не просил!

[Павел58]

program Lab;
var n: integer;
  x, M: real;

procedure SumRow(x: real; N: integer; var Sum: real);
var sl: real;
  i: integer;
begin
  sl := sqr(cos(x)) / 2;
  i := 1;
  sum := 0;
  while i <= n do
  begin
    sum := sum + sl;
    i := i + 1;
    sl := sl * cos(x) / (i + 1);
  end;
  sum := sl;
end;

begin
  writeln('vv n,x');
  M := sum(n, x);
  writeln('s1:=', M);
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Mad_Cat]

красавчик че)

writeln('vv n,x');
Readln(n,x);
SumRow(x,N,M);
Writeln(M);

и процедурку заюзать лучше все-таки мою, а не ту что ты переделал

[Serge_Bliznykov]

Вы описали процедуру с именем SumRow с тремя параметрами.
а в основной программе вызываете функцию с именем Sum с двумя параметрами..

я различия цветом выделил, чтобы Вам понятнее стало, что не так...

p.s. впрочем, Mad_Cat уже привёл исправленный вариант..

[Павел58]

спасибо сейчас попробую.