una cosa velocissima su pascal...

[slayer87]

io volevo far un proghramma che per es. usando il numero 5 mi dia come riusltato 15 cioè 1+2+3+4+5
se usiamo 8 1+2+3+4+5+6+7+8
e così via ora questo è querllo che ho fatto io.....

PROGRAM addizione_strana;
USES crt;
VAR ,i,z:INTEGER;
BEGIN
TEXTCOLOR(4);
CLRSCR;
z :=0;
WRITE('inserisci un numero');
READLN(x);
BEGIN
FOR i := 1 TO (x) DO
z :=z+1;
END;
WRITELN('il risultato Š',z)

end.

cosa c'è che nn va??? aiutatemi è molto importanate e mi serve diciamo "alla svelta"

[Lucis]

Io non conosco il Pascal, ma dando un'occhiata al codice credo che sia un problema di algoritmo: l'istruzione z := z+1 incrementa z di uno ad ogni ciclo. Quello che vuoi tu invece dovrebbe essere z := z+i (facendo attenzione a far partire i da 1 fino a x).

Ciauz!

[slayer87]

risolto!!!!!!!!! è così:

PROGRAM addizione_strana;
USES crt;
VAR p,x,i,z:INTEGER;
BEGIN
TEXTCOLOR(4);
CLRSCR;
WRITE('inserisci un numero');
READLN(x);
FOR z := 0 TO (x) DO
BEGIN
p :=p+z;
END;
WRITELN('il risultato Š:',p);
WRITELN;
WRITELN('premi enter per uscire');
READLN;

end.