Widgets | Content | Search

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...]

Posted by bobu, on Thursday, January 26, 2012 - 16:14:53 in Informatica, Pascal

Comment(s): Add a comment

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!”

Posted by bobu, on Wednesday, January 25, 2012 - 16:09:22 in Notizie, Cultura

Comment(s): Add a comment

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”. @_@

Posted by bobu, on Tuesday, January 24, 2012 - 19:20:55 in Notizie, Informatica

Comment(s): 1 comment

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.

Posted by bobu, on Tuesday, January 24, 2012 - 19:17:07 in Notizie, Informatica

Comment(s): 2 comments

Se il pane è il corpo di Cristo, e il vino è il sangue di Cristo, voi pregate un Dio che predica il cannibalismo. [cit.]

Posted by bobu, on Monday, January 23, 2012 - 14:58:03 in Varie, Cultura

Comment(s): 4 comments

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.

Posted by bobu, on Sunday, January 22, 2012 - 17:47:30 in Informatica, Pascal

Comment(s): Add a comment

Disclaimer

This blog is not to considered a means of information or an editorial product under the law n.62/2001. The author is not responsible for comments included in the post, even if the comment is delivered anonymously.

Last 3 comments

Admin area