La mia idea era la seguente:
Come lo trasformo in pl/sql?codice:var cursore,intero,j,i:integer; cursore:=8 for j:=8 to 31 do begin for i:=0 to 6 do intero:=intero+valore[cursore-i]; valore[cursore]=intero\7; cursore:=cursore+1; end;
La mia idea era la seguente:
Come lo trasformo in pl/sql?codice:var cursore,intero,j,i:integer; cursore:=8 for j:=8 to 31 do begin for i:=0 to 6 do intero:=intero+valore[cursore-i]; valore[cursore]=intero\7; cursore:=cursore+1; end;