SerPaguroSniffa³
02-11-2006, 17:31
Saluti,allora lo scopo del programma è:
"Scrivi un programma che letto il punteggio ottenuto comunichi il premio corrispondente"
program ciao;
uses crt
var a,b,c:integer; punteggio:real;
begin
writeln('Da 10 a 39 a');
writeln('da 40 a 79 b');
writeln('da 80 a 85 c');
writeln('scegli il tuo punteggio');
readln(punteggio);
case punteggio of
'a':begin
writeln('il tuo premio è una cacca');
end;
'b':begin
writeln('il tuo premio sono 2 cacche');
end;
'c' :begin
writeln('Hai vinto una megacacca');
end;
end;
repeat until keypressed;
end.
è giusto?in alternativa a vedere se è giusto qualcuno mi sa dire da dove posso scaricare un turbo pascal decente?ora ho scaricato il 5.5 ma è in dos e fa schifo..mi serve qualcosa di più moderno con un interfaccia completa grazie.
"Scrivi un programma che letto il punteggio ottenuto comunichi il premio corrispondente"
program ciao;
uses crt
var a,b,c:integer; punteggio:real;
begin
writeln('Da 10 a 39 a');
writeln('da 40 a 79 b');
writeln('da 80 a 85 c');
writeln('scegli il tuo punteggio');
readln(punteggio);
case punteggio of
'a':begin
writeln('il tuo premio è una cacca');
end;
'b':begin
writeln('il tuo premio sono 2 cacche');
end;
'c' :begin
writeln('Hai vinto una megacacca');
end;
end;
repeat until keypressed;
end.
è giusto?in alternativa a vedere se è giusto qualcuno mi sa dire da dove posso scaricare un turbo pascal decente?ora ho scaricato il 5.5 ma è in dos e fa schifo..mi serve qualcosa di più moderno con un interfaccia completa grazie.