[ bokisan @ 16.01.2002. 19:33 ] @
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
[ dr_voja @ 16.01.2002. 20:12 ] @
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

[ Boris Stevanovic @ 16.01.2002. 22:41 ] @
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 ?

[ bokisan @ 17.01.2002. 18:01 ] @
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).
[ bokisan @ 17.01.2002. 18:08 ] @
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...
[ shaDy @ 17.01.2002. 18:31 ] @
Koja si skola?

kupi zbirku sa resenim zadacima.
[ Dusan Marjanovic @ 17.01.2002. 21:15 ] @
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...
[ bokisan @ 19.01.2002. 12:21 ] @
Citat:
shaDy:
Koja si skola?



Deveta gimnazija :)
[ Makojdis @ 20.01.2002. 11:02 ] @
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
[ Ivan Tanasic @ 23.01.2002. 17:20 ] @
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 @ 24.01.2002. 12:59 ] @
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.
[ prosams @ 28.02.2002. 06:37 ] @
A imali knjiga u slobodnoj prodaji u nekoj knjižari, ili postoji neko alternativno rešenje za nabavku.
[ Riste Pejov @ 01.03.2002. 00:14 ] @
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.
[ Toni @ 01.03.2002. 09:28 ] @
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 :)