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

Kolekcija zadataka u PASCAL-u

[es] :: Pascal / Delphi / Kylix :: Kolekcija zadataka u PASCAL-u

Strane: 1 2

[ Pregleda: 18262 | Odgovora: 39 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Aleksandar Ilić
Software Developer
Beograd

Član broj: 15867
Poruke: 417

Sajt: www.ailic.rs


+3 Profil

icon Kolekcija zadataka u PASCAL-u10.10.2004. u 22:14 - pre 237 meseci
1. Data je meta od 10 koncetričnih krugova poluprečnika r = 1, 2,...,10 i tačka A(x, y) u meti. Za pogodak u unutrašnjosti najmanjeg kruga dobija se 10 poena, a za svaki prsten, idući ka periferiji, po poen manje. Napisati program kojim se određuje koliko se dobija poena za pogodak u tačku A, ako se centar mete i početak koordinatnog sistema poklapaju.

2. Napisati program kojim se određuje koliko vode treba dodati u X grama vode p1%-nog rastvora sumporne kiseline da bi se dobio p2%-ni rastvor (p1>p2).

3. Putnik A prelazi X km/h, putnik B prelazi Y km/h. Oba putnika u isto vreme i iz iste pozicije počinju višestruki obilazak grada kružnim putem dužine S km. Napisati program kojim se određuje posle koliko vremena će brži putnik susreći sporijeg.

4. Bazen se jednom slavinom može napuniti za X sati, drugom za Y sati. Pun bazem se odvdonom cevi može isprazniti za Z sati. Ako se istovremeno otvore obe slavine i odvodna cev, napisati program koji izračunava: a) koji deo bazena će se npuniti za p sati?, b) za koje vreme će se napuniti bazen?.

5. Voz se kretao T1 sekundi brzinom od V1 m/s. Zatim je prešao X km brzinom V2 m/s. Kolika je srednja brzina voza na pređenom putu?

6. Dva tela se kreću ravnomerno duž istog pravca u istom smeru. Brzina prednjeg tela je X m/s, a brzina zadnjeg Z m/s (Y>X). Koliko je početno rastojanje između njih, ako je posle S sekundi zadnje telo D metara iza prednjeg.

7. Ako sat pokazuje tačno X sati, napisati program koji određuje posle koliko minuta će se prvi put poklopiti mala i velika kazaljka.

8. Napisati program kojim se rešavaju sledeći zadaci:
a)ako su data realna rešenja kvadratne jednačine odrediti njene koeficijente;
b)izračunati obim i površinu pravilnog šestougla upisnog u krug datog poluprečnika;
c)izračunati obim i površinu pravouglog trougla na osnovu dužinu njegovih kateta;
d)izračunati aritmetičku i geometrijsku sredini dva pozitivna broja;
e)odrediti koordinate tačke X koja dati odsečak [p, q] deli u odnosu a:b.

9. Napisati program koji datom prirodnom četvorocifrenom broju:
a)izračunava proizvod cifara;
b)izračunava razliku sumu krajnjih i srednjih cifara broja;
c)izračunava sumu kvadrata cifara;
d)određuje broj koji se dobija ispisom cifara u obrnutom poretku;

10. U taksi su istovremeno ušla tri putnika. Kada je izašao prvi putnik taksimetar je pokazivao C1 din, kada je izašao drugi pokazivao je C2 din, a po okončanju putovanja pokazivao je C3 din. Koliko treba da plati svaki od putnika da bi se pokrili troškovi putovanja, ako svaki plaća srazmerno, tj. kada prvi izađe treba da plati samo trećinu troškova od C1 din. za prvi deo puta.

11. Prirodni brojevi su zapisani jedan iza drugog tako da čine beskonačni niz cifara: 123456789101112131415161718192021222324...
Za dati broj n, naći n - tu cifru u ovom nizu.

12. Mali Perica je gledao kviz "Muzičku slagalicu" i mnogo mu se dopala igra sa slovima. Naime, od datih N slova engleske abecede treba sastaviti što dužu reč, ali svako slovo se sme upotrebiti najviše jednom. Zato je Perica nabavio i ogromni rečnik koji ima M reči. Ali avaj, pretraživanje po rečniku je vrlo zamoran posao.
Vaš zadatak je da pomognete Perici i napišete program koji će naći najdužu reč. Ukoliko ima više reši iste dužine, štampati prvu u leksikografskom redosledu.

