Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

  • 39 odgovora
  • 22.051 pregleda

Najnovija ↓

Kolekcija zadataka u PASCAL-u 10.10.2004. u 23:14 · pre 268 meseci
izmenjeno 1 put, poslednji put Alekstrade 11.10.2004. u 14:11
  1. Alekstrade11.10.2004. u 14:11zapis iz teksta poruke
#1
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...
Potpis
„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
Sviđa mi se1
Re: Kolekcija zadataka u PASCAL-u 11.10.2004. u 09:01 · pre 268 meseci #3
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
Re: Kolekcija zadataka u PASCAL-u 11.10.2004. u 14:11 · pre 268 meseci #4
Obrisao sam prvih 15 i dodao sam još 3 zadatka.

U prave ste. Neću više stavljati proste zadatke.
Potpis
„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
Re: Kolekcija zadataka u PASCAL-u 12.10.2004. u 04:11 · pre 268 meseci #5
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 :)
Potpis
Ride the rainbow, crack the sky

DIY gitare, pojacala i efekti www.diy-fever.com
Re: Kolekcija zadataka u PASCAL-u 12.10.2004. u 20:53 · pre 268 meseci #6

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.
Re: Kolekcija zadataka u PASCAL-u 13.10.2004. u 01:13 · pre 268 meseci #8
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.
Potpis
Blago onom tko rano poludi,
pa mu život u veselju prođe
Re: Kolekcija zadataka u PASCAL-u 13.10.2004. u 03:03 · pre 268 meseci #9
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...
Potpis
Ride the rainbow, crack the sky

DIY gitare, pojacala i efekti www.diy-fever.com
Re: Kolekcija zadataka u PASCAL-u 13.10.2004. u 14:08 · pre 268 meseci #10
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.
Potpis
„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
Re: Kolekcija zadataka u PASCAL-u 13.10.2004. u 20:24 · pre 268 meseci #11
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!
Potpis
Bolje jedno vruće pivo nego četri ladna!
Re: Kolekcija zadataka u PASCAL-u 13.10.2004. u 22:39 · pre 268 meseci #12
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
Potpis
Ride the rainbow, crack the sky

DIY gitare, pojacala i efekti www.diy-fever.com
Re: Kolekcija zadataka u PASCAL-u 25.11.2009. u 09:46 · pre 206 meseci #13
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 !!!!!
Re: Kolekcija zadataka u PASCAL-u 05.11.2010. u 14:52 · pre 194 meseca #14
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
Re: Kolekcija zadataka u PASCAL-u 05.11.2010. u 15:49 · pre 194 meseca #15
> 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.
Potpis
Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html
Re: Kolekcija zadataka u PASCAL-u 05.11.2010. u 20:00 · pre 194 meseca
izmenjeno 1 put, poslednji put savkic 05.11.2010. u 23:53
  1. savkic05.11.2010. u 23:53zapis iz teksta poruke
#16
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....
Re: Kolekcija zadataka u PASCAL-u 06.11.2010. u 00:04 · pre 194 meseca #17
> 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.
Potpis
Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html
Re: Kolekcija zadataka u PASCAL-u 06.11.2010. u 12:14 · pre 194 meseca #18
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.
Re: Kolekcija zadataka u PASCAL-u 26.05.2011. u 00:46 · pre 187 meseci #19
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!
Re: Kolekcija zadataka u PASCAL-u 26.05.2011. u 01:15 · pre 187 meseci #20
> 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;
Potpis
Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html
Odgovori
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme