Pascal. Функция.

[Genzal]

Вычислить значение функции для заданного K
Y=SIN(K+SIN(K-1+...+SIN(2+SIN(1))...))
Код правильно я написал:

function Y(const k: Word): Double;
var
    Result: Double;
begin
    if (k > 0)
    then
        Result := Sin(k + Y(k - 1))
    else
        Result := 0;
    Y := Result;
end;
var
    k: Word;
begin
    Write('Input k='); ReadLn(k);
    Write('Y=', Y(k):0:3);
end

[Аватар]

На калькуляторе например для k=3 вычислить и сравнить слабо?

[Genzal]

Ошибка просто.

[Serge_Bliznykov]

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

Ошибка просто.

ага. после последнего end обязательно нужна ТОЧКА:

function Y(const k: Word): Double;
var
    Result: Double;
begin
    if (k > 0)
    then
        Result := Sin(k + Y(k - 1))
    else
        Result := 0;
    Y := Result;
end;
var
    k: Word;
begin
    Write('Input k='); ReadLn(k);
    Write('Y=', Y(k):0:3);
end.

[Genzal]

Пишет, что повторно ведена переменная Result.

[Аватар]

делфи, например, сам создает переменную result для возврата результата функции. Что там у тебя за паскаль и что он думает по этому поводе не в курсе )) А сообщение об ошибке лучше дословно здесь приводить, а то попробуй расшифровать твой вольный перевод

[Serge_Bliznykov]

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

Пишет, что повторно ведена переменная Result.

ну так убери её описание:

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

function Y(const k: Word): Double;
var
    Result: Double;
begin
    if (k > 0)
    then
        Result := Sin(k + Y(k - 1))
    else
        Result := 0;
    Y := Result;
end;