29/03/09 17:14
minicuzzu
adesso è così e mi da un ultimo errore
Program Domande;
uses crt;
var a,b:integer;
parola:string[40];
begin
clrscr;
writeln('seleziona una tra le domanda 1 , 2 o 3');
readln(a);
case a of
1:begin
writeln(' chi ha scritto la divina commedia ?');
readln(parola);
if parola := 'Dante Alighieri' then
writeln('esatto')
else
begin
writeln(' Sbagliato la risposta e" Dante Alighieri');
end;
end;
2:begin
writeln('quanto fa la somma di uno e tre ?');
readln(b);
if b:=4 then
writeln('esatto')
else
begin
writeln('sbagliato la risposta e 4');
end;
end;
3:begin
writeln('la capitale della Francia e ?');
readln(parola);
if parola='Parigi' then
writeln('esatto')
else
begin
writeln('sbagliato la risposta e " Parigi');
end;
end;
end;
readln
end.
Program Domande;
uses crt;
var a,b:integer;
parola:string[40];
begin
clrscr;
writeln('seleziona una tra le domanda 1 , 2 o 3');
readln(a);
case a of
1:begin
writeln(' chi ha scritto la divina commedia ?');
readln(parola);
if parola := 'Dante Alighieri' then
writeln('esatto')
else
begin
writeln(' Sbagliato la risposta e" Dante Alighieri');
end;
end;
2:begin
writeln('quanto fa la somma di uno e tre ?');
readln(b);
if b:=4 then
writeln('esatto')
else
begin
writeln('sbagliato la risposta e 4');
end;
end;
3:begin
writeln('la capitale della Francia e ?');
readln(parola);
if parola='Parigi' then
writeln('esatto')
else
begin
writeln('sbagliato la risposta e " Parigi');
end;
end;
end;
readln
end.
aaa