Ich hab ein Programm grschrieben, welches Preise berechnet für ein Fotostudio.
Funktioniert alles, aber ich will, wenn ich genug eingekauft habe, das die Schleife beendet wird und der Endpreis angezeigt wird.
Hier ist der Quelltext
Delphi-Quellcode:
begin
writeln('Hallo, machen Sie ihre Eingabe');
Writeln;
Write('===========================================') ;
Writeln;
Writeln ;
Write('Artikelnummer: ');
Writeln; Writeln;
Write('1 - Passfoto'); Writeln;
Write('2 - Freundschaftsbilder'); Writeln;
Write('3 - poster') ;
Writeln ;
Writeln ;
repeat
write('Geben sie die Artikelnummer ein : ');readln(artikelnr);
write('Geben sie die Anzahl ein : ');readln(anzahl);
case artikelnr of
1: preis := 1.50;
2: preis := 2.00;
3: preis := 2.50;
end;
warenwert := preis * anzahl ;
mwstbetrag := warenwert * mwstsatz ;
net := warenwert + mwstbetrag ;
if anzahl >= 20 then rsatz := 0.2
else
if anzahl < 6 then rsatz := 0
else rsatz := 0.1;
rabatt := net * rsatz;
brut := net - rabatt;
gesamtpreis := gesamtpreis + brut ;
//ausgabe
Writeln ('Artikelnummer : ',artikelnr);
Writeln ('Anzahl : ',Anzahl,' Stueck');
Writeln ('Warenwert :',warenwert:15:2,' EUR') ;
Writeln ('Nettobetrag :',net:15:2,' EUR') ;
Writeln ('Rabatt :',Rabatt:15:2,' EUR') ;
Writeln ('Brutto :',brut:15:2,' EUR') ;
Writeln ('Gesamtpreis :',gesamtpreis:15:2,' EUR') ;
writeln('Gesamtpreis:' + FloatToStr(gesamtpreis));
writeln;
writeln;
until artikelnr = 0;
end.
Im Anhang findet sich auch der Quelltext.
Ich danke euch vorab für die Hilfe.
MFg
Golum1289