Код
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. |
 
|
|
  |
Ответов
| Гость |
Сообщение
#2
|
|
Гость |
ээээ вводиш разные е результат разный
или так должно быть? |
|
|
|
Сообщений в этой теме
-олег- итерационный цикл 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:07 Archon E - это точность. Чем меньше E, тем результат точн… 10.01.2007 4:13 Гость так чо с самого начало моя прога выдавала првильны… 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 19:08 |
Связь с администрацией: bu_gen в домене octagram.name