Hol rontottam el? Mit javítsak? (Pascal)

Hát, van benne jópár hiba...

1) Az elején, a Var előtt van egy Begin..End; részed. A Begin és End közti részt másold a Var utáni Begin után, és a Var előtt csak a program quiz; uses crt; maradjon.

2) Az Else kulcsszavak után az utolsó kivételével mindegyiknél írj Begin-t.

3) Az utolsó Readkey;-t meg írd át ReadLn-re. Függvényt csak {$X+} mellett hívhatsz eljárásként, de nem biztos, hogy a Pascalod így van beállítva.

Most csak ennyi hibát látok. És légy szíves legközelebb megadni, hogy milyen hibát ad a Pascal, mert úgy sokkal könnyebb megtalálni a hibás részt.

Picit sok benne az end, nem?

Valami ilyesmi:

program quiz;

uses crt;

var

counter : integer;

input : char;

begin

clrscr;

write('QUIZ, made by LastWild');

readln;

counter:=0;

writeln('Welcome');

readln;

clscr;

Writeln('What color is a rubberduck usually?');

Writeln('1. red');

writeln('2. yellow');

readln(input);

if (input=2) then

counter=counter+1;

if (input=2) then

write('Correct!')

else

write('error');

readln;

clrscr;

writeln('Which is the bigger one?');

writeln('1. Dog');

writeln('2. Cat');

if (input=1) then

counter=counter+1;

if (input=1) then

write('Correct!')

else

write('error');

readln;

clrscr;

writeln('Which has the longer neck?');

writeln('1. Elephant');

Writeln('2. Giraffe');

if (input=2) then

counter=counter+1;

if (input=2) then

write('Correct!')

else

write('error');

readln;

clrscr;

Writeln('Lets see your total points!');

readln;

write('You have:');

readln;

write(counter);

readln;

if (counter=1) then

write ('Idiot!!!!!!');

if (counter=2) then write

('Average...')

else

write('Congratulations,you just achieved the name of the Biggest stupid on the earth!!');

readkey;

end.

Nem teszteltem, úgyhogy lehet hibás, de legközelebb megoszthatnád, hogy mi is a hiba (pl. fordító mit dobott vissza, stb.).

Szintaktikailag így nem hibás:

program quiz;

uses crt;

var

counter,input : integer;

begin

clrscr;

write('QUIZ, made by LastWild');

readln;

counter:=0;

writeln('Welcome');

readln;

clrscr;

Writeln('What color is a rubberduck usually?');

Writeln('1. red');

writeln('2. yellow');

readln(input);

if (input=2) then

counter:=counter+1;

if (input=2) then

write('Correct!')

else

write('error');

readln;

clrscr;

writeln('Which is the bigger one?');

writeln('1. Dog');

writeln('2. Cat');

if (input=1) then

counter:=counter+1;

if (input=1) then

write('Correct!')

else

write('error');

readln;

clrscr;

writeln('Which has the longer neck?');

writeln('1. Elephant');

Writeln('2. Giraffe');

if (input=2) then

counter:=counter+1;

if (input=2) then

write('Correct!')

else

write('error');

readln;

clrscr;

Writeln('Lets see your total points!');

readln;

write('You have:');

readln;

write(counter);

readln;

if (counter=1) then

write ('Idiot!!!!!!');

if (counter=2) then write

('Average...')

else

write('Congratulations,you just achieved the name of the Biggest stupid on the earth!!');

readkey;

end.

Aki 1-et tudott az idióta aki 0-át az nem a program szerint, érdekes.