fehler beim programmieren

[christian1988]

so hab ein problem beim programmieren eines programms, hoffe ihr könnt mir helfen also hier ist die aufgabe!

Internetzugang

Verschiedene Provider bieten unterschiedliche Tarife eines Online-Zuganges an.
Für alle Provider fallen Telefonkosten in Höhe von 1,81 DM pro Stunde an.
Provider 1 verlangt keine Aufnahmegebühr. Zu einer monatlichen Grundgebühr von 9,95 DM fallen für jede Online-Stunde 6 DM an. Eine Online-Stunde ist pro Monat gratis.
Provider 2 verlangt eine einmalige Aufnahmegebühr in Höhe von 25,- DM. Dafür kosten die Online-Zeit pauschal 25,- DM pro Monat.
Provider 3 verlangt keine Aufnahmegebühr. Jede Online-Stunde kostet hier 3 DM die Stunde. Zwei Online-Stunden sind im Monat gratis.

Schreibe ein Programm, welches in Abhängigkeit der Online verbrachten Stunden , die Kosten für jeden der drei Provider ausgibt pro Monat bzw. für einen Jahr ausgibt. Für einen 4. Provider sollen Anmeldegebühr und Kosten pro Online-Stunde durch den Nutzer einzugeben sein.


hab bei den ersten 3 provider keine probleme gehabt doch beim vierten funkts nicht so ganz hier mein quelltext:

Delphi-Quellcode:

var
  Form1: TForm1;
  a,b,c,d,e,f,g: real;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
a:=strtofloat(edit3.Text);

if a<=1 then b:=9.95
        else b:=(9.95+a*7.81)-6;
label5.caption:=floattostr(b)+'€';

c:=25+a*1.81;
label6.Caption:=floattostr(c)+'€ (Aufnahmegebühr nicht berücksichtigt)';

if a<=2 then d:=0
        else d:=(a*4.81)-6;
label7.Caption:=floattostr(d)+'€';

e:=strtofloat(edit1.Text);
f:=strtofloat(edit2.text);
if f<>'' then g:=e
         else g:=e+(a*f)+(a*1.81);
label10.caption:=floattostr(g)+'€';


end;

so könnt ihr mir sagen wo ich den fehler gemacht habe also er erscheint hier wo ich mit ooo kennzeichne:

Delphi-Quellcode:

if f<>'' ooo then g:=e
else g:=e+(a*f)+(a*1.81);

würde mich über hilfe sehr freuen
mfg christian

[edit=Luckie]Delphi-Tags gesetzt. Mfg, Luckie[/edit]