Найти значение выражения: sin(sin(…sin(x))), где функция sin используется n раз

@DVN · Регистрация: 13.01.2011

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

Delphi

uses
  SysUtils;
function sin1(x:real; n:integer):real;
var a:real; i:integer;
begin
a:=sin(x);
for i:=1 to n do
a:=sin(a);
sin1:=a;
end;
 
function sin2(x:real; n:integer):real;
var i:integer;
begin
if x=0 then sin2:=0 else
sin2:=sin(x);
for i:=1 to n do
sin2:=sin(sin2(x,n-1));
end;
procedure sin3(var n:integer; var x,a:real);
begin
if n>0 then
begin
a:=sin(x);
if x=0 then a:=0 else
begin
n:=n-1;
sin3(n,x,a);
a:=sin(a);
end;
end;
end;
 
var n:integer; x,a:real;
begin
write ('Vvedite x,n ');
readln(x,n);
sin1(x,n);
writeln('sin1 = ',sin1(x,n));
sin2(x,n);
writeln('sin2 = ',sin2(x,n));
sin3(n,x,a);
writeln('sin3 = ',a);
readln;
end.

@Просто_Юлия · 14.01.2011, 14:32

sin2 уже рекурсивная.
можешь задание четко сформулировать?

@DVN · 20.01.2011, 22:00 **[ТС]**

Помогите испарвить ошибку в функции(выдает ошибку на else в рекурсивной функции)...

Delphi

uses
SysUtils;
 
function sin1(x:real; n:integer):real;
var a:real; i:integer;
begin
a:=sin(x);
for i:=1 to n do
a:=sin(a);
sin1:=a;
end;
 
function sin2(x:real; n:integer):real;
var sx:real;
begin
if n=1 then 
sin2:=sin(x);
else
begin
sx:=sin2(x);
sin2:=sin(sx);
end;
end;
 
procedure sin3(var n:integer; var x,a:real);
begin
if n>0 then
begin
a:=sin(x);
if x=0 then a:=0 else
begin
n:=n-1;
sin3(n,x,a);
a:=sin(a);
end;
end;
end;
 
var n:integer; x,a:real;
begin
write ('Vvedite x,n ');
readln(x,n);
sin1(x,n);
writeln('sin1 = ',sin1(x,n));
sin2(x,n);
writeln('sin2 = ',sin2(x,n));
sin3(n,x,a);
writeln('sin3 = ',a);
readln;

@ProgLab · 21.01.2011, 16:30

Попробуй так

Код

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils,math;

function sin1(x:real; n:integer):real;
var a:real; i:integer;
begin
a:=sin(x);
for i:=1 to n do
a:=sin(a);
sin1:=a;
end;

function sin2(x:real; n:integer):real;
var sx:real;
begin
if n=1 then
sin2:=sin(x) - тут ставить ; ненадо.
else
begin
sx:=sin2(x,n); -тут был просто x без n это ошибка! 
sin2:=sin(sx);
end;
end;

procedure sin3(var n:integer; var x,a:real);
begin
if n>0 then
begin
a:=sin(x);
if x=0 then a:=0 else
begin
n:=n-1;
sin3(n,x,a);
a:=sin(a);
end;
end;
end;

var n:integer; x,a:real;
begin
write ('Vvedite x,n ');
readln(x,n);
sin1(x,n);
writeln('sin1 = ',sin1(x,n));
sin2(x,n);
writeln('sin2 = ',sin2(x,n));
sin3(n,x,a);
writeln('sin3 = ',a);
readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

@Shapoklyaker · 24.01.2011, 13:55

Delphi

function forum ( n : integer ) : longint ; //РёР»Рё float. РЅРµ РїРѕРјРЅСЋ
begin if ( n = 0 ) then
forum := sin(0) else 
forum := sin(forum-1) ;
end ;
 
-----------
var n : integer ; 
begin 
n:=strtoint(edit1.text); 
edit1.text:=inttostr(forum(n)); //floatToStr(forum(n))
end .

РЅР° СЃС‡С‘С‚ СЂР°Р±РѕС‚С‹ РЅРµ СѓРІРµСЂРµРЅ РЅР° 100% С‚Р°Рє РєР°Рє РїРёС?Сѓ СЃ С‚РµР»РµС„РѕРЅР°. РЅРѕ РѕР±С‰Р°СЏ СЃСѓС‚СЊ РґРѕР»Р¶РЅР° Р±С‹С‚СЊ РїРѕРЅСЏС‚РЅР°

@Просто_Юлия 134 / 47 / 11 Регистрация: 27.05.2008 Сообщений: 246
	14.01.2011, 14:32	2
	sin2 уже рекурсивная. можешь задание четко сформулировать? 0

Опции темы