Kleines Problem

[DesperadoStrike]

irgentwo hier isn fehler drin ich kann mir auch schon genau denken wo der liegt aber ich weiß net wie ich ihn beheben soll da ich delphi fast garnicht kann und des für die schule fertig machen muss

program Project1;

{$APPTYPE CONSOLE}

uses
 SysUtils;

var

erlass, preis, endpreis :Real;
gp, sk :integer;

begin;

writeln ('Sind sie Stammkunde? ( 0 = Nein; 1 = Ja)');
readln (sk);

if sk = 0 then
begin;

writeln ('Sie sind Neukunde');
readln;
end;

if sk = 1 then
begin;

writeln ('Sie sind Stammkunde');
readln;
end;

begin;

writeln ('Wie hoch ist der Gesamtpreis?');
readln (gp);
end;

begin;

if gp < 100 then

erlass := 0.1 * sk

else;

if gp > 1000 then

erlass := 0.1 + 0.1 * sk

else;

erlass := 0.05+ 0.1 * sk

end;
begin;

preis := gp - gp * erlass;

writeln ('Gesamtpreis - Erlass: ',preis);
readln;
writeln ('Rabatt betraegt: ',erlass);
readln;

endpreis := preis*1.16;

writeln ('Preis mit MwSt: ',endpreis);
readln;
end;
end.

[mr.rattlz]

Mehr lernen, weniger zocken

program project1;

{$APPTYPE CONSOLE}

uses
 SysUtils;

var

erlass, preis, endpreis :Real;
gp, sk :integer;

begin
writeln ('Sind sie Stammkunde? ( 0 = Nein; 1 = Ja)');
readln (sk);
if sk = 0 then begin
  writeln ('Sie sind Neukunde');
  readln;
end;
if sk = 1 then begin
  writeln ('Sie sind Stammkunde');
  readln;
end;
writeln ('Wie hoch ist der Gesamtpreis?');
readln (gp);
if gp < 100 then
  erlass := 0.1 * sk
else
  if gp > 1000 then
    erlass := 0.1 + 0.1 * sk
  else;
     erlass := 0.05+ 0.1 * sk;
preis := gp - gp * erlass;
writeln ('Gesamtpreis - Erlass: '+floattostr(preis));
readln;
writeln ('Rabatt betraegt: '+floattostr(round(erlass*100)/100));
readln;

endpreis := preis*1.16;

writeln ('Preis mit MwSt: '+floattostr(round(endpreis*100)/100));
readln;

end.

[DesperadoStrike]

danke hat funktiert^^ kann man dich mieten? )


aber eine frage habe ich noch: es wird immer angezeigt das eine variable nie benutzt wird, was bedeutet das?

[DesperadoStrike]

muss mich korrigieren leider funktionierts doch nicht so wie ich mir des erhofft hatte wenn ich sk auf 1 setze und nen preis über 1000 setze krieg ich nur 15% rabatt was kann ich dagegen tun

[mr.rattlz]

lag an nem semikolon, das ich von dir übernommen hatte, so müsste es klappen:

program project1;
{$APPTYPE CONSOLE}
uses
 SysUtils;
var
erlass, preis, endpreis :Real;
gp, sk :integer;
begin
writeln ('Sind sie Stammkunde? ( 0 = Nein; 1 = Ja)');
readln (sk);
if sk = 0 then
  writeln ('Sie sind Neukunde')
else begin
  sk:=1;
  writeln ('Sie sind Stammkunde');
  end;
  readln;
writeln ('Wie hoch ist der Gesamtpreis?');
readln (gp);
if gp < 100 then
  erlass := 0.1 * sk
else
  if gp > 1000 then
    erlass := 0.1 + 0.1 * sk
  else
    erlass := 0.05+ 0.1 * sk;
preis := gp - gp * erlass;
writeln ('Gesamtpreis - Erlass: '+floattostr(preis));
readln;
writeln ('Rabatt betraegt: '+floattostr(round(erlass*100)/100));
readln;
endpreis := preis*1.16;
writeln ('Preis mit MwSt: '+floattostr(round(endpreis*100)/100));
readln;
end.

[DesperadoStrike]

+karma


aber eins noch es wird immer 0,x angezeigt wie muss ich runden das ich nur x habe? und ich hab versucht mit ' ein % dahinter zu setzen aber der zeigt mir immer errors

writeln ('Rabatt betraegt: '+floattostr(round(erlass*100)/100)' %');


sry für meine dummheit ^^"

[rEdoX]

Soll so gehn

writeln ('Rabatt betraegt: '+floattostr(round(erlass*100)/100) + '%');

[DesperadoStrike]

funktioniert thx, jetzt bleibt nurnoch ein kleines problem und zwar das der 0,2% anzeigt statt 20 kann mir da einer helfen^^???


thx für eure hilfe!

[Leonino]

wieviel ist den 20 durch 0,2? 100 richtiiiiig

also ist 0,2 mal 100? 20 richtiiiiig

das heißt immer mal 100 rechnen waer nicht schlecht

[DesperadoStrike]

anzeigt, nicht rechnet..

[rEdoX]

Dann lass doch dividiert durch 100 weg ..

writeln ('Rabatt betraegt: '+floattostr(round(erlass*100)) + '%');

[DesperadoStrike]

danke^^