[Help] Programma per domani , urgente !

[aerox]

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]

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

[nicjedi]

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

[Fottemberg]

Ho incollato il programma sbagliato

Grazie Nicola della precisazione.