Технический форум - Помогите, пожалуйста, написать программу в Turbo Delphi

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

- - Помогите, пожалуйста, написать программу в Turbo Delphi (http://www.tehnari.ru/f43/t57607/)

Ксюнечка

24.09.2011 17:04

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

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

AlexZir

26.09.2011 12:50

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

Код:

readln(n,x);

rez:=0;

for i:=1 to n do begin

x:=sin(x);

rez:=rez+x; end;

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

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

Ксюнечка

26.09.2011 18:18

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

AlexZir

26.09.2011 18:32

Вложений: 1

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

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

Часовой пояс GMT +4, время: 07:37.