Задание последовательности, Задача на отыскание первого числа, большего, чем заданное. Опции

[Fenrisulven]

Условие задачи: задается действительное число 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 - 16.04.2008 18:27

[volvo]

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

Число какое вводишь? Я проверю у себя...

[Fenrisulven]

параметр a? да любое ввожу и ничего не происходит, только возрастает загруженность процессора))