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

Ксюнечка · 24.09.2011, 17:04

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

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

Не во что

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

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

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)...)) Заранее благодарю... Оооочень нужна помощь...

26.09.2011, 12:50	#2 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,750 Записей в дневнике: 71 Сказал(а) спасибо: 162 Поблагодарили 200 раз(а) в 84 сообщениях Репутация: 74843	Сначала определимся с алгоритмом вычисления. Предлагаю следующий способ реализации: Код: 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)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,750 Записей в дневнике: 71 Сказал(а) спасибо: 162 Поблагодарили 200 раз(а) в 84 сообщениях Репутация: 74843	Не во что . С интерфейсом определились? Вот пример реализации вашей программы с графическим интерфейсом в среде Borland Delphi 2005: Summa.rar. В архиве исходники и скомпилированный исполнимый файл. На форме использованы компоненты TLabel, LEdit, TMemo. __________________ Убить всех человеков!

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

24.09.2011, 17:04
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Помогу вам этими ссылками - наверняка там много интересного для вас Помогите написать программу в Delphi Помогите, пожалуйста, написать интересную программу к зачету Помогите, пожалуйста, написать программу на C#

26.09.2011, 18:18	#3 (permalink)
Ксюнечка Новичок Регистрация: 24.09.2011 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	спасибо большое....

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070