[ 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.

[^_NiN0_^]

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;                                                            
[COLOR=red][B]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;    [/B]                                                                     [/COLOR]
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.

Samo mi nije jasno gde je for ciklus za ove dve linije? :\