Pascal - Problema di compilazione con un programma

Forum - Pascal - Problema di compilazione con un programma

EddieTH (Normal User)
Newbie

Messaggi: 2
Iscritto: 08/03/2012

Postato alle 18:43
Giovedì, 08/03/2012

Salve a tutti, ieri il mio prof. ci ha dato da fare un esercizio relativamente semplice di informatica con i vettori, l'esercizio dice:
Leggere e memorizzare in un vettore n numeri, mettere poi in un altro vettore i componenti con indice pari e in un altro quelli con indice dispari, stampando i vettori con le rispettive somme.
Io ho provato a farlo usando il programma Free Pascal IDE ma quando clicco su Run mi da 2 errori che non riesco a risolvere; potreste dirmi per favore quali sono e come risolverli? (informatica l'abbiamo iniziata da poco)
Io lo ho provato a fare così:

Codice sorgente - presumibilmente Delphi

Program VETTORI;
uses sysutils;
VAR N, I, R2, SD, SP: integer;
    V, P, D: array [1..1000] of integer;
    R1: real;
Begin
    writeln('quanti numeri vuoi inserire?');
    readln(N);
    for I := 1 to N do
        begin
            writeln('inserisci il', I,'° numero');
            readln(V[I]);
        end;
        SP := 0;
        SD := 0;
        for (I:=1 to N) do
            begin
            R1:=I/2;
            R2:=INT(I/2);
            if R1=R2
            then begin
                P[R2+1]:=V[1];
                SP:=V[I]+SP;
            end
            else
            begin
                D[R2+1]:=V[I];
                SD:=V[I];
            end;
       end;
       writeln('le somme sono:', SP, SD);
       readln;
end.

Potrei anche aver fatto molti altri errori stupidi tipo dimenticarsi i punti e virgola...scusate il disturbo e grazie per gli aiuti.

Ultima modifica effettuata da Phi il 08/03/2012 alle 19:31

Phi (Member)
Expert

Messaggi: 241
Iscritto: 30/12/2009

Postato alle 19:28
Giovedì, 08/03/2012

1)
Fatal: Syntax error, ")" expected but ":=" found:
Non è

Codice sorgente - presumibilmente Pascal

for (I:=1 to N) do

Codice sorgente - presumibilmente Pascal

for I:=1 to N do

2)
Error: Incompatible types: got "Extended" expected "SmallInt"
Questo non esiste:

Codice sorgente - presumibilmente Plain Text

R2:=INT(I/2);

Se vuoi puoi usare

Codice sorgente - presumibilmente Plain Text

R2:=trunc(i/2);

oppure

Codice sorgente - presumibilmente Plain Text

R2:=round(i/2);

trunc elimina la parte decimale, round arrotanda

Dai messaggi del compilatore capisci che devi fare.
Ricordati di dare un titolo significativo hai post e di mettere i codici fra un [ code ] ed un [ / code ]

Ultima modifica effettuata da Phi il 08/03/2012 alle 19:32