Помогите, пожалуйста, написать программу в Turbo Delphi

[Ксюнечка]

Помогите, пожалуйста, написать программу в Turbo Delphi

Всем привет! К сожалению в школе не изучала языки программирования=((
Нужно написать програму в Turbo Delphi.
Указания: использовать оператор цикла с параметромю Массивы не использовать.
Даны натуральное число n и действительное число х. Составить программу для вычисления значения выражения: sinx+sin(sinx)+...+sin(sin(...(sinx)...))
Заранее благодарю... Оооочень нужна помощь...:tehnari_ru_837::tehnari_ru_837:

 

[AlexZir]

Сначала определимся с алгоритмом вычисления. Предлагаю следующий способ реализации:

readln(n,x);
rez:=0;
for i:=1 to n do begin
x:=sin(x);
rez:=rez+x; end;

Теперь вам остается только определиться с типом интерфейса (командная строка (консольное) или графический (форма)), формой вывода и прописать определения переменных. Это уж вы вполне сможете реализовать самостоятельно.

З.Ы. Если эту задачу кто-то решает через массивы - так наверняка это супер-пупер гений какой-нибудь с претензией на оригинальность мышления )

 

[Ксюнечка]

спасибо большое....

 

[AlexZir]

Не во что . С интерфейсом определились?

Вот пример реализации вашей программы с графическим интерфейсом в среде Borland Delphi 2005: Посмотреть вложение Summa.rar. В архиве исходники и скомпилированный исполнимый файл. На форме использованы компоненты TLabel, LEdit, TMemo.