program Esempio;
uses Crt;
var n:byte;
c:word;
begin
clrscr;
write('Inserisci un numero: ');
readln(n);
case n of
1: writeln('E stato premuto il pulsante 1');
2: begin
sound(440);
delay(1000);
nosound;
end;
3 or 4 or 5: write('Il numero premuto è fra 3 e 5');
else
begin
c:=sqr(n);
writeln(c,' è il quadrato di ',n);
end;
end;
readln
end.
__________________________________________________________________________________________
Il codice era giusto... dovevi solo mettere ('frase') e non (‘frase‘)...
Ultima modifica effettuata da Tullio il 22/06/2009 alle 20:58 |