K
kart6
also, ich habe ein problem mit pascal, ich hab das erst ganz neu so ein bisschen angefangen und wollt ein ganz leichtes programm schreiben und ich hab das so geschreiben:
program nureintest;
uses crt;
VAR alpha, bheta, gamma, epsilon, omega, delta, ergebnis: longint;
begin
Write ('Gib eine Zahl ein: ');
Readln (alpha);
Write ('Gib die Zahl noch einmal ein: ');
Readln (bheta);
IF alpha = bheta THEN
Writeln ('Richtig!');
IF bheta <> alpha THEN
Writeln ('falsch');
Writeln ('willst du eine zahl mutiplizieren dann schreibe 1: ');
Readln (gamma);
Writeln ('willst du wirklich, dann gib nocheinmal 1 ein: ');
Readln (epsilon);
IF gamma = epsilon THEN
Writeln ('ok, dann gib jetzt die 1. zahl an: ');
readln (omega);
writeln ('die 2.zahl: ');
readln (delta);
Ergebnis:= omega * delta;
writeln ('das ergebniss ist: ', Ergebnis');
write ('druecke eine taste zum beenden');
Readkey;
End.
so, und jetz kommt aber wenn ich auf run klicke:
String constant exceeds line
Aber ich hab keine ahnung woran das liegt!!
bitte helft mir
danke
KART6
program nureintest;
uses crt;
VAR alpha, bheta, gamma, epsilon, omega, delta, ergebnis: longint;
begin
Write ('Gib eine Zahl ein: ');
Readln (alpha);
Write ('Gib die Zahl noch einmal ein: ');
Readln (bheta);
IF alpha = bheta THEN
Writeln ('Richtig!');
IF bheta <> alpha THEN
Writeln ('falsch');
Writeln ('willst du eine zahl mutiplizieren dann schreibe 1: ');
Readln (gamma);
Writeln ('willst du wirklich, dann gib nocheinmal 1 ein: ');
Readln (epsilon);
IF gamma = epsilon THEN
Writeln ('ok, dann gib jetzt die 1. zahl an: ');
readln (omega);
writeln ('die 2.zahl: ');
readln (delta);
Ergebnis:= omega * delta;
writeln ('das ergebniss ist: ', Ergebnis');
write ('druecke eine taste zum beenden');
Readkey;
End.
so, und jetz kommt aber wenn ich auf run klicke:
String constant exceeds line
Aber ich hab keine ahnung woran das liegt!!
bitte helft mir
danke
KART6