Код
program c;
var N:integer; YN,YN1,YN2,e:real;
begin
writeln('vvedite e');
readln (e);
YN:=YN1;YN1:=YN2;
N:=1;
repeat
N:=N+1;YN:=0.352*YN1+ cos(1.57 + YN2)
until ABS (YN - YN1)<E;
writeln ('predel ',YN:12:8)
end.
 итерационный цикл |
Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| -олег- |
Сообщение
#1
|
|
Гость  |
помогите найти ошибку
program c; var N:integer; YN,YN1,YN2,e:real; begin writeln('vvedite e'); readln (e); YN:=YN1;YN1:=YN2; N:=1; repeat N:=N+1;YN:=0.352*YN1+ cos(1.57 + YN2) until ABS (YN - YN1)<E; writeln ('predel ',YN:12:8) end. |
 
|
|
  |
Ответов
| Archon |
Сообщение
#2
|
 Профи  Группа: Пользователи Сообщений: 618 Пол: Мужской Репутация:  24  |
E - это точность. Чем меньше E, тем результат точнее.
Цитата это какой-то вычислительный рекурсивный метод? Это сходящаяся рекурентная последовательность (ряд).Сообщение отредактировано: Archon - -------------------- Close the World...txeN eht nepO
|
   |
|
Сообщений в этой теме
-олег- итерационный цикл 9.01.2007 23:43
мисс_граффити YN:=YN1;
а чему равно YN1? 9.01.2007 23:47 Гость YN:=Y(n-1); это вписать? 9.01.2007 23:55 мисс_граффити еще б знать, что такое Y и что должна делать прогр… 10.01.2007 0:05 Гость program c;
var N:integer; Y,YN,YN1,YN2,e… 10.01.2007 0:23 мисс_граффити ну естественно!!!
вот в этом месте чем… 10.01.2007 1:21 Гость program c;
var N:integer; Y,YN,YN1,YN2,e… 10.01.2007 1:43
Malice Сдается мне ты вот такое хотел изобразить:
program… 10.01.2007 3:27 Archon :lol: Извини, но приведи задание, а? 10.01.2007 3:29 Гость задание привел надо выщитать предел YN:=0.352*YN1… 10.01.2007 3:50 Гость program c;
var N:integer; Y,YN,YN1,YN2,e:r… 10.01.2007 3:56 мисс_граффити :blink:
это какой-то вычислительный рекурсивный м… 10.01.2007 4:03 Гость ээээ вводиш разные е результат разный
или так долж… 10.01.2007 4:06 Гость результат одинаковый всмысле 10.01.2007 4:07 Гость так чо с самого начало моя прога выдавала првильны… 10.01.2007 4:15 Archon Нет. С самого начала твоя прога вязла в бесконечно… 10.01.2007 4:23 Гость program c;
var N:integer; Y,YN,YN1,YN2,e:r… 10.01.2007 4:32 Гость ктонить знает как посчитать глубину рекуретной фор… 10.01.2007 20:59 Гость обясните хоть что такое глубина рекурентной формул… 10.01.2007 21:54 |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 8.11.2025 15:17 |
Связь с администрацией: bu_gen в домене octagram.name