AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Problem mit Konsole

Ein Thema von Golum1289 · begonnen am 26. Mai 2008 · letzter Beitrag vom 26. Mai 2008
Antwort Antwort
Golum1289

Registriert seit: 7. Mai 2008
Ort: Cottbus
4 Beiträge
 
#1

Problem mit Konsole

  Alt 26. Mai 2008, 20:05
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
Angehängte Dateien
Dateityp: dpr project1_280.dpr (1,7 KB, 0x aufgerufen)
  Mit Zitat antworten Zitat
Klaus01

Registriert seit: 30. Nov 2005
Ort: München
5.769 Beiträge
 
Delphi 10.4 Sydney
 
#2

Re: Problem mit Konsole

  Alt 26. Mai 2008, 20:33
Guten Abend,

hattest Du nicht schon in diesem Thread eine Lösung bekommen?

Grüße
Klaus
Klaus
  Mit Zitat antworten Zitat
Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#3

Re: Problem mit Konsole

  Alt 26. Mai 2008, 22:22
Könntest du deinem Beitrag bitte einen aussagekräftigen Titel geben?
"Konsole" steht ja eigentlich nur für den Programmtyp wie "grafische Oberfläche" wobei den Problem nichts mit dem Programmtyp zu tun hat
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat
26. Mai 2008, 22:23
Dieses Thema wurde von "SirThornberry" von "Sonstige Fragen zu Delphi" nach "Object-Pascal / Delphi-Language" verschoben.
grenzgaenger
(Gast)

n/a Beiträge
 
#5

Re: Problem mit Konsole

  Alt 26. Mai 2008, 22:26
a) solltest du erst mal deine variablen initialiseren. wenn du berechnet, steht da irgend etwas drin...

b) solltest du deine eingaben von den ausgaben trennen .. das "until" gehört vor die ausgabe...


Zitat von Klaus01:
Guten Abend,

hattest Du nicht schon in diesem Thread eine Lösung bekommen?

Grüße
Klaus

hab den anderen thread übersehen... aber da schien er glücklich mit seiner lösung gewesen zu sein... muss er halt in der zwischen zeit vergessen haben
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 10:01 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz