Pascal-Rechenprogramm: Fussschleife

[FreePascal]

Auch in FreePascal braucht jedes begin ein end

Delphi-Quellcode:

program fussschleife; 
uses crt; 
var name:string; 
         Zahl1,Zahl2,summe,diff,prod,ergebnis:longint; 
         quo:real; 
         auswahl:char; 


begin 

clrscr; 

writeln('Hallo, lieber Benutzer, bitte gib deinen Vornamen ein'); 
readln(name); 
writeln('Herzlich willkommen, lieber ',name,'!'); 
writeln('dieses Programm beherrscht alle 4 Grundrechnungsarten!'); 
repeat // <<<<<<<<<<<<<<<< 
    writeln('Für Addition A drücken, für Subtrakion S drücken, für Multiplikation M ' 
        + 'drücken, für Division D und E für Ende drücken!'); 


    readln(auswahl); 
    auswahl:=UPCASE(auswahl); 
    IF (auswahl='A') OR (auswahl='S') OR (auswahl='M') OR (auswahl='D') 
    THEN 
         begin 
              writeln('Bitte gib die erste Zahl ein!'); 
              readln(Zahl1); 
              writeln('Bitte gib jezt die zweite Zahl ein!'); 
              readln(Zahl2); 
              CASE auswahl OF 
                   'A':begin 
                        summe=:Zahl1+Zahl2; 
                        writeln('Die sUmme beträgt ',summe,'!'); 
                    end; // <<<<<<<<<<<<<<<< 
                    'S':begin 
                        diff=:Zahl1-Zahl2; 
                        writeln('Die Differenz beträgt ',diff,'!'); 
                    end; // <<<<<<<<<<<<<<<< 
                    'M':begin 
                        prod=:Zahl1*Zahl2; 
                        writeln('Das Produkt beträgt ',prod,'!'); 
                    end; // <<<<<<<<<<<<<<<< 
                    'D':begin 
                        quo=:Zahl1/Zahl2; 
                        writeln('Der Quotient beträgt ',quo:10:2,'!'); 
                    end; 
              end; 
    end 
    ELSE 
    IF auswahl<>'E' 
    THEN 
        writeln('Falsche Eingabe! Programmabbruch!'); 
    writeln(''); 
until (auswahl<>'A') AND (auswahl<>'S') AND (auswahl<>'M') AND (auswahl<>'D'); 
end.

So funktioniert das Programm, aber das mit UpperCase geht leider nicht, weil: im debug modus steht: UpperCase indetifier not found.

Hhhmmm, das muss doch :gruebel: noch irgendwie anders hinhauen, dass das JA Nein funktioniert.

Gruß, ein FreePascal

[edit=mkinzler]Delphi-Tag eingefügt, solltest du aber das nächste mal selber machen! Mfg, mkinzler[/edit]
[edit=mkinzler]Überflüssige Zeichen entfernt Mfg, mkinzler[/edit]