1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var  i,j,log10:extended ;

begin
  Writeln('Gib eine Zahl ein!');
  Readln(i);
  Writeln('Gib eine zweite Zahl ein!');
  Readln(j);
  { Das Programm soll von jeder Zahl -angefangen bei j- bis zur Zahl i den
  Logarithmus berechnen und speichern, den letzten Wert soll es ausgeben, damit
  man weiß, dass es fertig ist. Soll zur Rechnengeschwindkeitsberechnung dienen.
  Was tun?}
  i:=log10(i);
  writeln('',i,'');
  readln;
end.                    

1:
2:
3:
4:
5:
6:

Var
  x: Integer;
For x := i To j Do
  Begin
    { Hier die Berechnungen und die Ausgabe auf dem Bildschirm. } 
  End;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm1.Button1Click(Sender: TObject);
var
  Start, Ende : TDateTime;
  Von, Bis, i : Integer;
  Ergebnis : Real;
begin
  Von := StrToIntDef(Edit1.Text,1);
  Bis := StrToIntDef(Edit2.Text,1000000);
  Start := Now;
  For i := Von to Bis do
    Ergebnis := Log10(i);
  Ende := Now;
  Edit3.Text := FloatToStr(Ergebnis);
  Edit4.Text := FloatToStr((Ende-Start)*86400)+' Sekunden';
end;