Forum programmazione

[Fabriz]

Code: Select all

program DADO;
uses crt;
var n,l,ris,i:integer;
    risp:string;
    freq:array[1..6] of integer;
begin
clrscr;
repeat

repeat
write('Quanti lanci vuoi fare?');
readln(n);
until
n>0;
for l:=1 to n do
begin
//randomize;
ris:=random(6)+1;
for i:=1 to 6 do
if ris =i then
freq[i]:=freq[i]+1;
end;
for i:=1 to 6 do
begin
writeln ('il numero ',i,' Š uscito ',freq[i],' volte');
freq[i]:=0;
end;
repeat
writeln('Vuoi riprovare?[Y/N]');
readln(risp);
until (risp='y') or(risp='n') or (risp='Y') or(risp='N')
until (risp='n') or(risp='N')
end.

[k8]

Caruccio,se vuoi che lo uppi in homepage, fai un archivio con sorgenti, ed un txt, con scritto autore,linguaggio,e sito. poi li uppi su keit.netsons.org,e mi dai i link.

[Dominator]

ehm ehm.. caro S3raph.. mi sembra di riconoscere questo codice...
non è che per caso lo hai preso dal sito www.pierotofy.it ????????
hihihihhahahihihahihihi nella sezione pascal?
no perchè sia il nome delle variabili, sia tutto il resto del codice danno molto a pensare a quello che ho caricato io in quel sito...
non è per dire niente, anzi mi fa piacere che sia stato utile...

[Fabriz]

assolutamente sì



Ho fatto una semplice operazione di copia-incolla, forse hai ragione: avrei dovuto scrivere by quel sito...


Grazie dell'aiuto, tu sei l'admin del sito?

[necrosis]

x aver scritto un sl mex sul forum riguardante al code penso ke sia l' autore del codice...

[Dominator]

no, non sono l'amministratore... magari!!! hehe..
sono solo un membro di quel sito... ;-)