home *** CD-ROM | disk | FTP | other *** search
/ CD Direkt 1995 #1 / Image.iso / cdd / direkt / fingb / haupt.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-08-03  |  34.5 KB  |  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ß-Britannien' ) OR ( LandE = 'Groß Britannien' ) OR
  199.               ( LandE = 'Gross-Britannien' ) OR ( LandE = 'Gross Britannien' ) OR
  200.               ( LandE = 'G-B' ) OR ( LandE = 'G-b' ) OR ( LandE = 'g-b' ) OR ( LandE = 'gb' )
  201.               OR ( LandE = 'groß-britannien' ) OR ( LandE = 'groß britannien' ) OR
  202.               ( LandE = 'gross-britannien' ) OR ( LandE = 'gross britannien' ) OR
  203.               ( LandE = 'Groß-britannien' ) OR ( LandE = 'Groß britannien' ) OR
  204.               ( LandE = 'Gross-britannien' ) OR ( LandE = 'Gross britannien' ) OR
  205.               ( LandE = 'Irland' ) OR ( LandE = 'irland' ) OR ( LandE = 'Holland' ) OR
  206.               ( LandE = 'holland' ) OR ( LandE = 'Belgien' ) OR ( LandE = 'belgien' ) OR
  207.               ( LandE = 'Luxemburg' ) OR ( LandE = 'luxemburg' ) OR ( LandE = 'Frankreich' )
  208.               OR ( LandE = 'frankreich' ) OR ( LandE = 'Deutschland' ) OR ( LandE = 'deutschland' )
  209.               OR ( LandE = 'Schweiz' ) OR ( LandE = 'schweiz' ) OR ( LandE = 'Österreich' ) OR
  210.               ( LandE = 'Oesterreich' ) OR ( LandE = 'österreich' ) OR ( LandE = 'oesterreich' )
  211.               OR ( LandE = 'Polen' ) OR ( LandE = 'polen' ) OR ( LandE = 'Slowakei' ) OR ( LandE = 'slowakei' ) OR
  212.               ( LandE = 'Slowenien' ) OR ( LandE = 'slowenien' ) OR ( LandE = 'Estland' ) OR
  213.               ( LandE = 'estland' ) OR ( LandE = 'Lettland' ) OR ( LandE = 'lettland' ) OR
  214.               ( LandE = 'Litauen' ) OR ( LandE = 'litauen' ) OR ( LandE = 'Kroatien' ) OR
  215.               ( LandE = 'kroatien' ) OR ( LandE = 'Portugal' ) OR ( LandE = 'portugal' ) OR
  216.               ( LandE = 'Italien' ) OR ( LandE = 'italien' ) OR ( LandE = 'Spanien' ) OR
  217.               ( LandE = 'spanien' ) OR ( LandE = 'Andorra' ) OR ( LandE = 'andorra' ) OR
  218.               ( LandE = 'Malta' ) OR ( LandE = 'malta' ) OR ( LandE = 'Bulgarien' ) OR
  219.               ( LandE = 'bulgarien' ) OR ( LandE = 'Ungarn' ) OR ( LandE = 'ungarn' ) OR
  220.               ( LandE = 'Rumänien' ) OR ( LandE = 'Rumaenien' ) OR ( LandE = 'rumänien' ) OR
  221.               ( LandE = 'rumaenien' ) OR ( LandE = 'Albanien' ) OR ( LandE = 'albanien' ) OR
  222.               ( LandE = 'Türkei' ) OR ( LandE = 'Tuerkei' ) OR ( LandE = 'türkei' ) OR
  223.               ( LandE = 'tuerkei' ) OR ( LandE = 'Griechenland' ) OR ( LandE = 'griechenland' )
  224.               OR ( LandE = 'Rußland' ) OR ( LandE = 'Russland' ) OR ( LandE = 'rußland' ) OR
  225.               ( LandE = 'russland' ) OR ( LandE = 'Ukraine' ) OR ( LandE = 'ukraine' ) OR
  226.               ( LandE = 'Moldawien' ) OR ( LandE = 'moldawien' ) OR ( LandE = 'Lichtenstein' )
  227.               OR ( LandE = 'lichtenstein' ) OR ( LandE = 'Weiß Rußland' ) OR
  228.               ( LandE = 'Weiß-Rußland' ) OR ( LandE = 'Weiss Russland' ) OR
  229.               ( LandE = 'Weiss-Russland' ) OR ( LandE = 'weiß-rußland' ) OR
  230.               ( LandE = 'weiß rußland' ) OR ( LandE = 'weiss-russland' ) OR
  231.               ( LandE = 'weiss russland' ) OR ( LandE = 'Weiß rußland' ) OR
  232.               ( LandE = 'Weiß-rußland' ) OR ( LandE = 'Weiss russland' ) OR
  233.               ( LandE = 'Weiss-russland' ) OR ( LandE = 'Niederlande' ) OR
  234.               ( LandE = 'niederlande' ) OR ( LandE = 'Mazedonien' ) OR
  235.               ( LandE = 'mazedonien' ) OR ( LandE = 'Serbien' ) OR ( LandE = 'serbien' ) OR
  236.               ( LandE = 'Bosnien Herzegowina' ) OR ( LandE = 'Bosnien-Herzegowina' )
  237.               OR ( LandE = 'bosnien herzegowina' ) OR ( LandE = 'bosnien-herzegowina' ) OR
  238.               ( LandE = 'Tschechische Republik' ) OR ( LandE = 'tschechische republik' ) OR
  239.               ( LandE = 'Tschechische republik' ) OR ( LandE = 'tschechische Republik' );
  240.  
  241.   writeln;
  242.  
  243.               IF ( LandE = 'Norwegen' ) OR ( LandE = 'norwegen' )
  244.                 THEN writeln ('    Die Hauptstadt von Norwegen ist :  Oslo.');
  245.  
  246.               IF ( LandE = 'Schweden' ) OR ( LandE = 'schweden' )
  247.                 THEN writeln ('    Die Hauptstadt von Schweden ist :  Stockholm.');
  248.  
  249.               IF ( LandE = 'Finnland' ) OR ( LandE = 'finnland' )
  250.                 THEN writeln ('    Die Hauptstadt von Finnland ist :  Helsinki.');
  251.  
  252.               IF ( LandE = 'Island' ) OR ( LandE = 'island' )
  253.                 THEN writeln ('    Die Hauptstadt von Island ist :  Reykjavik.');
  254.  
  255.               IF ( LandE = 'Dänemark' ) OR ( LandE = 'dänemark' ) OR
  256.                  ( LandE = 'Daenemark' ) OR ( LandE = 'daenemark' )
  257.                 THEN writeln ('    Die Hauptstadt von Dänemark ist :  Kopenhagen.');
  258.  
  259.               IF ( LandE = 'Irland' ) OR ( LandE = 'irland' )
  260.                 THEN writeln ('    Die Hauptstadt von Irland ist :  Dublin.');
  261.  
  262.               IF ( LandE = 'Holland' ) OR ( LandE = 'holland' ) OR
  263.                  ( LandE = 'Niederlande' ) OR ( LandE = 'niederlande' )
  264.                 THEN writeln ('    Die Hauptstadt von Holland ist :  Amsterdam.');
  265.  
  266.               IF ( LandE = 'Belgien' ) OR ( LandE = 'belgien' )
  267.                 THEN writeln ('    Die Hauptstadt von Belgien ist :  Brüssel.');
  268.  
  269.               IF ( LandE = 'Luxemburg' ) OR ( LandE = 'luxemburg' )
  270.                 THEN writeln ('    Die Hauptstadt von Luxemburg ist :  Luxemburg.');
  271.  
  272.               IF ( LandE = 'Frankreich' ) OR ( LandE = 'frankreich' )
  273.                 THEN writeln ('    Die Hauptstadt von Frankreich ist :  Paris.');
  274.  
  275.               IF ( LandE = 'Deutschland' ) OR ( LandE = 'deutschland' )
  276.                 THEN writeln ('    Die Hauptstadt von Deutschland ist :  Berlin.');
  277.  
  278.               IF ( LandE = 'Schweiz' ) OR ( LandE = 'schweiz' )
  279.                 THEN writeln ('    Die Hauptstadt von der Schweiz ist :  Bern.');
  280.  
  281.               IF ( LandE = 'Österreich' ) OR ( LandE = 'österreich' ) OR
  282.                  ( LandE = 'Oesterreich' ) OR ( LandE = 'oesterreich' )
  283.                 THEN writeln ('    Die Hauptstadt von Österreich ist :  Wien.');
  284.  
  285.               IF ( LandE = 'Polen' ) OR ( LandE = 'polen' )
  286.                 THEN writeln ('    Die Hauptstadt von Polen ist :  Warschau.');
  287.  
  288.               IF ( LandE = 'Tschechische Republik' ) OR ( LandE = 'tschechische republik' ) OR
  289.                  ( LandE = 'Tschechische republik' ) OR ( LandE = 'tschechische Republik' )
  290.                 THEN writeln ('    Die Hauptstadt von der Tschechischen Republik ist :  Prag.');
  291.  
  292.               IF ( LandE = 'Slowakei' ) OR ( LandE = 'slowakei' )
  293.                 THEN writeln ('    Die Hauptstadt von der Slowakei ist :  Bratislava.');
  294.  
  295.               IF ( LandE = 'Slowenien' ) OR ( LandE = 'slowenien' )
  296.                 THEN writeln ('    Die Hauptstadt von Slowenien ist :  Ljublana.');
  297.  
  298.               IF ( LandE = 'Estland' ) OR ( LandE = 'estland' )
  299.                 THEN writeln ('    Die Hauptstadt von Estland ist :  Reval.');
  300.  
  301.               IF ( LandE = 'Lettland' ) OR ( LandE = 'lettland' )
  302.                 THEN writeln ('    Die Hauptstadt von Lettland ist :  Riga.');
  303.  
  304.               IF ( LandE = 'Litauen' ) OR ( LandE = 'litauen' )
  305.                 THEN writeln ('    Die Hauptstadt von Litauen ist :  Wilna.');
  306.  
  307.               IF ( LandE = 'Kroatien' ) OR ( LandE = 'kroatien' )
  308.                 THEN writeln ('    Die Hauptstadt von Kroatien ist :  Zagreb.');
  309.  
  310.               IF ( LandE = 'Portugal' ) OR ( LandE = 'portugal' )
  311.                 THEN writeln ('    Die Hauptstadt von Portugal ist :  Lissabon.');
  312.  
  313.               IF ( LandE = 'Italien' ) OR ( LandE = 'italien' )
  314.                 THEN writeln ('    Die Hauptstadt von Italien ist :  Rom.');
  315.  
  316.               IF ( LandE = 'Spanien' ) OR ( LandE = 'spanien' )
  317.                 THEN writeln ('    Die Hauptstadt von Spanien ist :  Madrid.');
  318.  
  319.               IF ( LandE = 'Andorra' ) OR ( LandE = 'andorra' )
  320.                 THEN writeln ('    Die Hauptstadt von Andorra ist :  Andorra.');
  321.  
  322.               IF ( LandE = 'Malta' ) OR ( LandE = 'malta' )
  323.                 THEN writeln ('    Die Hauptstadt von Malta ist :  La Valletta.');
  324.  
  325.               IF ( LandE = 'Bulgarien' ) OR ( LandE = 'bulgarien' )
  326.                 THEN writeln ('    Die Hauptstadt von Bulgarien ist :  Sofia.');
  327.  
  328.               IF ( LandE = 'Ungarn' ) OR ( LandE = 'ungarn' )
  329.                 THEN writeln ('    Die Hauptstadt von Ungarn ist :  Budapest.');
  330.  
  331.               IF ( LandE = 'Rumänien' ) OR ( LandE = 'rumänien' ) OR
  332.                  ( LandE = 'Rumaenien' ) OR ( LandE = 'rumaenien' )
  333.                 THEN writeln ('    Die Hauptstadt von Rumänien ist :  Bukarest.');
  334.  
  335.               IF ( LandE = 'Albanien' ) OR ( LandE = 'albanien' )
  336.                 THEN writeln ('    Die Hauptstadt von Albanien ist :  Tirana.');
  337.  
  338.               IF ( LandE = 'Türkei' ) OR ( LandE = 'türkei' ) OR
  339.                  ( LandE = 'Tuerkei' ) OR ( LandE = 'tuerkei' )
  340.                 THEN writeln ('    Die Hauptstadt von der Türkei ist :  Ankara.');
  341.  
  342.               IF ( LandE = 'Griechenland' ) OR ( LandE = 'griechenland' )
  343.                 THEN writeln ('    Die Hauptstadt von Griechenland ist :  Athen.');
  344.  
  345.               IF ( LandE = 'Rußland' ) OR ( LandE = 'rußland' ) OR
  346.                  ( LandE = 'Russland' ) OR ( LandE = 'russland' )
  347.                 THEN writeln ('    Die Hauptstadt von Rußland ist :  Moskau.');
  348.  
  349.               IF ( LandE = 'Ukraine' ) OR ( LandE = 'ukraine' )
  350.                 THEN writeln ('    Die Hauptstadt von der Ukraine ist :  Kiew.');
  351.  
  352.               IF ( LandE = 'Moldawien' ) OR ( LandE = 'moldawien' )
  353.                 THEN writeln ('    Die Hauptstadt von Moldawien ist :  Kischinew.');
  354.  
  355.               IF ( LandE = 'Lichtenstein' ) OR ( LandE = 'lichtenstein' )
  356.                 THEN writeln ('    Die Hauptstadt von Lichtenstein ist :  Vaduz.');
  357.  
  358.               IF ( LandE = 'GB' ) OR ( LandE = 'Gb' ) OR
  359.                  ( LandE = 'Groß-Britannien' ) OR ( LandE = 'Groß Britannien' ) OR
  360.                  ( LandE = 'Gross-Britannien' ) OR ( LandE = 'Gross Britannien' ) OR
  361.                  ( LandE = 'G-B' ) OR ( LandE = 'G-b' ) OR ( LandE = 'g-b' ) OR ( LandE = 'gb' )
  362.               OR ( LandE = 'groß-britannien' ) OR ( LandE = 'groß britannien' ) OR
  363.                  ( LandE = 'gross-britannien' ) OR ( LandE = 'gross britannien' ) OR
  364.                  ( LandE = 'Groß-britannien' ) OR ( LandE = 'Groß britannien' ) OR
  365.                  ( LandE = 'Gross-britannien' ) OR ( LandE = 'Gross britannien' )
  366.                 THEN writeln ('    Die Hauptstadt von Groß-Britannien ist :  London.');
  367.  
  368.               IF ( LandE = 'Weiß Rußland' ) OR
  369.                  ( LandE = 'Weiß-Rußland' ) OR ( LandE = 'Weiss Russland' ) OR
  370.                  ( LandE = 'Weiss-Russland' ) OR ( LandE = 'weiß-rußland' ) OR
  371.                  ( LandE = 'weiß rußland' ) OR ( LandE = 'weiss-russland' ) OR
  372.                  ( LandE = 'weiss russland' ) OR ( LandE = 'Weiß rußland' ) OR
  373.                  ( LandE = 'Weiß-rußland' ) OR ( LandE = 'Weiss russland' ) OR
  374.                  ( LandE = 'Weiss-russland' )
  375.                 THEN writeln ('    Die Hauptstadt von Weiß Rußland ist :  Minsk.');
  376.  
  377.               IF ( LandE = 'Slowenien' ) OR ( LandE = 'slowenien' )
  378.                 THEN writeln ('    Die Hauptstadt von Slowenien ist :  Ljublana.');
  379.  
  380.               IF ( LandE = 'Bosnien Herzegowina' ) OR ( LandE = 'Bosnien-Herzegowina' )
  381.                  OR ( LandE = 'bosnien herzegowina' ) OR ( LandE = 'bosnien-herzegowina' )
  382.                 THEN writeln ('    Die Hauptstadt von Bosnien-Herzegowina ist :  Sarajewo.');
  383.  
  384.               IF ( LandE = 'Serbien' ) OR ( LandE = 'serbien' )
  385.                 THEN writeln ('    Die Hauptstadt von Serbien ist :  Belgrad.');
  386.  
  387.               IF ( LandE = 'Mazedonien' ) OR ( LandE = 'mazedonien' )
  388.                 THEN writeln ('    Die Hauptstadt von Mazedonien ist :  Skopje.');
  389.  
  390.   delay(4000);
  391.         end;
  392.         
  393.  
  394.  
  395.     IF Frage = '2' THEN
  396.        
  397.  
  398.  
  399.  
  400.         REPEAT
  401.           clrscr;
  402.           FillWindow (LightGray);
  403.           TextBackGround (LightGray);
  404.           TextColor (Black);
  405.           writeln;
  406.           writeln;
  407.           writeln  ('    Was möchten Sie ?  : ');
  408.           writeln  ('    -------------------- ');
  409.           writeln;
  410.           writeln;
  411.           writeln (' 1 = Bundesländer der Hauptstädte           ');
  412.           writeln;
  413.           writeln ('            O D E R                         ');
  414.           writeln;
  415.           writeln (' 2 =   Länder von Europa                    ');
  416.           writeln;
  417.           writeln;
  418.           write   (' Ihre Wahl ( 1 oder 2 ) : ');
  419.           readln(WahlH)
  420.         UNTIL ( WahlH = '1' ) OR ( WahlH = '2' );
  421.  
  422.  
  423.  
  424.          IF ( Frage = '2' ) AND ( WahlH = '1' ) THEN
  425.            begin
  426.  
  427.         REPEAT
  428.           clrscr;
  429.           FillWindow (LightGray);
  430.           TextBackGround (Red);
  431.           TextColor (Yellow);
  432.           gotoxy (30,2);
  433.           writeln ('B U N D E S L Ä N D E R');
  434.           gotoxy (30,3);
  435.           write   ('-----------------------');
  436.           TextBackGround (LightGray);
  437.           TextColor (Black);
  438.           gotoxy (5,6);
  439.           write ('Geben Sie bitte die Hauptstadt eines Bundeslandes ein : ');
  440.           readln(Haupt);
  441.         UNTIL ( Haupt = 'Stuttgart' ) OR ( Haupt = 'stuttgart' ) OR
  442.               ( Haupt = 'München' ) OR ( Haupt = 'münchen' ) OR
  443.               ( Haupt = 'Muenchen' ) OR ( Haupt = 'muenchen' ) OR
  444.               ( Haupt = 'Saarbrücken' ) OR ( Haupt = 'saarbrücken' ) OR
  445.               ( Haupt = 'Saarbruecken' ) OR ( Haupt = 'saarbruecken' ) OR
  446.               ( Haupt = 'Mainz' ) OR ( Haupt = 'mainz' ) OR
  447.               ( Haupt = 'Wiesbaden' ) OR ( Haupt = 'wiesbaden' ) OR
  448.               ( Haupt = 'Düsseldorf' ) OR ( Haupt = 'düsseldorf' ) OR
  449.               ( Haupt = 'Duesseldorf' ) OR ( Haupt = 'duesseldorf' ) OR
  450.               ( Haupt = 'Bremen' ) OR ( Haupt = 'bremen' ) OR
  451.               ( Haupt = 'Hannover' ) OR ( Haupt = 'hannover' ) OR
  452.               ( Haupt = 'Hamburg' ) OR ( Haupt = 'hamburg' ) OR
  453.               ( Haupt = 'Kiel' ) OR ( Haupt = 'kiel' ) OR
  454.               ( Haupt = 'Schwerin' ) OR ( Haupt = 'schwerin' ) OR
  455.               ( Haupt = 'Magdeburg' ) OR ( Haupt = 'magdeburg' ) OR
  456.               ( Haupt = 'Erfurt' ) OR ( Haupt = 'erfurt' ) OR
  457.               ( Haupt = 'Dresden' ) OR ( Haupt = 'dresden' ) OR
  458.               ( Haupt = 'Berlin' ) OR ( Haupt = 'berlin' ) OR
  459.               ( Haupt = 'Potsdam' ) OR ( Haupt = 'potsdam' );
  460.  
  461.   writeln;
  462.  
  463.            IF ( Haupt = 'Stuttgart' ) OR ( Haupt = 'stuttgart' )
  464.              THEN writeln ('    Das Bundesland von Stuttgart ist :  Baden-Württemberg.');
  465.  
  466.            IF ( Haupt = 'München' ) OR ( Haupt = 'münchen' ) OR
  467.               ( Haupt = 'Muenchen' ) OR ( Haupt = 'muenchen' )
  468.              THEN writeln ('    Das Bundesland von München ist :  Bayern.');
  469.  
  470.            IF ( Haupt = 'Saarbrücken' ) OR ( Haupt = 'saarbrücken' ) OR
  471.               ( Haupt = 'Saarbruecken' ) OR ( Haupt = 'saarbruecken' )
  472.              THEN writeln ('    Das Bundesland von Saarbrücken ist :  das Saarland.');
  473.  
  474.            IF ( Haupt = 'Wiesbaden' ) OR ( Haupt = 'wiesbaden' )
  475.              THEN writeln ('    Das Bundesland von Wiesbaden ist :  Hessen.');
  476.  
  477.            IF ( Haupt = 'Düsseldorf' ) OR ( Haupt = 'düsseldorf' ) OR
  478.               ( Haupt = 'Duesseldorf' ) OR ( Haupt = 'duesseldorf' )
  479.              THEN writeln ('    Das Bundesland von Düsseldorf ist :  Nordrhein-Westfalen.');
  480.  
  481.            IF ( Haupt = 'Bremen' ) OR ( Haupt = 'bremen' )
  482.              THEN writeln ('    Das Bundesland von Bremen ist :  Bremen.');
  483.  
  484.            IF ( Haupt = 'Hamburg' ) OR ( Haupt = 'hamburg' )
  485.              THEN writeln ('    Das Bundesland von Hamburg ist :  Hamburg.');
  486.  
  487.            IF ( Haupt = 'Kiel' ) OR ( Haupt = 'kiel' )
  488.              THEN writeln ('    Das Bundesland von Kiel ist :  Schleswig-Holstein.');
  489.  
  490.            IF ( Haupt = 'Hannover' ) OR ( Haupt = 'hannover' )
  491.              THEN writeln ('    Das Bundesland von Hannover ist :  Niedersachsen.');
  492.  
  493.            IF ( Haupt = 'Mainz' ) OR ( Haupt = 'mainz' )
  494.              THEN writeln ('    Das Bundesland von Mainz ist :  Rheinland-Pfalz.');
  495.  
  496.            IF ( Haupt = 'Schwerin' ) OR ( Haupt = 'schwerin' )
  497.              THEN writeln ('    Das Bundesland von Schwerin ist :  Mecklenburg-Vorpommern.');
  498.  
  499.            IF ( Haupt = 'Berlin' ) OR ( Haupt = 'berlin' )
  500.              THEN writeln ('    Das Bundesland von Berlin ist :  Berlin.');
  501.  
  502.            IF ( Haupt = 'Potsdam' ) OR ( Haupt = 'potsdam' )
  503.              THEN writeln ('    Das Bundesland von Potsdam ist :  Brandenburg.');
  504.  
  505.            IF ( Haupt = 'Dresden' ) OR ( Haupt = 'dresden' )
  506.              THEN writeln ('    Das Bundesland von Dresden ist :  Sachsen.');
  507.  
  508.            IF ( Haupt = 'Erfurt' ) OR ( Haupt = 'erfurt' )
  509.              THEN writeln ('    Das Bundesland von Erfurt ist :  Thüringen.');
  510.  
  511.            IF ( Haupt = 'Magdeburg' ) OR ( Haupt = 'magdeburg' )
  512.              THEN writeln ('    Das Bundesland von Magdeburg ist :  Sachsen-Anhalt.');
  513.  
  514.  
  515.   delay(4000);
  516.         end;
  517.         
  518.  
  519.  
  520.  
  521.     IF ( Frage = '2' ) AND ( WahlH = '2' ) THEN
  522.         begin
  523.       
  524.         REPEAT
  525.           clrscr;
  526.           FillWindow (LightGray);
  527.           TextBackGround (Red);
  528.           TextColor (Yellow);
  529.           gotoxy (30,2);
  530.           writeln ('E U R O P A L Ä N D E R');
  531.           gotoxy (30,3);
  532.           write   ('-----------------------');
  533.           TextBackGround (LightGray);
  534.           TextColor (Black);
  535.           gotoxy (5,6);
  536.           write ('Geben Sie bitte die Hauptstadt eines europäischen Landes ein : ');
  537.           readln(HauptE);
  538.         UNTIL ( HauptE = 'Oslo' ) OR ( HauptE = 'oslo' ) OR ( HauptE = 'Stockholm' )
  539.                OR ( HauptE = 'stockholm' ) OR ( HauptE = 'Helsinki' )
  540.                OR ( HauptE = 'helsinki' ) OR ( HauptE = 'Reykjavik' )
  541.                OR ( HauptE = 'reykjavik' ) OR ( HauptE = 'Kopenhagen' )
  542.                OR ( HauptE = 'kopenhagen' ) OR ( HauptE = 'London' )
  543.                OR ( HauptE = 'london' ) OR ( HauptE = 'Dublin' )
  544.                OR ( HauptE = 'dublin' ) OR ( HauptE = 'Amsterdam' )
  545.                OR ( HauptE = 'amsterdam' ) OR ( HauptE = 'Brüssel' )
  546.                OR ( HauptE = 'brüssel' ) OR ( HauptE = 'Bruessel' )
  547.                OR ( HauptE = 'bruessel' ) OR ( HauptE = 'Luxemburg' )
  548.                OR ( HauptE = 'luxemburg' ) OR ( HauptE = 'Paris' )
  549.                OR ( HauptE = 'paris' ) OR ( HauptE = 'Berlin' )
  550.                OR ( HauptE = 'berlin' ) OR ( HauptE = 'Bern' )
  551.                OR ( HauptE = 'bern' ) OR ( HauptE = 'Wien' )
  552.                OR ( HauptE = 'wien' ) OR ( HauptE = 'Warschau' )
  553.                OR ( HauptE = 'warschau' ) OR ( HauptE = 'Prag' )
  554.                OR ( HauptE = 'prag' ) OR ( HauptE = 'Bratislava' )
  555.                OR ( HauptE = 'bratislava' ) OR ( HauptE = 'Ljublana' )
  556.                OR ( HauptE = 'ljublana' ) OR ( HauptE = 'Reval' )
  557.                OR ( HauptE = 'reval' ) OR ( HauptE = 'Riga' )
  558.                OR ( HauptE = 'riga' ) OR ( HauptE = 'Wilna' )
  559.                OR ( HauptE = 'wilna' ) OR ( HauptE = 'Zagreb' )
  560.                OR ( HauptE = 'zagreb' ) OR ( HauptE = 'Lissabon' )
  561.                OR ( HauptE = 'lissabon' ) OR ( HauptE = 'Rom' )
  562.                OR ( HauptE = 'rom' ) OR ( HauptE = 'Madrid' )
  563.                OR ( HauptE = 'madrid' ) OR ( HauptE = 'Andorra' )
  564.                OR ( HauptE = 'andorra' ) OR ( HauptE = 'La Valletta' )
  565.                OR ( HauptE = 'La valletta' ) OR ( HauptE = 'la Valletta' )
  566.                OR ( HauptE = 'la valletta' ) OR ( HauptE = 'Sofia' )
  567.                OR ( HauptE = 'sofia' ) OR ( HauptE = 'Budapest' )
  568.                OR ( HauptE = 'budapest' ) OR ( HauptE = 'Bukarest' )
  569.                OR ( HauptE = 'bukarest' ) OR ( HauptE = 'Tirana' )
  570.                OR ( HauptE = 'tirana' ) OR ( HauptE = 'Ankara' )
  571.                OR ( HauptE = 'ankara' ) OR ( HauptE = 'Athen' )
  572.                OR ( HauptE = 'athen' ) OR ( HauptE = 'Moskau' )
  573.                OR ( HauptE = 'moskau' ) OR ( HauptE = 'Minsk' )
  574.                OR ( HauptE = 'minsk' ) OR ( HauptE = 'Kiew' )
  575.                OR ( HauptE = 'kiew' ) OR ( HauptE = 'Kischinew' )
  576.                OR ( HauptE = 'kischinew' ) OR ( HauptE = 'Vaduz' )
  577.                OR ( HauptE = 'vaduz' ) OR ( HauptE = 'Sarajewo' )
  578.                OR ( HauptE = 'sarajewo' ) OR ( HauptE = 'Belgrad' )
  579.                OR ( HauptE = 'belgrad' ) OR ( HauptE = 'Skopje' )
  580.                OR ( HauptE = 'skopje' );
  581.  
  582.     writeln;
  583.  
  584.              IF ( HauptE = 'Oslo' ) OR ( HauptE = 'oslo' )
  585.                THEN writeln ('    Das Land von Oslo ist :  Norwegen.');
  586.  
  587.              IF ( HauptE = 'Stockholm' ) OR ( HauptE = 'stockholm' )
  588.                THEN writeln ('    Das Land von Stockholm ist :  Schweden.');
  589.  
  590.              IF ( HauptE = 'Helsinki' ) OR ( HauptE = 'helsinki' )
  591.                THEN writeln ('    Das Land von Helsinki ist :  Finnland.');
  592.  
  593.              IF ( HauptE = 'Reykjavik' ) OR ( HauptE = 'reykjavik' )
  594.                THEN writeln ('    Das Land von Reykjavik ist :  Island.');
  595.  
  596.              IF ( HauptE = 'Kopenhagen' ) OR ( HauptE = 'kopenhagen' )
  597.                THEN writeln ('    Das Land von Kopenhagen ist :  Dänemark.');
  598.  
  599.               IF ( HauptE = 'London' ) OR ( HauptE = 'london' )
  600.                THEN writeln ('    Das Land von London ist :  Groß-Britannien.');
  601.  
  602.               IF ( HauptE = 'Dublin' ) OR ( HauptE = 'dublin' )
  603.                THEN writeln ('    Das Land von Dublin ist :  Irland.');
  604.  
  605.               IF ( HauptE = 'Amsterdam' ) OR ( HauptE = 'amsterdam' )
  606.                THEN writeln ('    Das Land von Amsterdam ist :  Holland ( Niederlande ).');
  607.  
  608.               IF ( HauptE = 'Brüssel' ) OR ( HauptE = 'brüssel' ) OR
  609.                  ( HauptE = 'Bruessel' ) OR ( HauptE = 'bruessel' )
  610.                THEN writeln ('    Das Land von Brüssel ist :  Belgien.');
  611.  
  612.               IF ( HauptE = 'Luxemburg' ) OR ( HauptE = 'luxemburg' )
  613.                THEN writeln ('    Das Land von Luxemburg ist :  Luxemburg.');
  614.  
  615.               IF ( HauptE = 'Paris' ) OR ( HauptE = 'paris' )
  616.                THEN writeln ('    Das Land von Paris ist :  Frankreich.');
  617.  
  618.               IF ( HauptE = 'Berlin' ) OR ( HauptE = 'berlin' )
  619.                THEN writeln ('    Das Land von Berlin ist :  Deutschland.');
  620.  
  621.               IF ( HauptE = 'Bern' ) OR ( HauptE = 'bern' )
  622.                THEN writeln ('    Das Land von Bern ist :  die Schweiz.');
  623.  
  624.               IF ( HauptE = 'Wien' ) OR ( HauptE = 'wien' )
  625.                THEN writeln ('    Das Land von Wien ist :  Österreich.');
  626.  
  627.               IF ( HauptE = 'Warschau' ) OR ( HauptE = 'warschau' )
  628.                THEN writeln ('    Das Land von Warschau ist :  Polen.');
  629.  
  630.               IF ( HauptE = 'Prag' ) OR ( HauptE = 'prag' )
  631.                THEN writeln ('    Das Land von Prag ist :  die Tschechische Republik.');
  632.  
  633.               IF ( HauptE = 'Bratislava' ) OR ( HauptE = 'bratislava' )
  634.                 THEN writeln ('    Das Land von Bratislava ist :  die Slowakei.');
  635.  
  636.               IF ( HauptE = 'Ljublana' ) OR ( HauptE = 'ljublana' )
  637.                THEN writeln ('    Das Land von Ljublana ist :  Slowenien.');
  638.  
  639.               IF ( HauptE = 'Reval' ) OR ( HauptE = 'reval' )
  640.                THEN writeln ('    Das Land von Reval ist :  Estland.');
  641.  
  642.               IF ( HauptE = 'Riga' ) OR ( HauptE = 'riga' )
  643.                THEN writeln ('    Das Land von Riga ist :  Lettland.');
  644.  
  645.               IF ( HauptE = 'Wilna' ) OR ( HauptE = 'wilna' )
  646.                THEN writeln ('    Das Land von Wilna ist :  Litauen.');
  647.  
  648.               IF ( HauptE = 'Zagreb' ) OR ( HauptE = 'zagreb' )
  649.                THEN writeln ('    Das Land von Zagreb ist :  Kroatien.');
  650.  
  651.               IF ( HauptE = 'Lissabon' ) OR ( HauptE = 'lissabon' )
  652.                THEN writeln ('    Das Land von Lissabon ist :  Portugal.');
  653.  
  654.               IF ( HauptE = 'Rom' ) OR ( HauptE = 'rom' )
  655.                THEN writeln ('    Das Land von Rom ist :  Italien.');
  656.  
  657.               IF ( HauptE = 'Madrid' ) OR ( HauptE = 'madrid' )
  658.                THEN writeln ('    Das Land von Madrid ist :  Spanien.');
  659.  
  660.               IF ( HauptE = 'Andorra' ) OR ( HauptE = 'andorra' )
  661.                THEN writeln ('    Das Land von Andorra ist :  Andorra.');
  662.  
  663.               IF ( HauptE = 'La Valletta' ) OR ( HauptE = 'la valletta' ) OR
  664.                  ( HauptE = 'La valletta' ) OR ( HauptE = 'la Valletta' )
  665.                 THEN writeln ('    Das Land von La Valletta ist :  Malta.');
  666.  
  667.               IF ( HauptE = 'Sofia' ) OR ( HauptE = 'sofia' )
  668.                 THEN writeln ('    Das Land von Sofia ist :  Bulgarien.');
  669.  
  670.               IF ( HauptE = 'Budapest' ) OR ( HauptE = 'budapest' )
  671.                 THEN writeln ('    Das Land von Budapest ist :  Ungarn.');
  672.  
  673.               IF ( HauptE = 'Bukarest' ) OR ( HauptE = 'bukarest' )
  674.                 THEN writeln ('    Das Land von Bukarest ist :  Rumänien.');
  675.  
  676.               IF ( HauptE = 'Tirana' ) OR ( HauptE = 'tirana' )
  677.                 THEN writeln ('    Das Land von Tirana ist :  Albanien.');
  678.  
  679.               IF ( HauptE = 'Ankara' ) OR ( HauptE = 'ankara' )
  680.                 THEN writeln ('    Das Land von Ankara ist :  die Türkei.');
  681.  
  682.               IF ( HauptE = 'Athen' ) OR ( HauptE = 'athen' )
  683.                 THEN writeln ('    Das Land von Athen ist :  Griechenland.');
  684.  
  685.               IF ( HauptE = 'Moskau' ) OR ( HauptE = 'moskau' )
  686.                 THEN writeln ('    Das Land von Moskau ist :  Rußland.');
  687.  
  688.               IF ( HauptE = 'Minsk' ) OR ( HauptE = 'minsk' )
  689.                 THEN writeln ('    Das Land von Minsk ist :  Weiß Rußland.');
  690.  
  691.               IF ( HauptE = 'Kiew' ) OR ( HauptE = 'kiew' )
  692.                 THEN writeln ('    Das Land von Kiew ist :  die Ukraine.');
  693.  
  694.               IF ( HauptE = 'Kischinew' ) OR ( HauptE = 'kischinew' )
  695.                 THEN writeln ('    Das Land von Kischinew ist :  Moldawien.');
  696.  
  697.               IF ( HauptE = 'Vaduz' ) OR ( HauptE = 'vaduz' )
  698.                 THEN writeln ('    Das Land von Vaduz ist :  Lichtenstein.');
  699.  
  700.               IF ( HauptE = 'Sarajewo' ) OR ( HauptE = 'sarajewo' )
  701.                 THEN writeln ('    Das Land von Sarajewo ist :  Bosnien-Herzegowina.');
  702.  
  703.               IF ( HauptE = 'Belgrad' ) OR ( HauptE = 'belgrad' )
  704.                 THEN writeln ('    Das Land von Belgrad ist :  Serbien.');
  705.  
  706.               IF ( HauptE = 'Skopje' ) OR ( HauptE = 'skopje' )
  707.                 THEN writeln ('    Das Land von Skopje ist :  Mazedonien.');
  708.  
  709.  
  710.  
  711.   delay(4000);
  712.         end;
  713.  
  714.  
  715.             REPEAT
  716.               gotoxy (5,11);
  717.               write ('Möchten Sie noch etwas wissen ? (j/n) : ');
  718.               gotoxy (45,11);
  719.               clreol;
  720.               readln(Antwort);
  721.             UNTIL ( Antwort = 'n' ) OR ( Antwort = 'j' ) OR
  722.                   ( Antwort = 'N' ) OR ( Antwort = 'J' );
  723.  
  724. UNTIL ( Antwort = 'n' ) OR ( Antwort = 'N' );
  725.  clrscr;
  726.  DefineTextCursor (hardwaretextcursor,10,1);
  727. END.