|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
20.11.2006, 15:11 | #1 |
Новичок
Джуниор
Регистрация: 20.11.2006
Сообщений: 2
|
помогите люди добрые!! проявите великодушие))!
Здравтсвуйте! помогите плз решить одну задачу.. сдавать курсовую через 10 дней... а я с этой работой ничего не сделал..
Надо решить задачу! Написать программу нахождения первого члена последовательности, An=1+1/2+...+1/n, где n=1,2,..., который не принадлежит отрезку [a,b], где a и b задаваемые числа. Я пробывал.. но это походу не правельно! var n,a,b,num:real; ... while num=0 do begin inc(n); if (1/n>b) or (1/n<a) then num:=1/n; // при a<b end; //num - Ответ Если не трудно ПЛЗ!! помогите)) |
20.11.2006, 15:44 | #2 |
Форумчанин
Регистрация: 03.11.2006
Сообщений: 321
|
Но после объявления переменной Num, там уже сидит "0"!
Попробуй: repeat inc(n); num:=1/n; untill (num>b) or (num<a); Но лучше сделай n типа integer, а не real. На выходе результат тоже будет в num. А n-типа integer потому что inc() может с real некорректно работать. |
21.11.2006, 18:05 | #3 |
Новичок
Джуниор
Регистрация: 20.11.2006
Сообщений: 2
|
что можете ещё посоветовать.....
если кто может... выложите полный исходный код.. как бы вы написали.! плз! |
23.11.2006, 09:10 | #4 |
Владимир М.
Участник клуба
Регистрация: 30.10.2006
Сообщений: 1,289
|
я бы так и написал, как трофимов александр
Берегите друг друга!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Люди добрые, помогите кто чем сможет. | Chuprin2006 | Microsoft Office Excel | 4 | 11.06.2008 17:03 |
Люди добрые помогите!!!... | Stas))) | Помощь студентам | 3 | 02.06.2007 20:07 |