program Wochentag_func; {$APPTYPE CONSOLE} {13.12.2003 R.Weigel} {Dieses Programm beinhaltet die Function Wochentag. Diese Function ordnet den Zahlen 1 bis 7 jeweils die Wochentage Montag bis Sonntag zu.} uses SysUtils; function Wo_Tag(Zahl:integer):string; begin case Zahl of 1: Wo_Tag := 'Montag'; 2: Wo_Tag := 'Dienstag'; 3: Wo_Tag := 'Mittwoch'; 4: Wo_Tag := 'Donnerstag'; 5: Wo_Tag := 'Freitag'; 6: Wo_Tag := 'Samstag'; 7: Wo_Tag := 'Sonntag'; end; end; {--- Beginn Hauptprogramm ---} var Zahl:integer; begin writeln('Dieses Programm ordnet mithilfe einer Function'); writeln('den Zahlen 1 bis 7 die Wochentage'); writeln('Montag bis Sonntag zu.'); writeln('Beginn mit return.'); readln; writeln; for Zahl := 1 to 7 do writeln('Der ',Zahl,' wird der ',Wo_Tag(Zahl),' zugeordnet.'); readln; end.