Originariamente inviato da AR64S-H
Anche io!!!:gren:
io sono alle primissime armi.. ho studiato solo le robe semplicissime...
per intenderci il programma più difficile che ho fatto è questo
l'ho fatto io di mia inventiva, senza l'aiuto del prof)
codice:
program wars ;
uses crt;
var cognome,citta:string[3];
var nome,cognomem:string[2];
begin
clrscr;
write(' ottieni il tuo nome e cognome in star wars ');
delay(6000);
writeln;
write(' inserisci il tuo cognome ');
readln(cognome);
writeln;
write(' inserisci la tua citt… di nascita ');
writeln;
readln(citta);
write(' inserisci il tuo nome ');
writeln;
readln(nome);
write(' inserisci il cognome di tua madre ');
writeln;
readln(cognomem);
delay(3000);
write(' sto elaborando, aspetta ancora qualche secondo ');
writeln;
delay(9000);
delay(9000);
delay(9000);
textcolor(blue);
write(' il tuo nome in Star Wars Š ',cognome,'',nome,' ');
writeln;
textcolor(yellow);
write(' il tuo cognome in Star wars Š ',cognomem,'',citta,' ');
writeln;
readln;
end.
ciao!(la regola per trovare il nome è stata inventata dal creatore di star wars e è publiccata in fpcus di questo mese.)