[ Outline ] · Standard · Linear+ Za Vas Verovatno Laganica, ...ja ne mogu da se povezem.

[milanche]

Ovako:
Imam za 3 dana kontrolni iz informatike, Pascal, i radili smo samo 3 naredbe: FOR, WHILE i REPEAT. E sad, imam jedan zadatak, radili smo ga i u skoli, ali meni je resenje nelogicno. Glasi ovako:

Napisati program koji izracunava proizvod




E, a resili smo ga ovako:

p:=1; z:=1
for i:=1 to m do
begin
p:=p * (n + z * i * m);
z:=z * (-1);
end

E, sad meni nije jasno zasto je ovo ovako. Kapiram da od m zavisi da li ce u zagradi biti znak - ili + , ali ne kapiram zasto smo napisali da je z:=z*(-1).
Da li je ovaj zadatak uopste dobro resen?

This post has been edited by milanche: Mar 2 2008, 10:10 AM

[milanche]

Dakle ljudi, treba da odredim sta je vece:
proizvod neparnih elemenata na parnim pozicijama ili suma parnih na neparnim pozicijama. Kako se danas prvi put u zivotu susreo sa ovim nizovima, nemojte da se smejete ako sam mnogo mlatio - kad kompajliram u pascalu pise mi mismatch, a ne znam zbog cega.
Kako resiti ovaj problemcic? VIP?

CODE

var                                                                          
n,i,s,p:integer;                                                            
a:array[1..200] of integer;                                                
begin                                                                        
writeln('Uneti broj clanova niza');                                
write('n=');readln(n);                                                      
for i:=1 to n do                                                          
begin                                                                      
write('a[',i,']=');readln(a[i]);                                      
end;                                                                        
p:=1;s:=0;                                                            
begin                                                                        
if i mod 2=0 and odd (a[i]) then p:=p*a[i];                                  
if i mod 2=1 and a[i] mod 2=0 then s:=s+a[i];                            
end;                                                                        
if p>s then write('veci je proizvod ovih brojeva i iznosi',p:3) else write  ('veci je zbir ovih brojeva i iznosi',s:3);
end.

end.

[The snorks]

var                                                                         
n,i,s,p:integer;                                                           
a:array[1..200] of integer;                                               
begin                                                                       
writeln('Uneti broj clanova niza');                               
write('n=');readln(n);                                                     
for i:=1 to n do                                                         
begin                                                                     
write('a[',i,']=');readln(a[i]);                                     
end;                                                                       
p:=1;s:=0;                                                           
begin                                                                       
if i mod 2=0 and odd (a[i]) then p:=p*a[i];                                 
if i mod 2=1 and a[i] mod 2=0 then s:=s+a[i];                         
end;                                                                       
if p>s then write('veci je proizvod ovih brojeva i iznosi',p:3) else write  ('veci je zbir ovih brojeva i iznosi',s:3);
end.
end.

Proveri da mu nisi premalo prostora rezervisao, tj da mu ne zadajes broj veci od 200

dalje
ove uslove bih ja stavila u zagradu, cisto da ne razmisljas o prioritetima(ja sam malo pozaboravljala sta je prioritetnije )

i poslednje
Sta su ti ove trojke pri ispisivanju resenja? i nigde nemas naredbu za ispisivanje konkretne vrednosti broja p odnosno broja s u 2. slucaju
I jos ti nedostaje slucaj da je jednako, ne znam da li moze da se desi, ali mislim da ili treba da dokazes (ako ne moze) zasto ne moze da se desi ili da napises slucaj kada su jednaki

Edit:i da, sad videh...imas 2 puta end sa .

Ostalo, koliko bar ja vidim, je ok

This post has been edited by The snorks: Jun 15 2008, 08:57 AM