13. Mali Perica je dobio za rođendan špil od 2N karata obeleženih redom od 1 do 2N i meša ih na sledeći način:
- preseče špil tačno na pola i dobije dve gomile A i B od N karata, gde je A gornja polovina i B donja polovina
- kombinuje karte tako što redom uzima kartu sa gomile A, pa kartu sa gomile B i stavlja na zajedničku gomilu, dok ne izmeša svih 2N karata.
Kako je Perica završio sve domaće zadatke, zanima se tako što meša karte ponovo i ponovo, dok ne dobije prvobitan raspored karata {1, 2, 3,..., 2N}. Zanima ga koliko puta mora da promeša špil da bi se karte vratile u orginalan raspored.

Nastaviće se...

[Ovu poruku je menjao Alekstrade dana 11.10.2004. u 14:11 GMT+1]
„Naposletku, suština saznavanja nije u tome gubimo li igru, već kako je gubimo,
šta time spoznajemo, čemu nas je poraz naučio i kako nas to menja. Gubiti na određen
način znači - dobijati.”

Richard Bach
 
Odgovor na temu

bancika
Branislav Stojkovic

Član broj: 24844
Poruke: 631
*.teleportgroup.net.

Sajt: www.diy-fever.com


+1 Profil

icon Re: Kolekcija zadataka u PASCAL-u11.10.2004. u 01:17 - pre 237 meseci
kakvi su ovo zadaci, za predskolsko?
ne, znam...to su famozna 25 zadatka za doktorat u USA :)
Ride the rainbow, crack the sky

DIY gitare, pojacala i efekti www.diy-fever.com
 
Odgovor na temu

Rapaic Rajko
Bgd

Član broj: 4105
Poruke: 810
217.119.242.*



+62 Profil

icon Re: Kolekcija zadataka u PASCAL-u11.10.2004. u 08:01 - pre 237 meseci
A da ja TEBE pitam nesto: sta imas iz matematike? Taaaako znaci? Pa, onda se mani programiranja, jer to ti je kao da igras fudbal bez lopte...

Rajko
 
Odgovor na temu

Aleksandar Ilić
Software Developer
Beograd

Član broj: 15867
Poruke: 417

Sajt: www.ailic.rs


+3 Profil

icon Re: Kolekcija zadataka u PASCAL-u11.10.2004. u 13:11 - pre 237 meseci
Obrisao sam prvih 15 i dodao sam još 3 zadatka.

U prave ste. Neću više stavljati proste zadatke.
„Naposletku, suština saznavanja nije u tome gubimo li igru, već kako je gubimo,
šta time spoznajemo, čemu nas je poraz naučio i kako nas to menja. Gubiti na određen
način znači - dobijati.”

Richard Bach
 
Odgovor na temu

bancika
Branislav Stojkovic

Član broj: 24844
Poruke: 631
*.vdial.verat.net.

Sajt: www.diy-fever.com


+1 Profil

icon Re: Kolekcija zadataka u PASCAL-u12.10.2004. u 03:11 - pre 237 meseci
a ovi kao nisu prosti??? :)
evo ti neki (ne teski) zadacic:

1) napisati program koji stampa svoj kod (znaci ono sto odstampa treba da bude isto kao izvorni kod)

2) izbaciti iz n-tocifrenog broja k cifara tako da on bude sto veci

3) naci povrsinu konveksnog mnogougla

4) za zadate n tacke koje cine konveksan mnogougao odrediti njihov redosled tako da se ide u smeru kazaljke na satu (ili obrnuto, svejedno)

5) naci koordinate polja matrice koje sadrzi broj n < 2^32 (bitno!) ako se ona popunjava na sledeci nacin
1 4 5
2 3 6 ...
9 8 7 14
10 11 12 13

ne mogu da se setim sad, al trebace ti vise vremena nego za ona tvoja 25 :)
Ride the rainbow, crack the sky

DIY gitare, pojacala i efekti www.diy-fever.com
 
Odgovor na temu

grka

Član broj: 11728
Poruke: 166
*.teleportgroup.net.



Profil

icon Re: Kolekcija zadataka u PASCAL-u12.10.2004. u 19:53 - pre 237 meseci

Radi vezbe i ucenja Paskala ja sam poceo da prepisujem zadatke iz knjige Programiranje za 3 razred elektro skole.Moze da pomogne pocetnicima koji hoce da nauce paskal.Uskoro cu zavrsiti pa cu okaciti ovde.
 
Odgovor na temu

bancika
Branislav Stojkovic

