Форум программистов, компьютерный форум, киберфорум
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
15 / 15 / 5
Регистрация: 10.01.2011
Сообщений: 52
24.01.2011, 13:55 0

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

24.01.2011, 13:55. Показов 2379. Ответов 4
Метки (Все метки)

Ответ

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% так как РїРёС?Сѓ СЃ телефона. РЅРѕ общая суть должна быть понятна

Вернуться к обсуждению:
Найти значение выражения: sin(sin(…sin(x))), где функция sin используется n раз
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.01.2011, 13:55
Готовые ответы и решения:

Цикл с предусловием и постусловием. Вычислить: sin(x)+sin(x)^2+...sin(x)^n
что в ней не так,ребят помогите Даны натуральное число n и вещественная число x....

Вычислить сумму ряда s=sin(1)+sin(2)+…+sin(n)
Вычислите сумму ряда s=sin(1)+sin(2)+…+sin(n), для n введенного с клавиатуры. Не могу понять,...

Построить график функции v:=w*r*(Sin(a)+(y/4)*sin(2*a)
построить график функции v:=w*r*(Sin(a))+(y/4)*sin(2*a)

Вычислить sin(1+sin(1+…sin(1+sin 1))…)
Вычислить sin(1+sin(1+…sin(1+sin 1))…)

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