Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.11.2008, 17:24   #1
AlexLAN
 
Аватар для AlexLAN
 
Регистрация: 15.11.2008
Сообщений: 9
По умолчанию Задача на циклы

Вот задачка над которой я долго парился (и парюсь). Сделал первый заданый цикл for(его здесь нет) сдал, но потом просеял флешку с этой программой, и в итоге вообще забыл как ее сделал

Дана формула (N (над знаком суммы) Ʃ (под этим знаком) i=1) x ((-1)^i+1) x (Sinx/i)
N(const)=20
x - c клавиатуры
Проделать операции над этим циклом с помощью циклов:
1) repeat...until
2) while...do
При этом для каждого способа сформировать массив значений выражений и вывести значение суммы и массив чисел.
Используя полученный массив:
-сформировать массив состоящий из положительных элементов;
-сформировать массив состоящий из отрицательных элементов;
Результат вывести на экран.
В массиве из отрицательных элементов найти среднее значение элементов с нечетными индексами.

Если поможете буду очень благодарен
Есть такие люди которые пока не наступит критический момент - ничего делать не будут. Но когда он наступает трудоголизм просыпаться слишком сильно.
AlexLAN вне форума Ответить с цитированием
Старый 15.11.2008, 19:05   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Ну и в чем трудность?
Цикл допустим Вайл мона примерно так сделать:
Код:
while i<=n do begin 
 summ:=summ+x*(exp(i+1*ln(-1))*x* (Sin(x)/i);
 i:=i+Шаг;
end;
Цитата:
сформировать массив значений выражений
Что не умеем массив формировать или значения в него заносить? размер массива возьми по максимуму.
Цитата:
-сформировать массив состоящий из положительных элементов;
-сформировать массив состоящий из отрицательных элементов;
Ну в циклах поставь условия, если положительное то в первый массив если отрицательное - во второй.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 16.11.2008, 06:08   #3
AlexLAN
 
Аватар для AlexLAN
 
Регистрация: 15.11.2008
Сообщений: 9
По умолчанию

Ну со вторым циклом понятно, но я не могу составить repeat...until
Есть такие люди которые пока не наступит критический момент - ничего делать не будут. Но когда он наступает трудоголизм просыпаться слишком сильно.
AlexLAN вне форума Ответить с цитированием
Старый 16.11.2008, 10:27   #4
MalexG
Форумчанин
 
Регистрация: 06.11.2008
Сообщений: 100
По умолчанию

Код:
i := i +1;
repeat
 summ := summ+x*(exp(i+1*ln(-1))*x* (Sin(x)/i);
 inc(i);
until i > N;
MalexG вне форума Ответить с цитированием
Старый 16.11.2008, 10:57   #5
AlexLAN
 
Аватар для AlexLAN
 
Регистрация: 15.11.2008
Сообщений: 9
По умолчанию

спасибо! Вроде понятно.
Есть такие люди которые пока не наступит критический момент - ничего делать не будут. Но когда он наступает трудоголизм просыпаться слишком сильно.
AlexLAN вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Циклы! vlad1991 Паскаль, Turbo Pascal, PascalABC.NET 15 28.10.2008 22:07
Паскаль(задача на итерационные циклы) TheKnyazz Помощь студентам 1 27.10.2008 02:35
задача на итерационные циклы. TheKnyazz Паскаль, Turbo Pascal, PascalABC.NET 9 26.10.2008 22:40
Итерационные циклы Андрюха из ПХТТ Паскаль, Turbo Pascal, PascalABC.NET 3 14.02.2008 15:49