• In diretta da GamesVillage.it
    • News
    • -
    • In Evidenza
    • -
    • Recensioni
    • -
    • RetroGaming
    • -
    • Anteprime
    • -
    • Video
    • -
    • Cinema

Visualizzazione risultati da 1 a 4 di 4

Discussione: [Help] Programma per domani , urgente !

Cambio titolo
  1. #1
    Utente L'avatar di aerox
    Registrato il
    10-02
    Messaggi
    5.239

    Domanda [Help] Programma per domani , urgente !

    Per domani devo fare un prgramma in pascal , ma non ce la faccio , non trovo il modo.

    Mi potete aiutare ?
    Allora il testo dell'esercizio :

    Scrivi un programma che, utilizzando il Repeat ... Until, calcoli la somma dei primi n interi positivi.

    io penso intenda che se tu scrivi 2 lui ti somma tutti i numeri fino al numero immeso cio in qesto caso il 2 , quind il risultato sarebbe tre. ma non so come scriverlo in pascal !!

    Io conosco solo integer e real.


    [MOVE] Aiuto per domani quindi entro stasera lo dovrei sapere ...... Grazie comunque. [/MOVE]

  2. #2
    Bannato
    Registrato il
    09-03
    Messaggi
    17.103
    Bah, questo potrebbe andare?

    var I, somma : integer;
    begin
    somma:=0;
    write('Intero in input (negativo per terminare) ');
    readln(I);
    writeln;
    repeat
    somma:= somma+I;
    writeln('Intero in input (negativo per terminare) ');
    readln(I)
    until I<0;
    writeln('Somma dei valori positivi = ', somma);
    end.

  3. #3
    Ex ***** VIPz Estath L'avatar di nicjedi
    Registrato il
    12-02
    Localit
    non vivo
    Messaggi
    16.148
    Fottemberg

    Bah, questo potrebbe andare?

    var I, somma : integer;
    begin
    somma:=0;
    write('Intero in input (negativo per terminare) ');
    readln(I);
    writeln;
    repeat
    somma:= somma+I;
    writeln('Intero in input (negativo per terminare) ');
    readln(I)
    until I<0;
    writeln('Somma dei valori positivi = ', somma);
    end.
    No, non questo che gli serve, ma questo:

    var n, i, somma : integer;
    begin
    somma:=0;
    i:=1;
    write('Inserisci quanti numeri vuoi sommare');
    readln(n);
    repeat
    somma:= somma + i;
    i:= i+1;
    until i < n+1;
    writeln('la somma dei primi ',n,' numeri interi ', somma);
    end.

    Ciao

    Nicola
    "La violenza l'ultimo rifugio degli incapaci"
    "Non lasciare mai che la morale ti impedisca di fare la cosa giusta"
    "La disumanit del computer sta nel fatto che, una volta programmato e messo in funzione, si comporta in maniera perfettamente onesta."
    "fare molte cose alla volta significa non farne bene nessuna"


  4. #4
    Bannato
    Registrato il
    09-03
    Messaggi
    17.103
    Ho incollato il programma sbagliato

    Grazie Nicola della precisazione.

Regole di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •