Задание последовательности, Задача на отыскание первого числа, большего, чем заданное. |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Задание последовательности, Задача на отыскание первого числа, большего, чем заданное. |
Fenrisulven |
Сообщение
#1
|
Группа: Пользователи Сообщений: 7 Пол: Мужской Реальное имя: Олег Репутация: 0 |
Условие задачи: задается действительное число a. Среди чисел вида 1;1+1/2;1+1/2+1/3;1+1/2+1/3+1/4;... и т.д. найти первое, большее, чем a.
Насколько я понимю, такая последовательность чисел задается по формуле tn=tn-1+1/k , где k - порядковый номер, n и n-1 - индексы как все это написать в паскале? Я только начинаю его изучать, и понятия не имею как ему объяснить, чего я от него хочу. Если есть какие-л идеи, буду рад! вот то, что я сам сделал, но не думаю, что это похоже на правду program Project2; {$APPTYPE CONSOLE} uses SysUtils; const n=1; var a,p:extended; k:integer; begin writeln('Type a'); readln (a); k:=0; while not (p>a) do begin inc(k); ********** <-- это та самая формула, о которой я спрашивал end; writeln ('First=',p); readln; { TODO -oUser -cConsole Main : Insert code here } end. Сообщение отредактировано: Fenrisulven - |
Текстовая версия | 25.04.2024 16:28 |