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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 09.12.2009, 15:57   #1
lammy
Пользователь
 
Регистрация: 02.12.2009
Сообщений: 17
По умолчанию задача с циклом while

Не могу справиться с данной задачей, прошу совета у опытных программистов:
Изображения
Тип файла: jpg zadacha.jpg (18.2 Кб, 82 просмотров)
lammy вне форума Ответить с цитированием
Старый 09.12.2009, 16:06   #2
АvGuR
Новичок
Джуниор
 
Регистрация: 09.12.2009
Сообщений: 2
По умолчанию

Код:
const e=0.001;
var y0,y1,vp:real;
 k:integer;
begin
y0:=0;
y1:=1/2;
k:=1;
while abs(y1-y0)<e do begin
k:=k+1;
vp:=y1;
y0:=y1
y1:=(vp+1)/(vp+2);
end;
writeln(k);
readln;
end.
АvGuR вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
задача с циклом for lammy Помощь студентам 3 04.12.2009 06:45
Задача на массив с циклом Superlotles Помощь студентам 1 17.10.2009 16:46
Задача с циклом на Паскале Карабин Помощь студентам 2 02.04.2009 00:26
Задача с циклом for в c++ Many man Помощь студентам 5 14.12.2008 12:01
Задача с циклом POPOV Общие вопросы Delphi 13 01.02.2008 20:33