Форум программистов, компьютерный форум, киберфорум
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
24 / 24 / 0
Регистрация: 09.11.2010
Сообщений: 190
21.01.2011, 16:30 0

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

21.01.2011, 16:30. Показов 2379. Ответов 4
Метки (Все метки)

Ответ

Попробуй так
Код
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.


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

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

постоить график 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.