Evo jos jednog lakog (za nekog)

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

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

Potpis

"Staromislitelji ne trbuhosećaju englsoc"

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 ?

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

Ne nego za sve cetvorocifrene brojeve...

Koja si skola?

kupi zbirku sa resenim zadacima.

Potpis

www.cikloberza.com --- www.freeclimbing.org.yu --- www.vertikal.org.yu --- www.yuzvuk.com

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

Potpis

VMware VCP/Microsoft MCSE 2003/HP ASE

Deveta gimnazija :)

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

Potpis

Ivan Tanasic - Autoexes

>cd pub
>more beer

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.

Potpis

Ivan Tanasic - Autoexes

>cd pub
>more beer

A imali knjiga u slobodnoj prodaji u nekoj knjižari, ili postoji neko alternativno rešenje za nabavku.

Potpis

Zlo ne postoji, već samo je dobro prisutno u maloj količini.

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.

Potpis

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