IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Задание последовательности, Задача на отыскание первого числа, большего, чем заданное.
сообщение
Сообщение #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 -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






p := 0;

while not (p>a) do
begin
inc(k);
p := p + 1/k;
end;

Ты про это ?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3





Группа: Пользователи
Сообщений: 7
Пол: Мужской
Реальное имя: Олег

Репутация: -  0  +


не знаю, я вот и спрашиваю) Если так, то хорошо. Но прогамма не выдает ответа, после ввода числа ничего не происходит
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






У меня отработало.

Число какое вводишь? Я проверю у себя...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5





Группа: Пользователи
Сообщений: 7
Пол: Мужской
Реальное имя: Олег

Репутация: -  0  +


параметр a? да любое ввожу и ничего не происходит, только возрастает загруженность процессора))
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #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
Что я делаю не так?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7





Группа: Пользователи
Сообщений: 7
Пол: Мужской
Реальное имя: Олег

Репутация: -  0  +


Вод блин.... не знаю. у меня ны выдает ничего.


В любом случае, спасибо за помощь!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 31.10.2020 16:00
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name