Можно ли проще сделать задачу на паскале?

[svobodys]

Дано действительное число А. Найти среди чисел 1, 1+1/2, 1+1/2+1/3, ....
первое, большее А.

[svobodys]

uses crt;

var x:real;
i:integer;
flag:boolean;

function Fun(j:integer):real;
var i:integer;
r:real;
begin
r:=0;
for i:=1 to j do
r:=r+1/i;
Fun:=r;
end;

begin
clrscr;
flag:=false;
writeln('INPUT A');
readln(x);
i:=2;
if x<1 then writeln('1')
else repeat
if x<Fun(i) then begin
writeln(Fun(i));
flag:=true;
end
else inc(i);
until flag;
end.

[danekne]

Можно проще. Через реккурентную формулу. Нужна формула общего члена ряда только

[Mixasik]

uses crt;

var A:real;
i:integer;

function Fun(j:integer):real;
var i:integer;
r:real;
begin
r:=0;
for i:=1 to j do
r:=r+1/i;
Fun:=r;
end;

begin
clrscr;
Write('A = ');Readln(A);
i := 1;
While (Fun(i)<A) do
 inc(i);
Writeln('i = ',i,'; Fun(',i,') = ',Fun(i):10:5);
Readkey;
end.

Твою функцию я не менял, сменил немного код самой программы.

[stasig]

ТАкая же задача не давно попалась, не решил.

[svobodys]

Спасиба) а есть еще какой нибудь метод решения, просто интересно.

[Mixasik]

uses crt;

var
A:real;
i:integer;
r:real;
function fun(j : integer; a : real):real;
var r : real;i:integer;
begin
 r := 0;
 for i:=1 to j do
  r := r+ 1/i;
 if r < A then r := fun(j+1,a);
fun := r;
end;
begin
clrscr;
Write('A = ');Readln(A);
Writeln('Fun = ',fun(1,a):10:5);
Readkey;
end.

Вот что еще пришло в голову

[stasig]

.............=)

[svobodys]

Можешь объяснить то что написал, а то я только учусь