Hallo,
erst einmal, ich bin ein Anfänger auf diesem Gebiet.


Mein Informatik Lehrer hat und letzte Stunde folgende Aufgabe gegeben:

Ein Programmierer verdient pro Stunde 42,95 Euro. Die wöchentliche Arbeitszeit liegt bei 38 Stunden. Für Überstunden werden 52,00 Euro bezahlt. Es sind jedoch nicht mehr als 16 Überstunden in der Woche erlaubt. Erstelle ein Programm, welches den Wochenlohn des Programmierers bestimmt.


Das Programm sieht jetzt bei mir so aus:

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37

program Project1;   {$mode objfpc}{$H+}   uses   Classes, SysUtils   { add your units here },crt;   VAR h,eh,hges : integer;   VAR lohn,extra,lohnges,lohngese,lohngesex : extended; begin clrscr; lohn:=42.95; extra:=52; write('Bitte geben Sie die Anzahl ihrer Arbeitsstunden ein.    ');readln(hges); IF (hges<=54) THEN BEGIN IF (hges<=38) THEN BEGIN lohnges:=hges*lohn; writeln; writeln('Ihr Wochenlohn betraegt ',lohnges,' Euro!'); END ELSE BEGIN eh:=hges-38; lohnges:=hges*lohn; lohngese:=eh*extra; lohngesex:=lohnges+lohngese; writeln; writeln('Ihr Wochenlohn betraegt ',lohngesex,' Euro!'); END; END ELSE BEGIN writeln; writeln('Sie koennen maximal 54 Arbeitsstunden haben!'); END; readkey; end.

Es funktioniert auch soweit, aber wenn ich z.B. 42 eingebe, kommt folgender Antwortsatz:
"Ihr Wochenlohn beträgt 2.0119000000000000E+0003 Euro!"
Wie kommt es zu dieser Zahl und warum steht dort nicht der eigentliche Wochenlohn?

Danke im Vorraus
DJ1410

writeln('Ihr Wochenlohn betraegt ',lohngesex:2:2,' Euro!');

probiers mal damit

Hey, es funktionert, vielen Dank!
Wäre top, wenn du mir verraten könntest, warum das so ist =)


Smirni

glaub die :2:2 gibt die stellen nach dem Komma an (oder so, naja werd am Dienstag mein Informatiklehrer fragen)

okay, danke!