Форум программистов, компьютерный форум, киберфорум
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
0

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

14.01.2011, 11:14. Показов 2371. Ответов 4
Метки (Все метки)

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.


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

Цикл с предусловием и постусловием. Вычислить: 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.