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

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

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

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
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

Попробуй так

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
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
1
2
3
4
5
6
7
8
9
10
11
12
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% С‚Р°Рє РєР°Рє РїРёС?Сѓ СЃ С‚РµР»РµС„РѕРЅР°. РЅРѕ РѕР±С‰Р°СЏ СЃСѓС‚СЊ РґРѕР»Р¶РЅР° Р±С‹С‚СЊ РїРѕРЅСЏС‚РЅР°

Новые блоги и статьи Все статьи Все блоги /
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .

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