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

Evo jos jednog lakog (za nekog)

[es] :: Pascal / Delphi / Kylix :: Evo jos jednog lakog (za nekog)

[ Pregleda: 6934 | Odgovora: 13 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

bokisan
Bojan Miljevic
Srbija

Član broj: 1038
Poruke: 56
*.InfoSky.Net

ICQ: 138726343
Sajt: ww1.infosky.net/~bokisan


Profil

icon Evo jos jednog lakog (za nekog)16.01.2002. u 19:33 - pre 242 meseci
Napisati program kojim se ispisuje ukupan broj svih cetvorocifrenih brojeva kod kojih je zbir cifara na parnim mestima jednak zbiru cifara na neparnim mestima i ispisati t brojeve. HVALA
 
Odgovor na temu

dr_voja
Milošević Vojislav
Beograd

Član broj: 2066
Poruke: 69
*.92.EUnet.yu

ICQ: 54318972


Profil

icon Re: Evo jos jednog lakog (za nekog)16.01.2002. u 20:12 - pre 242 meseci
Moj predlog je da formiras 4-cifrene brojeve sa 4 for-do petlje, recimo
for a:=0 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
for d:=0 to 9 do
If ((a+c)=(b+d))
then writeln(1000*a+100*b+10*c+d);
ovde treba ubaciti i brojac, ali me mrzi da pisem naredbu sastavljanja


"Staromislitelji ne trbuhosećaju englsoc"
 
Odgovor na temu

Boris Stevanovic
Srbija

Član broj: 1265
Poruke: 121
*.ptt.yu



Profil

icon Re: Evo jos jednog lakog (za nekog)16.01.2002. u 22:41 - pre 242 meseci
Citat:
dr_voja:
Moj predlog je da formiras 4-cifrene brojeve sa 4 for-do petlje, recimo
for a:=0 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
for d:=0 to 9 do
If ((a+c)=(b+d))
then writeln(1000*a+100*b+10*c+d);
ovde treba ubaciti i brojac, ali me mrzi da pisem naredbu sastavljanja


Samo mala izmena :)
treba:
for a:=1 to 9 do {i tako dalje}

Samo ne znam koja je svrha ovog programa.
Da nisi mozda mislio na proizvoljno unete cetvorocifrene brojeve pa broj svih takvih koji ispunjavaju zadati uslov ?

 
Odgovor na temu

bokisan
Bojan Miljevic
Srbija

Član broj: 1038
Poruke: 56
*.InfoSky.Net

ICQ: 138726343
Sajt: ww1.infosky.net/~bokisan


Profil

icon Re: Evo jos jednog lakog (za nekog)17.01.2002. u 18:01 - pre 242 meseci
Citat:
dr_voja:
Moj predlog je da formiras 4-cifrene brojeve sa 4 for-do petlje, recimo
for a:=0 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
for d:=0 to 9 do
If ((a+c)=(b+d))
then writeln(1000*a+100*b+10*c+d);
ovde treba ubaciti i brojac, ali me mrzi da pisem naredbu sastavljanja




UH!!! Ajde molim te polako od pocetka i jednostavnije. Ja tek pocinjem sa ovim (sto me muka - skola tera).
 
Odgovor na temu

bokisan
Bojan Miljevic
Srbija

Član broj: 1038
Poruke: 56
*.InfoSky.Net

ICQ: 138726343
Sajt: ww1.infosky.net/~bokisan


Profil

icon Re: Evo jos jednog lakog (za nekog)17.01.2002. u 18:08 - pre 242 meseci
Citat:

Samo ne znam koja je svrha ovog programa.
Da nisi mozda mislio na proizvoljno unete cetvorocifrene brojeve pa broj svih takvih koji ispunjavaju zadati uslov ?


Ne nego za sve cetvorocifrene brojeve...
 
Odgovor na temu

shaDy
Nikola J
-=BGD=-

Član broj: 1507
Poruke: 240
*.ppp-bg.sezampro.yu

Sajt: www.CikloBerza.com


Profil

icon Re: Evo jos jednog lakog (za nekog)17.01.2002. u 18:31 - pre 242 meseci
Koja si skola?

kupi zbirku sa resenim zadacima.
 
Odgovor na temu

Dusan Marjanovic
Consultant, SAS
Beograd

Član broj: 59
Poruke: 1290
*.016le.net

Jabber: dusanm@gmail.com
ICQ: 84621598
Sajt: marjanovic.net


+6 Profil

icon Re: Evo jos jednog lakog (za nekog)17.01.2002. u 21:15 - pre 242 meseci
pa ne znam šta ti je više potrebno...ako si nekad pisao u pascalu ovo bi trebalo da ti je dovoljno...
program shit;
var
a,b,c,d,i:integer;
begin
i:=0; { broj 4-cifrenih brojeva koji ispunjavaju dati uslov }
for a:=1 to 9 do
for b:=1 to 9 do
for c:=1 to 9 do
for d:=1 to 9 do
If ((a+c)=(b+d)) {uporedjuje zbir cifara na parnim sa zbirom cifara na neparnim mestima }
then
begin
i:=i+1;
writeln(1000*a+100*b+10*c+d)
end;
writeln('Takvih brojeva ima: ',i)
end.
sledeći put probaj da malo sam razmisliš a ne da tražiš sve gotovo...
VMware VCP/Microsoft MCSE 2003/HP ASE
 
