Write('Ihr Name : '); Readln(name);
Write('Ihr Codewort : '); Readln(code);
Eingabeprüfung (Borland Pascal 7.0)
WHILE ( TRUE ) DO BEGIN
Write('Ihr Name : '); Readln(name);
Write('Ihr Codewort : '); Readln(code);
IF proof(name, code) THEN Break;
Writeln('Unzulaessige Angabe !');
count_down := count_down - 1;
IF count_down > 0 THEN Continue;
Writeln('Sie besitzen keine Nutzungsberechtigung !');
Break;
END;
Farbliche Hervorhebungen
TextColor(Green); Write('Ihr Name: '); TextColor(White); Readln(name);
TextColor(Green); Write('Ihr Codewort : '); TextColor(White); Readln(code);
IF NOT proof(name, code) THEN BEGIN
TextBackground(Red); Writeln('Unzulaessige Angabe !');
END;
Nicht zu bunt gestalten ! Funktionale Bildschirmbereiche
{ Dialogbereich }
GotoXY(2,2); Write('Ihr Name: '); Readln(name);
GotoXY(2,4); Write('Ihr Codewort : '); Readln(code);
IF NOT proof(name, code) THEN BEGIN
{ Mitteilungsbereich }
GotoXY(2,23); Writeln('Unzulaessige Angabe !');
END;
Vorsicht mit Writeln nach Positionierung in die letzte Bildschirmzeile !
Fenster
{ Dialogbereich }
Window(2,2, 78,20);
Write('Ihr Name: '); Readln(name);
Write('Ihr Codewort : '); Readln(code);
IF NOT proof(name, code) THEN BEGIN
{ Mitteilungsbereich }
Window(2,23,78,24); Writeln('Unzulaessige Angabe !');
END;
Turbo Pascal Prozeduren unterstützen nur ein aktuelles Fenster.