24.09.2011, 17:04 | #1 (permalink) |
Новичок
Регистрация: 24.09.2011
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите, пожалуйста, написать программу в Turbo Delphi
Нужно написать програму в Turbo Delphi. Указания: использовать оператор цикла с параметромю Массивы не использовать. Даны натуральное число n и действительное число х. Составить программу для вычисления значения выражения: sinx+sin(sinx)+...+sin(sin(...(sinx)...)) Заранее благодарю... Оооочень нужна помощь... |
24.09.2011, 17:04 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Помогу вам этими ссылками - наверняка там много интересного для вас Помогите написать программу в Delphi Помогите, пожалуйста, написать интересную программу к зачету Помогите, пожалуйста, написать программу на C# |
26.09.2011, 12:50 | #2 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Сначала определимся с алгоритмом вычисления. Предлагаю следующий способ реализации:
Код:
readln(n,x); rez:=0; for i:=1 to n do begin x:=sin(x); rez:=rez+x; end; З.Ы. Если эту задачу кто-то решает через массивы - так наверняка это супер-пупер гений какой-нибудь с претензией на оригинальность мышления
__________________
Убить всех человеков! |
26.09.2011, 18:32 | #4 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Не во что . С интерфейсом определились?
Вот пример реализации вашей программы с графическим интерфейсом в среде Borland Delphi 2005: Summa.rar. В архиве исходники и скомпилированный исполнимый файл. На форме использованы компоненты TLabel, LEdit, TMemo.
__________________
Убить всех человеков! |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|