Odgovor na temu

bokisan
Bojan Miljevic
Srbija

Član broj: 1038
Poruke: 56
*.InfoSky.Net

ICQ: 138726343
Sajt: ww1.infosky.net/~bokisan


Profil

icon Re: Evo jos jednog lakog (za nekog)19.01.2002. u 12:21 - pre 242 meseci
Citat:
shaDy:
Koja si skola?



Deveta gimnazija :)
 
Odgovor na temu

Makojdis
Stefanovic Milos
Kragujevac

Član broj: 78
Poruke: 302
*.ptt.yu



Profil

icon Re: Evo jos jednog lakog (za nekog)20.01.2002. u 11:02 - pre 242 meseci
Imas dostadobrih knjiga za pascal

vecina profesora radi po zbirkama Milana Cabarkape
Zbirka resenih zadataka u paskalu ima dve knjige koje su prilicno dobre...probaj to da nabavis i na konju si
 
Odgovor na temu

Ivan Tanasic
BGD-SRBIJA

Član broj: 220
Poruke: 965
*.verat.net

Jabber: Autoexes@jabber.sk
ICQ: 129145438


Profil

icon Re: Evo jos jednog lakog (za nekog)23.01.2002. u 17:20 - pre 241 meseci
Citat:
Makojdis:
Imas dostadobrih knjiga za pascal

vecina profesora radi po zbirkama Milana Cabarkape
Zbirka resenih zadataka u paskalu ima dve knjige koje su prilicno dobre...probaj to da nabavis i na konju si


Neee, nedovoljno, zadatci su nikakvi (kao i resenja).

Kako stvari stoje sa pascal za srednju skolu:
Uglavnom se uci iz pascal 1 i pascal 2 knjiga od Milana Cabarkape (u mojoj skoli za 1. i 2. godinu su te dve knjige), onda Metodicka zbirka zadataka sa resenjima u pascal by Nevenka Spalevic & Milan Cabarkapa (isto u mojoj skoli obavezno za imati) i programiranje&programiranje podeblja zbirka Milana Vugdelije koja je na nekom srednjem/visem/takmicarskom nivou (kolko sam ja razumeo, ne mojte me drzati za rec) al uz ovo si vec na konju. Naravno ima tu jos gomila zbirki, ako ti treba vise informacija nabavicu ti ime/ime autora

Ivan Tanasic - Autoexes

>cd pub
>more beer
 
Odgovor na temu

Ivan Tanasic
BGD-SRBIJA

Član broj: 220
Poruke: 965
*.verat.net

Jabber: Autoexes@jabber.sk
ICQ: 129145438


Profil

icon Re: Evo jos jednog lakog (za nekog)24.01.2002. u 12:59 - pre 241 meseci
E da sad se setih jos jedne knjige... osnove programiranja, radi se na pmf, i o pascalu je. Ima dosta primera cinimi se da je i ona lepo uradjena.
Ivan Tanasic - Autoexes

>cd pub
>more beer
 
Odgovor na temu

prosams
Novi Beograd

Član broj: 716
Poruke: 133
*.verat.net



Profil

icon Re: Evo jos jednog lakog (za nekog)28.02.2002. u 06:37 - pre 240 meseci
A imali knjiga u slobodnoj prodaji u nekoj knjižari, ili postoji neko alternativno rešenje za nabavku.
Zlo ne postoji, već samo je dobro prisutno u maloj količini.
 
Odgovor na temu

Riste Pejov
Team Leader/Senior Software Developer @
Ein-Sof ltd Skopje
Skopje, Macedonia

Član broj: 128
Poruke: 571
62.220.202.*

Jabber: richie@bagra.net.mk
ICQ: 154236769
Sajt: riste.softver.org.mk


Profil

icon Re: Evo jos jednog lakog (za nekog)01.03.2002. u 00:14 - pre 240 meseci
Kad smo kod knjiga o paskalu,
ima jednu genijalnu knjigu
zove se:
Introduction to Computer Science (an algorithmic aproach)
Pascal Edition

Autori:
Tremblay, DeDourek, Bunt

to je najkompletnija i najbolja knjiga koju ja video o paskalu,
ja sam se edva docepa kopije.

People who think they know everything tend to irritate those of us who do.
 
Odgovor na temu

Toni
Dorćol, Beograd

Član broj: 15
Poruke: 654
*.verat.net

Jabber: toni@elitesecurity.org
ICQ: 16451419
Sajt: egoideas.com


Profil

icon Re: Evo jos jednog lakog (za nekog)01.03.2002. u 09:28 - pre 240 meseci
Milana Cabarkape
Nevenka Spalevic
Milana Vugdelije

a zamisli akciju kada su ti svi istovremeno na BLOKu ;)
a ko hoce knjigu za takmiichenje onda neka uzme zbirku sa Informatickih olimpiada od Jozefa Kratice :)

to su takve bahanalije od algoritama i stvari da bi se smrzli :)
Jel potpis treba pisanim ili štampanim slovima?
_________________________________________
dizajnzona.com
netizenfaction.com
egoideas.com
levodesno.com
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Evo jos jednog lakog (za nekog)

[ Pregleda: 6934 | Odgovora: 13 ] > FB > Twit

Postavi temu Odgovori

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