Помогите решить две задачи!, Help |
1. Заголовок темы должен быть информативным. В противном случае тема закрывается и удаляется ...
2. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
3. Одна тема - один вопрос (задача)
4. Спрашивайте и отвечайте четко и по существу!!!
Помогите решить две задачи!, Help |
2D |
7.12.2004 21:16
Сообщение
#1
|
Гость |
Люди очень вас прошу !!! помогите решить вот эти задачи:
1)Построить таблицу значений функции "y" [a;b] с шагм h с приостановкой выдачи результатов через каждые N строк таблици. Найти max,min "y" и соответствующее им значения аргумента "x". _______________________ | № | x | y | ---------------------------------- | ... | ... | ... | ---------------------------------- y(x)=(x-1)*exp(-abs(x)); a=-2; b=3; h=0.05; N=20; 2)Вычислить max сумму обратных значений четных натуральных чисел (1/2, 1/4, 1/6 ... ) в которую входят слагаемые, не меньше 0.004. Проверить решение двумя способами - использованием цикла с предусловием WHILE_DO и цикл с постусловием Repeat_until. Заранее вас благодарю. |
leking |
7.12.2004 21:26
Сообщение
#2
|
Пионер Группа: Пользователи Сообщений: 126 Пол: Мужской Репутация: 0 |
откуда ты такую задачу откапал
-------------------- Для русского человека параллельные прямые не только сходяться, но иногда ещё и двояться.
|
BlackNightFear |
8.12.2004 1:24
Сообщение
#3
|
Новичок Группа: Пользователи Сообщений: 48 Пол: Мужской Репутация: 0 |
leking
:D задачка и в правду страннова-та.... Но здесь нет ничего сложного с мат. стороны это задачи! Организуем цикл. Далее чего делаем там... 1. Присваеваем некоторой переменной X начало сканирования! т.е. X := a; N := 1; Просчитываем сразу значение У (просто подставив в формулу) 2. X := X + h; N := N + 1; Снова: Просчитываем сразу значение У (просто подставив в формулу) 3. и так далее пока не последний шаг, т.е. где X == b Далее ещё учитывать останов на N'ом шаге. и все!! |
BlackNightFear |
8.12.2004 1:34
Сообщение
#4
|
Новичок Группа: Пользователи Сообщений: 48 Пол: Мужской Репутация: 0 |
а по поводу второй задачи - проще просто не бывает!
Тут я понял тебе надо сравнить 2 задачи как бы (одна с вайлом, другая с антилом...) 1 variant: Код var N : integer; Sum, Slag : real; begin N := 2; Sum := 0; Slag := 1/2; while ( Slag => 0.004) { Sum := Sum + Slag; N := N + 2; Slag := 1/N; // если следующее слагаемое больше или равно 0.004 то условие больше не выполнится } end; код не проверял возможно ошибочный, но ведь главное мысля! |
Текстовая версия | 27.05.2024 5:47 |