n-dimens/pascalabcnet: The new generation Pascal programming language for .NET

TestSamples/CompilationSamples/harmonic.pas

23 строки306 B

Бондарев Иван

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1


function harm_member(i, j : integer) : real;
begin
 harm_member := 1.0/(i*j);
end;

var i, j : integer;
    s : real;

begin
 s := 0;
 i := 1; j := 1;
 while i < 30000 do
 begin
  j := 1;
  while j < 30000 do
  begin
   s := s + harm_member(i,j);
   j := j+1;
  end;
  i := i + 1;
 end;
 writeln(s); 
end.