[es] - Pomoc oko zadatka u Pascalu

batagope85
nis

Član broj: 154532
Poruke: 28
217.24.27.*

Profil

^{06.10.2008. u 23:32 - pre 189 meseci}

Problem je sledeci. Napisao sam kod za zadatak, ali kada pokusam da ga kompajliram, javlja mi gresku "illegal expression". Zadatak glasi ovako: Napisati program koji se na osnovu niza a[1], a[2],..., a[2*n] formiraju nizovi b[1], b[2],...,b[n] i c[1], c[2],..., c[n] ;iji su elementi redom jednaki a[1], a[3], ..., a[2*n-1] i a[2], a[4], ..., a[2*n]..
A evo i koda:

Code:

// kreiranje dva niza od jednog postojeceg

Program DvaNiza(input,output);
Uses Dos,Crt;
const
    m = 20;
type
    niz = array[1..m] of real;
var
    n:integer;
    a,b,c:niz;

    // ucitavanje elemenata niza
    procedure citaj(n:integer; var a:niz);
       var i:integer;
       begin
          for i:=1 to n do
             read(a[i])
       end;

    // formiranje novih nizova
    procedure formirajNizove(n:integer; a:niz; var b,c:niz);
       var i:integer;
       begin
          for i:=1 to n do
             begin
                b[i] = a[2*i-1];
                c[i] = a[2*i]
             end
       end;

    // ispisivanje elemenata novog niza
    procedure pisi(n:integer; var a:niz);
       var i:integer;
       begin
          for i:=1 to n do
             write(a[i]:5:2)
       end;

begin
    write('Unesite broj elemenata niza A: ');
    readln(n);
    write('Unesite elemente niza A: ');
    citaj(n,a);
    formirajNizove(n,a,b,c);
    write('Niz b: ');
    pisi(n,b);
    write('Niz c: ');
    pisi(n,c);
    readkey
end.

Svaka pomoc je dobrodosla.

Odgovor na temu

.:Marvin:.
Taurunum

Član broj: 36626
Poruke: 94
91.143.212.*

Profil

Re: Pomoc oko zadatka u Pascalu

^{07.10.2008. u 07:31 - pre 189 meseci}

Kao prvo, koja ti je vrednost N?

Moj savet je da ucitas N pomocu ReadLn.

Ostalo mi deluje ok, probaj ovo pa vidi.

http://www.montaznekuce.rs

Odgovor na temu

franjo_tahi
Franjo Tahi
Zagreb

Član broj: 34712
Poruke: 399
*.adsl.net.t-com.hr.

+1 Profil

Re: Pomoc oko zadatka u Pascalu

^{07.10.2008. u 14:34 - pre 189 meseci}

pogrešnp napisane linije:

Code:

b[i] = a[2*i-1];
c[i] = a[2*i]

treba (zaboravio si dvotočku):

Code:

b[i] := a[2*i-1];
c[i] := a[2*i]

Odgovor na temu