Član broj: 24844
Poruke: 631
213.244.197.*

Sajt: www.diy-fever.com


+1 Profil

icon Re: Kolekcija zadataka u PASCAL-u12.10.2004. u 22:29 - pre 237 meseci
samo nemoj ove kao zadaci iz matematike za 6. razred (ovo sa cevkama, bazenima, dva coveka i slicno) :)
Ride the rainbow, crack the sky

DIY gitare, pojacala i efekti www.diy-fever.com
 
Odgovor na temu

TvrdiMijo
Mijo Tvrdojević
Sl.BRod,Hrvatska

Član broj: 31037
Poruke: 52
*.cmu.carnet.hr.



Profil

icon Re: Kolekcija zadataka u PASCAL-u13.10.2004. u 00:13 - pre 237 meseci
Citat:
bancika: samo nemoj ove kao zadaci iz matematike za 6. razred (ovo sa cevkama, bazenima, dva coveka i slicno) :)
Citat:
bancika: a ovi kao nisu prosti??? :)
Citat:
bancika: kakvi su ovo zadaci, za predskolsko?
ne, znam...to su famozna 25 zadatka za doktorat u USA :)

Citat:
srki:neka,ne treba


šta ste svi zapeli,koda zaboravljate da ste i vi jednom bili početnici i da su vam slični bili vrata u svijet programiranja.ako vam se nesviđaju,nemorate ih rješavat ni gledat,a oni razumniji i s viškom vremena bi mogli i koji rješit.kvragu, zvučim kao pro***** moderrrrratorrr.

samo vi postujte zadatke,trebat će za nove naraštaje nadobudnih programera...

poz.
Blago onom tko rano poludi,
pa mu život u veselju prođe
 
Odgovor na temu

bancika
Branislav Stojkovic

Član broj: 24844
Poruke: 631
*.vdial.verat.net.

Sajt: www.diy-fever.com


+1 Profil

icon Re: Kolekcija zadataka u PASCAL-u13.10.2004. u 02:03 - pre 237 meseci
sinak. ovi zadaci su za svakoga sa poznavanjem elementarne matematike i sintakse jezika izazov koliko i pisanje sa mosta.
fora je da dobijes nesto sto u datom trenutku ne mozes da uradis...
Ride the rainbow, crack the sky

DIY gitare, pojacala i efekti www.diy-fever.com
 
Odgovor na temu

Aleksandar Ilić
Software Developer
Beograd

Član broj: 15867
Poruke: 417

Sajt: www.ailic.rs


+3 Profil

icon Re: Kolekcija zadataka u PASCAL-u13.10.2004. u 13:08 - pre 237 meseci
Ovako, ako imate volje, ajde onda da napravimo jednu lepu kolekciju PASCAL zadataka i da to stoji na [es]-u.
Vi postujte zadatke ili mi ih šaljite na PP, a ja ću ih stavljati gore. Za početnički, srednji i profesionalni nivo (da svi budu zadovoljni), pa ćemo ih razvrsti u ove kategorije i svako će se naći.
„Naposletku, suština saznavanja nije u tome gubimo li igru, već kako je gubimo,
šta time spoznajemo, čemu nas je poraz naučio i kako nas to menja. Gubiti na određen
način znači - dobijati.”

Richard Bach
 
Odgovor na temu

Tisma

Član broj: 13213
Poruke: 305
*.SMIN.panline.net.



+1 Profil

icon Re: Kolekcija zadataka u PASCAL-u13.10.2004. u 19:24 - pre 237 meseci
OK, a šta će nekom početniku zadaci ako nema rešenja!?
Milslim da bi zadaci trebali biti i rešeni pa bi to i imalo nekakve koristi.
Pozdrav!
Bolje jedno vruće pivo nego četri ladna!
 
Odgovor na temu

bancika
Branislav Stojkovic

Član broj: 24844
Poruke: 631
*.vdial.verat.net.

Sajt: www.diy-fever.com


+1 Profil

icon Re: Kolekcija zadataka u PASCAL-u13.10.2004. u 21:39 - pre 237 meseci
nije losa ideja, ali mozda je malo trapavo da to bude na forumu... neki sajtic sa prostijim dizajnom bi bio mnogo bolji :)

evo jos neki zadacic :)
Code:

1) popuniti matricu mxn spiralno pocev od levog gornjeg ugla (moze i neki drugi) u smeru kazaljke na satu (moze i suprotno)
npr za 3x3:
1 2 3
8 9 4
7 6 5

