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

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

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 20.11.2006, 15:11   #1
slot
Новичок
Джуниор
 
Регистрация: 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 - Ответ

Если не трудно ПЛЗ!! помогите))
slot вне форума Ответить с цитированием
Старый 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
slot
Новичок
Джуниор
 
Регистрация: 20.11.2006
Сообщений: 2
По умолчанию

что можете ещё посоветовать.....
если кто может... выложите полный исходный код.. как бы вы написали.! плз!
slot вне форума Ответить с цитированием
Старый 23.11.2006, 09:10   #4
Virtson
Владимир М.
Участник клуба
 
Аватар для Virtson
 
Регистрация: 30.10.2006
Сообщений: 1,289
По умолчанию

я бы так и написал, как трофимов александр
Берегите друг друга!
Virtson вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Люди добрые, помогите кто чем сможет. Chuprin2006 Microsoft Office Excel 4 11.06.2008 17:03
Люди добрые помогите!!!... Stas))) Помощь студентам 3 02.06.2007 20:07