Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi Игра "Парные картинки" https://www.cyberforum.ru/ delphi-beginners/ thread228705.html
нужно сделать курсовик: игра парные картинки в делфи. сама игра уже сделана но там куча недочетов :( а моих знаний на большее не хватает) если у кого то есть желание помочь блондинке ))) пишите на...
Delphi Ввод 7 значений
Здравствуйте! Код моей программы вроде работает,а когда запускаю, на форме не появляются заданные 7 чисел. Что мне сделать,чтобы программа правильно работала? Помогите,пожалуйста. unit min_i_max; ...
Файл записей Delphi
помогите пожалуста сделать задачку создать файл записей, которые имеют такие поля: номер счета, сумма взноса. Номер счета может указываться в файле несколько раз.Создать новый файл, в котором...
Delphi Код заполняет мемо2 регуляркой, а как занести это в дин. массив? procedure TForm1.Button4Click(Sender: TObject); label 10,20; var myReg:TRegExpr; myTele:array of string; myTVTime:array of string; i:integer; begin memo2.Clear; myReg:=TRegExpr.Create; ... https://www.cyberforum.ru/ delphi-beginners/ thread228515.html
Delphi квадрат трехзначного числа https://www.cyberforum.ru/ delphi-beginners/ thread228471.html
вывести на экране 1 или 0 в зависимости от того,равен ли квадрат заданного трехзначного числа кубу суммы цифр этого числа.
Как преобразовать дату в строку? Delphi
procedure TForm1.linkgenClick(Sender: TObject); var tviLink:string; mydate:TDate; year,month,day:word; begin DecodeDate(Date,year,month,day);...
Delphi Как указать правильный путь MoveFile();
Никак не могу написать правильный путь. Вобщем у меня есть СГ: 1-ый стлб_|___ 2-ой стлб ______________________ *.mp3____|_____Музыка *.mp4____|_____Видео *.rar_____|_____Архив Файл по маске...
Delphi Сумма цифр трехзначного числа Помогите пожалуйста решить задачу Целой переменной S присвоить сумму цифр трёхзначного целого числа K. https://www.cyberforum.ru/ delphi-beginners/ thread228406.html
Delphi Не могу сохранить .doc https://www.cyberforum.ru/ delphi-beginners/ thread228404.html
Привет друзья! С прошедшими праздниками вас Такой вопросик Подключаюсь к Ворду и хочу (сохранить как) документ пишет ошибку Не достаточно актуальные параметры! ошибка в строке ...
Delphi Работа самописца Доброго времени суток. Подскажите пожалуйста: я сделал самописец в TChar, данные которого зависят от значения ProgressBar по X и времени таймера по Y. При увеличении ProgressBAr, график изменяется... https://www.cyberforum.ru/ delphi-beginners/ thread228384.html
0 / 0 / 1
Регистрация: 13.01.2011
Сообщений: 10
20.01.2011, 22:00  [ТС] 0

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

20.01.2011, 22:00. Показов 2379. Ответов 4
Метки (Все метки)

Ответ

Помогите испарвить ошибку в функции(выдает ошибку на 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;


Вернуться к обсуждению:
Найти значение выражения: sin(sin(…sin(x))), где функция sin используется n раз
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.01.2011, 22:00

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

постоить график y=sin(sin x)
напишите пожалуста програму постоить график y=sin(sin x)

Найти значение функции y=sin(x)
помогите плз надо найти y=sin(x) в делфи ч вводится с клавиатуры

Найти и вывести на экран значение разности между максимальным и минимальным значениями функции F(x)=lg|sin x * cos(x+5)|
Найти и вывести на экран значение разности между максимальным и минимальным значениями функции...

Вычислить значение функции sin(x)+x
Необходимо вычислить значение функции F=SIN(X) +X на интервале от 0 до 2*pi радиан с шагом 0.1...

Значение функций COS и SIN
Скажите, когда определяется COS и SIN значение угла задается в градусах или радианах?

Вычислить значение функции y=sin^3*x^2 на интервале от -1 до 3
Вычислить значение функции y=sin^3*x^2 на интервале от -1 до 3 с шагом 0.5. Блок схему

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.