2) napisati program za mnozenje dva broja zadata kao niz cifara duzine ne vece od 100.

3) naci povrsinu preseka i unije dva pravougaonika zadata koordinatama levog gornjeg i desnog donjeg temena

4) neka su date tacke A i B i neka je ravan podeljena na jedinicne kvadrate. odrediti na koliko mesta sece duz AB te kvadrate

5) matricom mxn je zadata mapa livade gde 0 predstavlja travu, a 1 drvo. sa x i y su zadate koordinate polozaja krave :). krava gleda na sever i krece se sve dok ne naidje na drvo ili ogradu, a onda skrece za 90 stepeni udesno. posle odredjenog vremena krava ce da udje u ciklicnu putanju. odrediti posle koliko koraka i koja je duzina te ciklicne putanje

6) izvrsiti sazimanje niza na sledeci nacin: podniz istih susednih elemenata menjamo njihovim zbirom i operaciju ponavljamo sve dok moze. ne koristiti pomocni niz i trazi se prvi podniz sa leve strane



ovo su klasicni skolski zadaci, ne bi trebalo da bude problema, ali ako treba dacu instrukcije kako se rade
Ride the rainbow, crack the sky

DIY gitare, pojacala i efekti www.diy-fever.com
 
Odgovor na temu

knez93vb
Nikola Knezevic
Vrnjacka Banja, Srbija

Član broj: 241152
Poruke: 1
93.86.227.*



Profil

icon Re: Kolekcija zadataka u PASCAL-u25.11.2009. u 08:46 - pre 175 meseci
Imam problem sa jednim zadatkom, pokusavao sam da ga resim ali nisata od toga pa ako neko ima resenje neka posalje bio bih mu zahvalan.

Napisati program kojim se odredjuje put koji na sahovskoj tambli dimenzija (m*n) prolazi (P,Q)-konj da bi sa pozicije (a,b) stigao do pocicije (c,d) u minimalnom broju skokova. Ako to nije moguce daje se odgovarajuca poruka. NAPOMENA: (P,Q)-su dimenzije skoka konja u sahu su (1,2) ili (2,1), zadatak treba resiti pomocu slogova tj. najkraci put koji konj predje u koliko ga ima treba se cuva u nizu slogova.

Hvala !!!!!
 
Odgovor na temu

Marko Simulak
123456adada

Član broj: 272268
Poruke: 104



+1 Profil

icon Re: Kolekcija zadataka u PASCAL-u05.11.2010. u 13:52 - pre 163 meseci
Heloo...Imam zadatak neki, pa moze li mala pomoc oko resenja??...
Evo zadatka:
Napisi program za unet cetvorocifren broj, razlika sume krajnjih i srednjih cifara (npr. broj 2304). Na ekran treba da bude ispisano: Broj 2304: (2+4)-(3+0)=3.
Ko zna?? :D
 
Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739



+92 Profil

icon Re: Kolekcija zadataka u PASCAL-u05.11.2010. u 14:49 - pre 163 meseci
> Heloo...Imam zadatak neki, pa moze li mala pomoc oko resenja??...
> Napisi program za unet cetvorocifren broj, razlika sume krajnjih i srednjih cifara (npr. broj 2304). Na ekran treba da bude ispisano: Broj 2304: (2+4)-(3+0)=3.

Može pomoć da ga sam rešiš, gotovo rešenje ne. Šta ti je tačno problem, najbolje i da pošalješ kod koji imaš do sada sa komentarima.
 
Odgovor na temu

Marko Simulak
123456adada

Član broj: 272268
Poruke: 104



+1 Profil

icon Re: Kolekcija zadataka u PASCAL-u05.11.2010. u 19:00 - pre 163 meseci
Aha...hah..dobra fora...ok evo nesto, skontao sam sustinu, ali ne ispise mi dobro, evo coda:

Code:

program cifre2;
var
       c1,c2,c3,c4,N,x:integer;
begin
       writeln('Unesite cetvorocifren broj');
       read(N);
       c1:=N div 1000;
       c2:=N mod 100;
       c3:=(N mod 1000) div 100;
       c4:=(N div 10) mod 10;
       x:=(c1+c2)-(c3-c4);
       writeln('Broj', N, ':', '(', 'c1','+','c2',')','-','(','c3','+','c4',')','=', x);
end.         


Problem pri ispisu pise: (c1+c2)-(c3+c4)=3....rezyltak je ok....ali ova zagrada....

