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

[milanche]

Opet mi je jasno...Evo, jednom pesmom da ti se zahvalim, onako za opustanje...(uz male izmene)

...Jer ti si princeza nekog drugog sveta
tvoja rec stvara cuda, budi iskrena
uputi mi pascal tek da znam,
postojis, nisam sam, negde izvan planeta...

Hvala Tanja...

This post has been edited by milanche: Mar 3 2008, 11:58 PM

[VIP <3]

Opet mi je jasno...Evo, jednom pesmom da ti se zahvalim, onako za opustanje...(uz male izmene)

...Jer ti si princeza nekog drugog sveta
tvoja rec stvara cuda, budi iskrena
uputi mi pascal tek da znam,
postojis, nisam sam, negde izvan planeta...

Hvala Tanja...

Jaoj luche moje Nema na cemu i drugi put Sve za pesmu

[narziss]

moze i bez promenljive z?

for i:=1 to 3*n do
begin f:=-f*i;
if i mod 3=0 then s:=s+f
end;

samo se stavi na pocetku da je f:=-1

[milanche]

Hehe...imao sam danas kontrolni, i mogu vam reci nije bilo strasno. Zadaci su, cini mi se, bili okej, i nadam se da sam dobro uradio. Ocekujem 4 ili 5.

Evo, cisto da vidite kako je to izgledalo za moju grupu:

1. Napisati algoritam i program koji ispituje sve brojeve manje od 200 deljive sa 3 i racuna koliko ih ima. (Preko while naredbe)

2. Napisati algoritam i program koji izracunava zbir trecih stepena svih parnih brojeva od 6 do n. (preko repeat naredbe)

3. Napisati algoritam i program koji racuna zbir svih trocifrenih brojeva kod kojih je treca cifra za tri veca od druge.

[VIP <3]

Bravo Ponosna na tebe

[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

[^_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? :\

[milanche]

Nemam pojma ni ja o tim prioritetima, prvi put cujem to od tebe.
Ove trojke na kraju oznacavaju da ostavljam 3 mesta za resenje, odnosno max resenje je 999.

Upravu si za jednako, verovatno da moze da se desi i taj slucaj. Ajd sad cu malo da razmislim, ali bih voleo jos neki savet ukoliko neko zna i ima vremena.

[milanche]

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        
[B]for i:=1 to n do[/B]                                                                
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.

Da, vidim i ja sad.
Moze ovako?

[^_NiN0_^]

Samo for iznad begin-a ... valjda bi onda trebalo da radi

[The snorks]

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

Da vidi stvarno, nema ni for-a

[milanche]

CODE

if i mod 2=0 and odd (a[i]) then p:=p*a[i];

U ovom redu, ispred THEN mi kompajler prikazuje MISMATCH.

[RZA]

moras zagrade da stavis

if (i mod 2=0) and (odd (a[i])) then p:=p*a[i];

[milanche]

Okej, to sam sredio. E sad vezbam dvodimenzionalne nizove i okej mi ide, ali poslednji zadatak, koji je ujedno i najtezi, mi malo zadaje probleme. Glasi:
Napisati program kojim se na osnovu matrice a(n x n) izdaje niz ciji su elementi redom jednaki:

a)sumi elemenata u vrstama matrice a
b)proizvodu el. u kolonama matrice a
c)najmanjim vrednostima u vrstama

E sad, kontam sledece:

Ako uzmemo da je n = 3, onda je matrica 3*3. Kako bih mogao da namestim da se i menja u zavisnosti od n - u ovom slucaju i treba da bude 3 puta jedan, pa 3 puta dva, i tri puta 3?

Ne znam da li sam dobro formulisao pitanje i koliko me razumete.

[NeverMore21]

Kako bih mogao da namestim da se i menja u zavisnosti od n - u ovom slucaju i treba da bude 3 puta jedan, pa 3 puta dva, i tri puta 3?

Ne znam da li sam dobro formulisao pitanje i koliko me razumete. 

Ne znam bas da li sam ukapirao, ali ovo se najlakse radi preko dvostruke FOR petlje jedna promenljiva za vrstu, jedna za kolonu)...

Nesto ovako:


for i:= 1 to n do
begin
suma:= 0;

for j:= 1 to n do
 suma:= suma + s[i, j];

nizSuma[i]:= suma;
end;


Moguce da ima gresaka, nisam radio u Delphiju 100 godina !

edit: zasto ne radi Bold tag u Code tagu?

This post has been edited by NeverMore21: Jun 16 2008, 06:51 PM

[milanche]

Bravo majstore, to je upravo ono sto je trebalo da se uradi. Sad cu da iscepam ovaj zadatak do kraja. Hvala jos jednom.

[NeverMore21]

Nema na cemu ! Ako ne razumes neki deo koda, pitaj !