programma pascal galleggiamento

« Older   Newer »
 
  Share  
.
  1. peppone14
     
    .

    User deleted


    ecco un programma ke vi calcola se un corpo affonda o meno nell'acqua marina

    Edited by peppone14 - 6/5/2007, 19:20
    File Allegato
    Galleggi.pas
    (Number of downloads: 15)

     
    .
  2. Davidan90
     
    .

    User deleted


    Mi dici dov'è il programma ??? Io non lo vedo
     
    .
  3. peppone14
     
    .

    User deleted


    scusa me lo sn scordato di metterlo se vi interessa ora sto mettendo il programma x vedere se un corpo galleggia nel mercurio, se vi serve x un qualsiasi liquido basta kiedere
    SPOILER (click to view)
    Program galleggiamento;
    USES PRINTER;
    var volumedelcorpo:real;
    pesocorpo:real;
    spintadiarchimede:real;
    const densitamercurio = 13600;
    costantegravitazionale=9.8;
    Begin
    writeln ('scrivi valore del volume del corpo, valori in m cubi');
    readln (volumedelcorpo);
    spintadiarchimede:= densitamercurio*costantegravitazionale *volumedelcorpo;
    writeln ('la spinta di archimede corrisponde a',spintadiarchimede:5:2,'N');
    writeln ('scrivi valore del peso, valori in N');
    readln (pesocorpo);
    if pesocorpo-spintadiarchimede>0 then writeln('il corpo non galleggia')
    else writeln ('il corpo galleggia');
    readln;
    End.


    Edited by peppone14 - 9/5/2007, 14:33
     
    .
  4.  
    .
    Avatar

    Prince Of Game Legend Member lv15

    Group
    Member
    Posts
    6,746
    Location
    dalla casa dell'Uomo del Monte

    Status
    Offline
    in pratica più semplicemente così
    SPOILER (click to view)
    program galleggiamento;
    uses crt;
    var a,b,c:real;
    begin
    clrscr;
    writeln ('scrivi il valore del volume del corpo, valori in m cubi');
    readln (a);
    b:=1030*9.8*a;
    writeln ('scrivi il valore del peso in N');
    readln (c);
    if c>b then writeln ('Siccome la spinta di Archimede è di ',b:5:2,'N, il corpo non galleggia’);
    else writeln ('Siccome la spinta di Archimede è di ',b:5:2,'N, il corpo galleggia’);
    readln;
    end.
    File Allegato
    GALLEGGI.PAS
    (Number of downloads: 11)

     
    .
  5. peppone14
     
    .

    User deleted


    nn x essere polemico, ma cosa cambia col mio programma?
     
    .
  6.  
    .
    Avatar

    Prince Of Game Legend Member lv15

    Group
    Member
    Posts
    6,746
    Location
    dalla casa dell'Uomo del Monte

    Status
    Offline
    è + semplice, x fare 1 programma la prima regola è la semplicità e quindi il file meno pesante. hai messo 2 varibili che potevi omettere
     
    .
  7. peppone14
     
    .

    User deleted


    x risparmiare 0,00000000000000000000000000000000000000000000000000000000000000000000000001byte ?e poi io preferisco lavorare variabile x variabile, si sbaglia di meno e si produce meglio
     
    .
  8.  
    .
    Avatar

    Prince Of Game Legend Member lv15

    Group
    Member
    Posts
    6,746
    Location
    dalla casa dell'Uomo del Monte

    Status
    Offline
    hai ragione anche tu ma se dai aiuti, uno k nn sa niente ci mette prima a capire metà di quello k dovrebbe capire con un programma lungo
     
    .
  9. peppone14
     
    .

    User deleted


    io ho messo il nome delle costanti ( densità acqua ) x una maggiore chiarezza
     
    .
  10.  
    .
    Avatar

    Prince Of Game Legend Member lv15

    Group
    Member
    Posts
    6,746
    Location
    dalla casa dell'Uomo del Monte

    Status
    Offline
    vabbe dai, finita qui ;)
     
    .
  11. peppone14
     
    .

    User deleted


    ok
     
    .
  12. Sharoar
     
    .

    User deleted


    Che esperti i due eh ! :)
     
    .
  13. Davidan90
     
    .

    User deleted


    Io non ci capisco nulla !!!!!!!!!
     
    .
  14. peppone14
     
    .

    User deleted


    io so solamente quello ke ho studiato a scuola, le stesse cose ke ha spiegato a me ha spiegato a te, nn è colpa mia se tu invece di studiare giochi o stai qui
     
    .
  15. Davidan90
     
    .

    User deleted


    Non ti rispondo solo per dimostrare che non sono maleducato e offensivo come te
     
    .
29 replies since 6/5/2007, 08:21   248 views
  Share  
.