Pubblico il sorgente di un programma in pascal che calcola:
- o la velocità di fuga necessaria per lasciare un determinato corpo celeste data la massa di questo ed il suo raggio,
- o la massa stessa data la velocità ed il raggio
- o il raggio data la massa e la velocità .
program… [Read more...]
Puoi non tifare juve ma se fischi del piero non capisci nulla di calcio.
Non ci sono parole per descriverti o per descrivere la gioia che mi fai provare…posso solo dire: “GRAZIE CAPITANO!”
Stiamo scrivendo un capitolo della storia dell’uomo. Questa è una vera e propria guerra virtuale.
FBI, Dipartimento della Giustizia, Casa Bianca, Universal, Vivendi, Warner Music quale sarà il prossimo?
Tutti i siti dell’elenco precedente si sono trovati scritto: “If Megaupload is down, you are down too”.
Inizia il conto alla rovescia. Mancano poche ore: Anonymous propone un servizio di hosting e condivisione file libero, gratuito e anonimo. Il tutto è ancora ad uno stato embrionale e il team sta cercando fondi per poter concretizzare il progetto; il servizio dovrebbe comunque essere lanciato a breve, il 25 Gennaio stando a quanto specificato sul sito stesso.
Se il pane è il corpo di Cristo, e il vino è il sangue di Cristo, voi pregate un Dio che predica il cannibalismo. [cit.]
Programma che inseriti 20 numeri mi dice quanti numeri tra gli inseriti sono positici e quanti negativi. Posto sorgente.
program i_positivi_e_negativi;
uses crt;
var positivi,i,b,negativi:integer;
begin
positivi:=0;
negativi:=0;
i:=0;
while i<20 do
begin
writeln('Inserisci numero.');
readln(b);
if b > 0 then begin
positivi:=positivi+1;
end
else begin
negativi:=negativi+1;
end;
i:=i+1;
end;
clrscr;
writeln;
writeln(’positivi: ‘,positivi);
writeln(’negativi: ‘,negativi);
readln;
end.