home *** CD-ROM | disk | FTP | other *** search
/ CD Direkt 1995 #1 / Image.iso / cdd / direkt / fingb / glueck.lzh / SAMMLUNG.ZIP / HAUPT.PAS < prev    next >
Pascal/Delphi Source File  |  1994-08-03  |  35KB  |  727 lines
  1. PROGRAM Hauptstadt;
  2.  
  3. USES CRT, MOUSE;
  4.  
  5. VAR Land    : STRING [30];
  6.     Antwort : STRING  [2];
  7.     Wahl    : STRING  [2];
  8.     LandE   : STRING [30];
  9.     Frage   : STRING [10];
  10.     WahlH   : STRING  [2];
  11.     Haupt   : STRING [30];
  12.     HauptE  : STRING [30];
  13.  
  14. PROCEDURE FillWindow (Color:Byte);
  15.   begin
  16.     TextBackGround(Color);
  17.     clrscr;
  18.   end;
  19.  
  20. BEGIN
  21.   REPEAT
  22.  
  23.         REPEAT
  24.  
  25.             clrscr;
  26.             DefineTextCursor (hardwaretextcursor,0,0);
  27.             FillWindow (LightGray);
  28.             TextBackGround (LightGray);
  29.             TextColor (Black);
  30.             writeln;
  31.             writeln;
  32.             writeln ('     Wählen Sie aus : ');
  33.             writeln ('     ---------------- ');
  34.             writeln;
  35.             writeln;
  36.             writeln ('   1 = Länder eingeben - Ausgabe der Hauptstädte ');
  37.             writeln;
  38.             writeln ('                    O D E R                      ');
  39.             writeln;
  40.             writeln ('   2 = Hauptstädte eingeben - Ausgabe der Länder ');
  41.             writeln;
  42.             writeln;
  43.             write   ('   Ihre Eingabe bitte : ');
  44.             readln(Frage);
  45.  
  46.           UNTIL ( Frage = '1' ) OR ( Frage = '2' );
  47.  
  48.       IF Frage = '1' THEN
  49.  
  50.  
  51.         REPEAT
  52.  
  53.           clrscr;
  54.           FillWindow (LightGray);
  55.           TextBackGround (LightGray);
  56.           TextColor (Black);
  57.           writeln;
  58.           writeln;
  59.           writeln  ('    Was möchten Sie ?  : ');
  60.           writeln  ('    -------------------- ');
  61.           writeln;
  62.           writeln;
  63.           writeln (' 1 = Hauptstädte der Bundesländer         ');
  64.           writeln;
  65.           writeln ('            O D E R                       ');
  66.           writeln;
  67.           writeln (' 2 = Hauptstädte von Europa               ');
  68.           writeln;
  69.           writeln;
  70.           write   (' Ihre Wahl ( 1 oder 2 ) : ');
  71.           readln(Wahl)
  72.  
  73.         UNTIL ( Wahl = '1' ) OR ( Wahl = '2' );
  74.  
  75.  
  76.         IF ( Frage = '1' ) AND ( Wahl = '1' ) THEN
  77.           begin
  78.  
  79.         REPEAT
  80.           clrscr;
  81.           FillWindow (LightGray);
  82.           TextBackGround (Red);
  83.           TextColor (Yellow);
  84.           gotoxy (30,2);
  85.           writeln ('H A U P T S T Ä D T E');
  86.           gotoxy (30,3);
  87.           write   ('---------------------');
  88.           TextBackGround (LightGray);
  89.           TextColor (Black);
  90.           gotoxy (5,6);
  91.           write ('Geben Sie bitte ein Bundesland von Deutschland ein : ');
  92.           readln(Land);
  93.         UNTIL ( Land = 'Hessen' ) OR ( Land = 'hessen' ) OR ( Land = 'Saarland' ) OR ( Land = 'saarland' )
  94.            OR ( Land = 'Nordrhein-Westfalen' ) OR ( Land = 'nordrhein-westfalen' ) OR
  95.               ( Land = 'Nordrhein Westfalen' ) OR ( Land = 'nordrhein westfalen' ) OR
  96.               ( Land = 'Rheinland-Pfalz' ) OR ( Land = 'rheinland-pfalz' ) OR
  97.               ( Land = 'Rheinland Pfalz' ) OR ( Land = 'rheinland pfalz' ) OR
  98.               ( Land = 'Baden Würtemberg' ) OR ( Land = 'baden würtemberg' ) OR
  99.               ( Land = 'Baden-Würtemberg' ) OR ( Land = 'baden-würtemberg' ) OR
  100.               ( Land = 'Bayern' ) OR ( Land = 'bayern' ) OR ( Land = 'Niedersachsen' )
  101.               OR ( Land = 'niedersachsen' ) OR ( Land = 'Bremen' ) OR ( Land = 'bremen' )
  102.               OR ( Land = 'Hamburg' ) OR ( Land = 'hamburg' ) OR
  103.               ( Land = 'Schleswig-Holstein' ) OR ( Land = 'schleswig-holstein' ) OR
  104.               ( Land = 'Schleswig Holstein' ) OR ( Land = 'schleswig holstein' ) OR
  105.               ( Land = 'Mecklenburg-Vorpommern' ) OR ( Land = 'mecklenburg-vorpommern' )
  106.               OR ( Land = 'Mecklenburg Vorpommern' ) OR ( Land = 'mecklenburg vorpommerk' )
  107.               OR ( Land = 'Sachsen-Anhalt' ) OR ( Land = 'sachsen-anhalt' ) OR
  108.               ( Land = 'Sachsen Anhalt' ) OR ( Land = 'sachsen anhalt' ) OR
  109.               ( Land = 'Thüringen' ) OR ( Land = 'thüringen' ) OR ( Land = 'Sachsen' ) OR
  110.               ( Land = 'sachsen' ) OR ( Land = 'Brandenburg' ) OR
  111.               ( Land = 'brandenburg' ) OR ( Land = 'Berlin' ) OR ( Land = 'berlin' ) OR
  112.               ( Land = 'Thueringen' ) OR ( Land = 'thueringen' );
  113.  
  114.   writeln;
  115.  
  116.           IF ( Land = 'Hessen' ) OR ( Land = 'hessen' )
  117.             THEN writeln ('    Die Hauptstadt von Hessen ist :  Wiesbaden.');
  118.  
  119.           IF ( Land = 'Saarland' ) OR ( Land = 'saarland' )
  120.             THEN writeln ('    Die Hauptstadt vom Saarland ist :  Saarbrücken.');
  121.  
  122.           IF ( Land = 'Nordrhein-Westfalen' ) OR ( Land = 'nordrhein-westfalen' )
  123.             OR ( Land = 'Nordrhein Westfalen' ) OR ( Land = 'nordrhein westfalen' )
  124.             THEN writeln ('    Die Hauptstadt von Nordrhein-Westfalen ist :  Düsseldorf.');
  125.  
  126.           IF ( Land = 'Rheinland-Pfalz' ) OR ( Land = 'rheinland-pfalz' )
  127.             OR ( Land = 'Rheinland Pfalz' ) OR ( Land = 'rheinland pfalz' )
  128.             THEN writeln ('    Die Hauptstadt von Rheinland-Pfalz ist :  Mainz.');
  129.  
  130.           IF ( Land = 'Baden Würtemberg' ) OR ( Land = 'baden würtemberg' )
  131.             OR ( Land = 'Baden-Würtemberg' ) OR ( Land = 'baden-würtemberg' )
  132.             THEN writeln ('    Die Hauptstadt von Baden Würtemberg ist :  Stuttgart .');
  133.  
  134.           IF ( Land = 'Bayern' ) OR ( Land = 'bayern' )
  135.             THEN writeln ('    Die Hauptstadt von Bayern ist :  München.');
  136.  
  137.           IF ( Land = 'Niedersachsen' ) OR ( Land = 'niedersachsen' )
  138.             THEN writeln ('    Die Hauptstadt von Niedersachsen ist :  Hannover.');
  139.  
  140.           IF ( Land = 'Bremen' ) OR ( Land = 'bremen' )
  141.             THEN writeln ('    Die Hauptstadt von Bremen ist :  Bremen.');
  142.  
  143.           IF ( Land = 'Hamburg' ) OR ( Land = 'hamburg' )
  144.             THEN writeln ('    Die Hauptstadt von Hamburg ist :  Hamburg.');
  145.  
  146.           IF ( Land = 'Schleswig-Holstein' ) OR ( Land = 'schleswig-holstein' )
  147.             OR ( Land = 'Schleswig Holstein' ) OR ( Land = 'schleswig holstein' )
  148.             THEN writeln ('    Die Hauptstadt von Schleswig-Holstein ist :  Kiel.');
  149.  
  150.           IF ( Land = 'Mecklenburg Vorpommern' ) OR ( Land = 'mecklenburg vorpommern' )
  151.             OR ( Land = 'Mecklenburg-Vorpommern' ) OR ( Land = 'mecklenburg-vorpommern' )
  152.             THEN writeln ('    Die Hauptstadt von Mecklenburg Vorpommern ist :  Schwerin.');
  153.  
  154.           IF ( Land = 'Sachsen-Anhalt' ) OR ( Land = 'sachsen-anhalt' )
  155.             OR ( Land = 'Sachsen Anhalt' ) OR ( Land = 'sachsen anhalt' )
  156.             THEN writeln ('    Die Hauptstadt von Sachsen-Anhalt ist :  Magdeburg.');
  157.  
  158.           IF ( Land = 'Thüringen' ) OR ( Land = 'thüringen' ) OR
  159.              ( Land = 'Thueringen' ) OR ( Land = 'thueringen' )
  160.             THEN writeln ('    Die Hauptstadt von Thüringen ist :  Erfurt.');
  161.  
  162.           IF ( Land = 'Sachsen' ) OR ( Land = 'sachsen' )
  163.             THEN writeln ('    Die Hauptstadt von Sachsen ist :  Dresden.');
  164.  
  165.           IF ( Land = 'Brandenburg' ) OR ( Land = 'brandenburg' )
  166.             THEN writeln ('    Die Hauptstadt von Brandenburg ist :  Potsdam.');
  167.  
  168.           IF ( Land = 'Berlin' ) OR ( Land = 'berlin' )
  169.             THEN writeln ('    Die Hauptstadt von Berlin ist :  Berlin.');
  170.   
  171.   delay(4000);
  172.         end;
  173.   
  174.  
  175.  
  176.  
  177.     IF ( Frage = '1' ) AND ( Wahl = '2' ) THEN
  178.          begin
  179.       
  180.         REPEAT
  181.           clrscr;
  182.           FillWindow (LightGray);
  183.           TextBackGround (Red);
  184.           TextColor (Yellow);
  185.           gotoxy (30,2);
  186.           writeln ('H A U P T S T Ä D T E');
  187.           gotoxy (30,3);
  188.           write   ('---------------------');
  189.           TextBackGround (LightGray);
  190.           TextColor (Black);
  191.           gotoxy (5,6);
  192.           write ('Geben Sie bitte ein Land von Europa ein : ');
  193.           readln(LandE);
  194.         UNTIL ( LandE = 'Norwegen' ) OR ( LandE = 'norwegen' ) OR ( LandE = 'Schweden' ) OR
  195.               ( LandE = 'schweden' ) OR ( LandE = 'Finnland' ) OR ( LandE = 'finnland' ) OR
  196.               ( LandE = 'Island' ) OR ( LandE = 'island' ) OR ( LandE = 'Dänemark' ) OR
  197.               ( LandE = 'dänemark' ) OR ( LandE = 'GB' ) OR ( LandE = 'Gb' )
  198.               OR ( LandE = 'Groß-Bri