Задание последовательности, Задача на отыскание первого числа, большего, чем заданное. |
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 - |
volvo |
Сообщение
#2
|
Гость |
p := 0;Ты про это ? |
Fenrisulven |
Сообщение
#3
|
Группа: Пользователи Сообщений: 7 Пол: Мужской Реальное имя: Олег Репутация: 0 |
не знаю, я вот и спрашиваю) Если так, то хорошо. Но прогамма не выдает ответа, после ввода числа ничего не происходит
|
volvo |
Сообщение
#4
|
Гость |
У меня отработало.
Число какое вводишь? Я проверю у себя... |
Fenrisulven |
Сообщение
#5
|
Группа: Пользователи Сообщений: 7 Пол: Мужской Реальное имя: Олег Репутация: 0 |
параметр a? да любое ввожу и ничего не происходит, только возрастает загруженность процессора))
|
volvo |
Сообщение
#6
|
Гость |
Цитата Type a Что я делаю не так?3 First= 3.0198773448773449E+0000 Type a 10 First = 1.0000043008275808E+0001 Type a 10 First = 1.0000043008275808E+0001 Type a 9 First = 9.0002080629311404E+0000 |
Fenrisulven |
Сообщение
#7
|
Группа: Пользователи Сообщений: 7 Пол: Мужской Реальное имя: Олег Репутация: 0 |
Вод блин.... не знаю. у меня ны выдает ничего.
В любом случае, спасибо за помощь! |
Текстовая версия | 29.03.2024 11:43 |