Antworten

mein compiler wollte z.b statt crt wincrt die library ist auch besser
und variable Summe hast du nicht deklariet ich würde sie als integer oder real deklarien. Eins zweimal das hochkommtar vergessen und er kennd die PROZEDUR AllesAusgeben nicht

Hallo Leute Kennt sich jemand mit Pascal aus? ich wollte ein kleines Programm schreiben, habe aber einige fehler gemacht, weiß aber nicht welche, könnt ihr mir helfen?
Hier der Quellcode:

PROGRAM Vartest;

USES crt;
CONST Drei=3;
Elfkommadrei=11.3;

VAR Eingabezahl,Ganz1,Ganz2 : Integer;
Quotient : Real;
Name : String;

PROCEDURE NamenEingeben;
BEGIN
Write ('Geben Sie Ihren Namen ein:');
Readln (Eingabezahl);
END;

PROCEDURE EineZahlEingeben;
BEGIN
Write ('Geben sie eine ganze Zahl ein: ');
Readln (Eingabezahl);
END;

PROCEDURE Rechnen;
BEGIN
Summe:=Ganz1+Ganz2;
IF Ganz2<>0 THEN Quotient:=Ganz1 / Ganz2
ELSE BEGIN
Writeln ('Division durch Null nicht erlaubt');
Writeln ('Ergebnis wird auf Null gesetzt');
Quotient:=0;
END;


BEGIN
Writeln ('Lieber ',Name);
Writeln (Die Konstanten dieses Programmes sind');
Writeln (Drei, ' und ', Elfkommadrei);
Writeln;
Writeln ('Die Summe ist: ');
Writeln (Ganz1:5,'+',Ganz2:5,'=',Summe:5);
Writeln ('Und wenn ein Quotient existiert, ist er:');
Writeln (Ganz1:5,'/',Ganz2:5,'=',Quotient:8:4);
END;

BEGIN
ClrScr;
Writeln ('Dies ist ein Testprogramm:');
Writeln;
NamenEingeben;
EineZahlEingeben;
Ganz1:=Eingabezahl;
EineZahlEingeben;
Ganz2:=Eingabezahl;
Rechnen;
AllesAusgeben;
Readln;
END.

Was habe ich denn Falsch gemacht? Vielen Dank für die Hilfe!

MFG, Majuran