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:
Svaka pomoc je dobrodosla.
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.
// 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.