2 Pages < 1 2 
Reply to this topicStart new topicStart Poll

Outline · [ Standard ] · Linear+

> Za Vas Verovatno Laganica, ...ja ne mogu da se povezem.

milanche
post Mar 3 2008, 11:50 PM
Post #21





Group: Članovi
Joined: 26-July 07
Member No.: 597
Status: Van MGa
Škola/Razred: Gimnazija Zajecar, III razred (od 1. septembra)



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

...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...smile.gif

Hvala Tanja...smile.gif

This post has been edited by milanche: Mar 3 2008, 11:58 PM
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
VIP <3
post Mar 4 2008, 12:18 AM
Post #22





Group: Članovi
Joined: 7-February 07
Member No.: 425
Status: Bivši učenik MGa
Ime i prezime: Tatjana Nikolic
Škola/Razred: '90 IVd



QUOTE(milanche @ Mar 3 2008, 11:50 PM)
Opet mi je jasno...Evo, jednom pesmom da ti se zahvalim, onako za opustanje...(uz male izmene) tongue.gif

...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...smile.gif

Hvala Tanja...smile.gif
*


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


--------------------

Opsti kriminal.
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
narziss
post Mar 4 2008, 01:20 AM
Post #23





Group: Članovi
Joined: 10-February 08
Member No.: 886
Status: Van MGa



moze i bez promenljive z? unsure.gif

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 unsure.gif
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
milanche
post Mar 5 2008, 01:54 PM
Post #24





Group: Članovi
Joined: 26-July 07
Member No.: 597
Status: Van MGa
Škola/Razred: Gimnazija Zajecar, III razred (od 1. septembra)



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.
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
VIP <3
post Mar 5 2008, 05:30 PM
Post #25





Group: Članovi
Joined: 7-February 07
Member No.: 425
Status: Bivši učenik MGa
Ime i prezime: Tatjana Nikolic
Škola/Razred: '90 IVd



Bravo wink.gif Ponosna na tebe wink.gif


--------------------

Opsti kriminal.
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
milanche
post Jun 14 2008, 07:38 PM
Post #26





Group: Članovi
Joined: 26-July 07
Member No.: 597
Status: Van MGa
Škola/Razred: Gimnazija Zajecar, III razred (od 1. septembra)



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? biggrin.gif

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.
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
The snorks
post Jun 15 2008, 08:36 AM
Post #27





Group: Članovi
Joined: 23-June 07
Member No.: 542
Status: Bivši učenik MGa
Škola/Razred: Matf / II



QUOTE(milanche @ Jun 14 2008, 08:38 PM)
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 blush.gif ) wink.gif

i poslednje
Sta su ti ove trojke pri ispisivanju resenja? unsure.gif i nigde nemas naredbu za ispisivanje konkretne vrednosti broja p odnosno broja s u 2. slucaju wink.gif
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 wink.gif


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

Ostalo, koliko bar ja vidim, je ok smile.gif

This post has been edited by The snorks: Jun 15 2008, 08:57 AM
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
^_NiN0_^
post Jun 15 2008, 10:27 AM
Post #28


Moderator
Group Icon

Group: Moderatori
Joined: 29-January 06
Member No.: 4
Status: Učenik MGa



QUOTE(milanche @ Jun 14 2008, 08:38 PM)

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? :\


--------------------
Yo!hambin,
Yo!hambina, Yo!hambin
Yo-yo, yo-yo, yo
Yo!hambin,
Yo!hambina, Yo!hambiiina
(Mala matura deca kokaina®
Velika matura deca Yo!hambina)
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
milanche
post Jun 15 2008, 10:27 AM
Post #29





Group: Članovi
Joined: 26-July 07
Member No.: 597
Status: Van MGa
Škola/Razred: Gimnazija Zajecar, III razred (od 1. septembra)



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.
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
milanche
post Jun 15 2008, 10:30 AM
Post #30





Group: Članovi
Joined: 26-July 07
Member No.: 597
Status: Van MGa
Škola/Razred: Gimnazija Zajecar, III razred (od 1. septembra)



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?
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
^_NiN0_^
post Jun 15 2008, 11:00 AM
Post #31


Moderator
Group Icon

Group: Moderatori
Joined: 29-January 06
Member No.: 4
Status: Učenik MGa



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


--------------------
Yo!hambin,
Yo!hambina, Yo!hambin
Yo-yo, yo-yo, yo
Yo!hambin,
Yo!hambina, Yo!hambiiina
(Mala matura deca kokaina®
Velika matura deca Yo!hambina)
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
The snorks
post Jun 15 2008, 01:06 PM
Post #32





Group: Članovi
Joined: 23-June 07
Member No.: 542
Status: Bivši učenik MGa
Škola/Razred: Matf / II



QUOTE(^_NiN0_^ @ Jun 15 2008, 11:27 AM)
Samo mi nije jasno gde je for ciklus za ove dve linije? :\
*


Da vidi stvarno, nema ni for-a XD.gif
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
milanche
post Jun 15 2008, 02:36 PM
Post #33





Group: Članovi
Joined: 26-July 07
Member No.: 597
Status: Van MGa
Škola/Razred: Gimnazija Zajecar, III razred (od 1. septembra)



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


U ovom redu, ispred THEN mi kompajler prikazuje MISMATCH. sad.gif
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
RZA
post Jun 15 2008, 02:47 PM
Post #34


Njeno Ljubičanstvo


Group: Članovi
Joined: 7-September 06
Member No.: 92
Status: Bivši učenik MGa



moras zagrade da stavis wink.gif

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


--------------------
cold
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
milanche
post Jun 16 2008, 06:19 PM
Post #35





Group: Članovi
Joined: 26-July 07
Member No.: 597
Status: Van MGa
Škola/Razred: Gimnazija Zajecar, III razred (od 1. septembra)



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. XD.gif
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
NeverMore21
post Jun 16 2008, 06:48 PM
Post #36





Group: Članovi
Joined: 21-September 06
From: 21. блок
Member No.: 115
Status: Učenik MGa
Ime i prezime: Bojan Zukic
Škola/Razred: Matematicka gimnazija IVb



QUOTE(milanche @ Jun 16 2008, 07:19 PM)
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.  XD.gif
*




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 biggrin.gif!

edit: zasto ne radi Bold tag u Code tagu? dry.gif

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


--------------------
user posted image
user posted image
user posted image
user posted image
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
milanche
post Jun 16 2008, 07:07 PM
Post #37





Group: Članovi
Joined: 26-July 07
Member No.: 597
Status: Van MGa
Škola/Razred: Gimnazija Zajecar, III razred (od 1. septembra)



Bravo majstore, to je upravo ono sto je trebalo da se uradi. Sad cu da iscepam ovaj zadatak do kraja. Hvala jos jednom. wink.gif
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
NeverMore21
post Jun 16 2008, 09:11 PM
Post #38





Group: Članovi
Joined: 21-September 06
From: 21. блок
Member No.: 115
Status: Učenik MGa
Ime i prezime: Bojan Zukic
Škola/Razred: Matematicka gimnazija IVb



Nema na cemu cheers.gif ! Ako ne razumes neki deo koda, pitaj tongue.gif!


--------------------
user posted image
user posted image
user posted image
user posted image
User is offlineProfile CardPM
Go to the top of the page
+Quote Post

2 Pages < 1 2
Reply to this topicTopic OptionsStart new topic
1 User(s) are reading this topic (1 Guests and 0 Anonymous Users)
0 Members: