Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Pascal zadatak podniz nece da stampa

[es] :: Pascal / Delphi / Kylix :: Pascal zadatak podniz nece da stampa

[ Pregleda: 1136 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Stevan_Chakic
n/a
n/a
Podgorica

Član broj: 310273
Poruke: 10
*.crnagora.net.



Profil

icon Pascal zadatak podniz nece da stampa09.06.2013. u 18:44 - pre 131 meseci
Imam problem.Kad nadjem najveci podniz koji ima uzastopno paran pa neparan broj nakon pretrage nece da stampa taj niz.
Test primjer: 2 3 5 4 8 6 7 8 11 22 31 45 ,najduzi je boldovani podniz.
Evo koda:
Code:

program naizmjenicno;
type niz=array[1..50]of integer;
var n,p,k,i:integer;
x:niz;

procedure unos(var n:integer;var x:niz);
var i:integer;
begin
writeln('Unesite broj clanova niza:');
readln(n);
writeln('Unesite clanove niza:');
for i:=1 to n do begin
write('x[',i,']=');
readln(x[i]);
end;
end;

procedure stampa(n:integer;x:niz);
var i:integer;
begin
for i:=1 to n-1 do
write(x[i],',');
write(x[n],'.');
end;

procedure trazi(n:integer;x:niz;var p,k:integer);
var max,j,i:integer;
begin
p:=1;
k:=1;
j:=1;
max:=1;
i:=1;
while(j<=n) do begin

j:=i+1;
while(j<=n)and((x[j]+x[j-1])mod 2=1)do
j:=j+1;
if(j-i>max) then  begin
max:=j-i;
p:=i;
k:=j-1;
i:=j;
end;
end;
end;

begin
unos(n,x);
stampa(n,x);
trazi(n,x,p,k);
for i:=p to k-1 do
write(x[i],',');
writeln(x[k],'.');
readln();
end.



[Ovu poruku je menjao Stevan_Chakic dana 10.06.2013. u 00:13 GMT+1]

[Ovu poruku je menjao Stevan_Chakic dana 10.06.2013. u 12:02 GMT+1]
 
Odgovor na temu

Rapaic Rajko
Bgd

Član broj: 4105
Poruke: 810
..ppoe.dyn.broadband.blic.net.



+62 Profil

icon Re: Pascal zadatak podniz nece da stampa10.06.2013. u 11:43 - pre 131 meseci
Ne valja ti while petlja u trazi(), mrtva trka. Koristi breakpoint-e i uci se :)

Pozz
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Pascal zadatak podniz nece da stampa

[ Pregleda: 1136 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.