[Ovu poruku je menjao savkic dana 05.11.2010. u 23:53 GMT+1]
 
Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739



+92 Profil

icon Re: Kolekcija zadataka u PASCAL-u05.11.2010. u 23:04 - pre 163 meseci
> Problem pri ispisu pise: (c1+c2)-(c3+c4)=3....rezyltak je ok....ali ova zagrada....

Nisam shvatio šta je tačno problem, šta ne valja sa ispisom? Da li to što piše naziv promenljive (c1, c2) a ne vrednost? Promenljive su ti pod navodnicima, obriši navodnike. Takođe, sam kod ti nije dobar, proveri šta se dešava za uneti broj 1234.
 
Odgovor na temu

Marko Simulak
123456adada

Član broj: 272268
Poruke: 104



+1 Profil

icon Re: Kolekcija zadataka u PASCAL-u06.11.2010. u 11:14 - pre 163 meseci
Evoo ga, ispravio sam, skontao sam odmah to za c1,c2...a i malo sam drugacije sad napisao kod.......moze ovako..

program cifre2;
var
c1,c2,c3,c4,N,x:integer;
begin
writeln('Unesite cetvorocifren broj');
read(N);
c1:= N div 1000;
c2:=(N mod 1000) mod 10;
c3:=(N mod 1000) div 100;
c4:=(N div 10) mod 10;
x:=(c1+c2)-(c3+c4);
writeln('Broj ',N,':','(',c1,'+',c2,')','-','(',c3,'+',c4,')','=',x);
end.
 
Odgovor na temu

degi
Novi Pazar

Član broj: 212318
Poruke: 19
*.dynamic.isp.telekom.rs.

Sajt: www.nhc-team.org


+1 Profil

icon Re: Kolekcija zadataka u PASCAL-u25.05.2011. u 23:46 - pre 157 meseci
Treba mi pomoc pod hitnoo...

Zadatak glasi ovako:
Napisati program kojim se na izlazu ispisuje 1 ako u svakoj koloni matrice
postoji broj b. Za ispitivanje napraviti funkciju. Učitavanje matrice A uraditi
pomoću potprograma.

Ja sam uradio ovako, ali nikako program da mi proradi :(... ako neko vidi gde sam pogresio ili ume da mi pomogne bio bih mu zahvalan...Pokazuje mi gresku (Type mismatch) pokazivacem na deo gde sam oznacio strelicom...
------------------------------------------------------------------------------------------------------------------------------

Code:
program zadatak;
type    matrica=array[1..100,1..100] of integer;

var a:matrica;
    n,m,b:integer;

procedure ucitaj(var a:matrica;n,m:integer);
var i,j:integer;

begin
for i:= 1 to n do
 for j:= 1 to m do
  readln(a[i,j]);
end;

function ok(a:matrica;n,m,b:integer):boolean;
var i,j,s,br:integer;
    p:boolean;

begin 
    br:=0;
    for j:=1 to m do begin
    p:=true;
    while i<=n and p do begin   <------------------- Poakazuje da je tu greska...Kao ne poklapa se to p ili vec sta je u pitanju...
    if a[i,j]=b then begin p:=false; 
        br:=br+1;
    i:= i+1;
    end;
    if br=m then p:=true;
    end;
    ok:=p;
end;



begin
writeln('Unesite n i m');
readln(m,n);
writeln('Unesite b');
readln(b);
writeln('Unesite elemente matrice');
ucitaj(a,n,m);
if ok(a,n,m,b) then writeln('1') else writeln('Ne postoji broj ',b,' u svakoj koloni matrice');
readln
end.

--------------------------------------------------------------------------------------------------
Hvala!
 
Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739



+92 Profil

icon Re: Kolekcija zadataka u PASCAL-u26.05.2011. u 00:15 - pre 157 meseci
> Ja sam uradio ovako, ali nikako program da mi proradi :(... ako neko vidi gde sam pogresio ili ume da mi pomogne bio bih mu zahvalan...Pokazuje mi gresku (Type mismatch)
> pokazivacem na deo gde sam oznacio strelicom...

> while i<=n and p do begin <------------------- Poakazuje da je tu greska...Kao ne poklapa se to p ili vec sta je u pitanju...

Treba: while (i<=n) and p

Proveri i celu funkciju jer nisu svi begin upareni sa end;
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Kolekcija zadataka u PASCAL-u

Strane: 1 2

[ Pregleda: 18262 | Odgovora: 39 ] > FB > Twit

Postavi temu Odgovori

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