1. Bandito  
        Mi trovi su: Homepage #3388808
    oggi, 25/12/2002, dopo un'intensa settimana passata a cercare un compilatore e a studiare il pascal nasce il mio primo programma.
    SI, sono un autodidatta che partendo da 0 ha fatto un programma di 72 righe! non bruscolini, 2 h di lavoro! ecco il codice (dategli un occhiata thx):

    program babbo;

    {$APPTYPE CONSOLE}

    var x,y:integer;
    z:string[5];
    a:boolean;
    begin
    writeln('benvenuto al babbo test! questo e'' un semplicissimo test per calcolare');
    writeln('quanto sei babbo! fallo tu e fallo fare ai tuoi amici! buon lavoro!');
    repeat
    writeln('da 1 a 10 quanto sei babbo?');
    readln(y);
    x:=0;
    if (y<0) and (y>-50) then
    begin
    repeat
    writeln('obbab ies');
    x:=x-1
    until x=y;
    writeln('oltre al fatto che sei babbo non sai neanche scegliere un numero');
    writeln('da 1 a 10!!!! non e'' che sei truzzo?');
    end;
    if (y<-50) and (y<???>-666) then
    begin
    y:=-50;
    repeat
    writeln('obbab ies');
    x:=x-1
    until x=y;
    writeln('un numero cosi basso mi fa capire che sei un babbo pessimista!');
    end;
    if (y>1) and (y<11) then
    begin
    writeln('sai che hai proprio ragione?');
    repeat
    writeln('sei babbo');
    x:=x+1
    until x=y;
    end;
    if (y>10) and (y<50) then
    begin
    repeat
    writeln('sei babbo');
    x:=x+1
    until x=y;
    writeln('oltre al fatto che sei babbo non sai neanche scegliere un numero');
    writeln('da 1 a 10!!!! non e'' che sei truzzo?');
    end;
    if (y>50) and (y</???><???>666) then
    begin
    y:=50;
    repeat
    writeln('sei un babbo con una testolina babba');
    x:=x+1
    until x=y;
    writeln('un numero superiore al 50 fonderebbe quella tua testolina da babbo');
    end;
    if y=0 then
    writeln('ohhhh abbiamo davanti a noi un babbo modesto!');
    if y=666 then
    writeln('ueue piezz e mmerd ti spacci per satana????');
    if y=-666 then
    writeln('askinnafi ti spacci per l''antiparticella quantistica di satana????');
    writeln('vuoi riporovare? si/no');
    readln(z);
    if z=('si') then
    a:=TRUE;
    if z=('no') then
    a:=FALSE;
    if (z</???><???>('si')) and (z</???><???>('no')) then
    begin
    writeln('error: missing babb or semicolon');
    readln;
    end;
    until a=FALSE;
    end.

    [Modificato da Dirty Joker il 25/12/2002 12:26]</???>
    Alice sorrise: “Non ha senso tentare”, disse, “non si possono credere cose impossibili” “Direi piuttosto che non hai molta pratica”, disse la Regina, “quando ero più giovane, lo facevo sempre per mezzora al giorno. Alcune volte ho creduto fino a sei

  [pascal] importante

Commenta

Per scrivere su Videogame.it devi essere registrato!

         

Online

Ci sono 0 ospiti e 0 utenti online su questa pagina