richtig?

[resyiii]

ist dieser quelltext korrekt? :shock:

Delphi-Quellcode:

program eintritt;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var alt, ent,mit, log1, log2, log3: BOOLEAN;
a,e,m: INTEGER;

begin
write ('Alter:?'); readln(a);
write ('Entfernung=?'); readln(e);
write ('Mitglied=? (j=1, n=0)'); readln(m);

if a<15 then alt:= TRUE
        else alt:= FALSE;
if e>50 then ent:= TRUE
        else ent:= FALSE;
if m=1  then mit:= TRUE
        else mit:= FALSE;

log1:= (alt OR ent) AND mit;
log2:= (alt OR ent) AND NOT (mit);
log3:= NOT(log1) AND NOT (log2);

if log1=TRUE Then writeln ('Freier Eintritt');
if log2=TRUE then writeln ('Halber Eintritt');
if log3=TRUE then writeln ('Voller Eintritt');
readln;
  { TODO -oUser -cConsole Main : Hier Code einfügen }
end.

[mkinzler]

Was soll der Code den machen?
Besser

Delphi-Quellcode:

if log1 Then writeln ('Freier Eintritt');

[resyiii]

naja das is son filterprogramm.
am sportplatz, wenn ein mitglied jünger als 15 ist oder weiter als 50 km weg wohtn freier eintritt, nicht mitglieder halben und alles andere vollen.

aber wir solln den halt iwie verbessern, falls fehler da sind. das eben genannte hilft mir schon, danke : D

[WoGe]

und so

Delphi-Quellcode:

 alt := a<15;

[BAMatze]

Offtopic Und ich dachte immer man sollte irgendwo Mitglied sein, damit man nicht den vollen Eintrittspreis zahlen muss :lol:

[mkinzler]

Werden sie Mitglied und geniessen sie den Vorteil eines Preisaufschlages :stupid:

[Angel4585]

Vielleicht sollte man noch prüfen ob ne Zahl oder ein Buchstabe oder ein ganzes Wort eingegeben wurde

[Sharky]

Zitat:

Zitat von resyiii

ist dieser quelltext korrekt? :shock: ...

Hai resyiii,

bitte geben deinem Thread einen aussagekräftigen Titel.

Dazu klickst Du einfach in deinem obersten Eintrag auf den [EDIT]-Button.

Danke.