Resavanje zadataka u pascalu-pomozite :D

1

Resavanje zadataka u pascalu-pomozite :D

offline
  • Pridružio: 14 Sep 2008
  • Poruke: 2
  • Gde živiš: Sivac

Pa,volim da radim zadatke,ali voleo bih kada biste mi pomogli...Jednom nedeljno cu ostavljati ovde neke zadatke,a voleo bih da mi neko pomogne da ih uradim,ali bi zamolio sve koji to znaju da pomognu(ako ih nije mrsko da kucaju ceo program),jer ideje mi bas i ne pomazu,ali voleo bih svejedno kad bih neko pomogao....
1)Miloš je na svom tavanu pronašao staru šahovsku ploču i kovčeg s figurama. Nažalost, u kovčegu se nalaze samo bele figure, i to nepravilan broj figura. Jedan pravilan set figura sadrži:

• jednog kralja
• jednu kraljicu
• dva lovca
• dva konja
• dva topa
• osam pešaka

Miloša zanima koliko figura mora dodati ili maknuti da bi imao pravilan set.

Ulazni podaci:

Sa tastature se unosi 6 celih brojeva, svaki između 0 i 10 (uključivo). Prvi broj predstavlja broj kraljeva u kovčegu, drugi broj kraljica, treći broj lovaca, četvrti broj skakača, peti broj topova i šesti broj pešaka.

Izlazni podaci:

Na monitoru treba ispisati 6 brojeva odvojenih razmakom, po jedan za svaki odgovarajući broj u ulazu.
Ukoliko je zapisani broj pozitivan, Miloš treba dodati toliko figura tog tipa. Ukoliko je zapisani broj negativan, Miloš treba maknuti toliko figura tog tipa.

Test primeri:

Test primer 1 Test primer 2
ulaz 0 1 2 2 2 7 2 1 2 1 2 1
izlaz 1 0 0 0 0 1 -1 0 0 1 0 7

5 test primera po 4 boda. (Max 20)

2)Miloš je sav oduševljen svojim novim pravilnim setom figura pojurio do Dejana samo da bi saznao da je Dejan na svom tavanu takođe otkrio šah koji čudom sudbine sadrži pravilni set crnih figura. Budući da ne znaju igrati šah, odlučili su se jednostavno pomlatiti šahovskim tablama.

Dok se Dejan zagrijava nizom brzih istezanja, Miloš je odlučio sabotirati Dejanovu ploču. Vičan obradi drveta, Miloš je odlučio istesterisati Dejinu ploču uzduž i popreko tako da se pri prvom udarcu raspadne u što je moguće više delova.

Miloš može praviti rezove samo paralelno sa stranicama ploče, od ivice do ivice, a ima vremena za najviše N rezova.

Ulazni podaci:

• Sa tastature se unosi prirodni broj N (1 <= N <= 100), broj rezova koje Miloš može napraviti.

Izlazni podaci:

• Na monitoru treba ispisati najveći broj delova na koje se može raspasti Dejanova ploča.

Test primeri:

Test primer 1 Test primer 2
ulaz 1 3
izlaz 2 6

5 test primera po 4 boda. (Max 20)

Znas kako, cisto sumnjam da ce ti neko uraditi ovaj ili bilo koji drugi zadatak, da ti napise ceo program, jer vecina ljudi ima sta drugo da radi i ne moze time jos da se bavi. Da ti pomognu to je ok, ali da bi ti pomogli moras da se potrudis da uradis pa da kazes gde je zapelo slicno.
Posto ja nemam sta drugo da radim, petak je vece, kisa pada, mrzelo me je da odem do grada, zato cu ti dati pomoc u resavanju prvog zadatka.
Sta ti se trazi? Trazi ti se da nadjes razliku izmedju brojeva : 1-x, 1-y, 2-z, 2-t, 2-k, 8-p
Ukoliko dobijes 0 znaci da je tacno koliko treba, negativan da treba da maknes jer ima viska, pozitivan da dodas jer nedostaje.
Prosto i jednostavno.
Naravno, ni jedan programer ne bi uradio tako naivno, ubacio bi provere da li je unet broj izmedju 0 i 10 kako ti se trazi u zadatku, pa bi proverio da li je uneto tacno 6 brojeva(recimo koriscenjem petlje....)....i tako dalje.
Ovde ti je banalan primer kako zadatak mozes resiti, napisao sam ti samo za kralja i kraljicu a ti radi sam dalje, valjda ti je jasno.
Nisam ti ubacivao ovde stampanje razmaka i tako tos to se trazi, te sitnice sam zavrsi, imas ideju, imas priemr, uradi do kraja


program zasah;
uses wincrt;
var
kralj, kraljica:integer;

begin
 writeln('Uneti broj kraljeva');
 readln(kralj);
 writeln('Uneti broj kraljica');
 readln(kraljica);

 writeln(kralj, kraljica);
 writeln(1-kralj, 1-kraljica);

end.


Probaj drugi zadatak da uradis, pa napisi sta te muci, sta ti nije jasno.

N1k0l4 ::Znas kako, cisto sumnjam da ce ti neko uraditi ovaj ili bilo koji drugi zadatak, da ti napise ceo program, jer vecina ljudi ima sta drugo da radi i ne moze time jos da se bavi. Da ti pomognu to je ok, ali da bi ti pomogli moras da se potrudis da uradis pa da kazes gde je zapelo slicno.
Posto ja nemam sta drugo da radim, petak je vece, kisa pada, mrzelo me je da odem do grada, zato cu ti dati pomoc u resavanju prvog zadatka.
Sta ti se trazi? Trazi ti se da nadjes razliku izmedju brojeva : 1-x, 1-y, 2-z, 2-t, 2-k, 8-p
Ukoliko dobijes 0 znaci da je tacno koliko treba, negativan da treba da maknes jer ima viska, pozitivan da dodas jer nedostaje.
Prosto i jednostavno.
Naravno, ni jedan programer ne bi uradio tako naivno, ubacio bi provere da li je unet broj izmedju 0 i 10 kako ti se trazi u zadatku, pa bi proverio da li je uneto tacno 6 brojeva(recimo koriscenjem petlje....)....i tako dalje.
Ovde ti je banalan primer kako zadatak mozes resiti, napisao sam ti samo za kralja i kraljicu a ti radi sam dalje, valjda ti je jasno.
Nisam ti ubacivao ovde stampanje razmaka i tako tos to se trazi, te sitnice sam zavrsi, imas ideju, imas priemr, uradi do kraja


program zasah;
uses wincrt;
var
kralj, kraljica:integer;

begin
 writeln('Uneti broj kraljeva');
 readln(kralj);
 writeln('Uneti broj kraljica');
 readln(kraljica);

 writeln(kralj, kraljica);
 writeln(1-kralj, 1-kraljica);

end.


Probaj drugi zadatak da uradis, pa napisi sta te muci, sta ti nije jasno.


Ali mi smo tek poceli da radimo u pascalu covece,a ove zadatke mi salje profesor kuci da radim i moram uraditi po 2 svake nedelje.....ne znam ni sta ti je ono uses wincrt ili sta vec..da li je to ono sto se zove 'library'? koji si to var uneo?Ja bukvalno pocinjem da radim sa pascalom hehe Very Happy ali dobro,jos cu pokusati da uradim,...Ako imas msn ili myspace ili nesto drugo javi mi pa da te nadjem,da mi pomazes i ubuduce kad nadjes vremena,... Very Happy

I sta , vi ste tek poceli da radite i daje vam zadatke ovakve? Niste nista naucili, ni sta znaci var ni nista, i odmah dobijate zadatke...
Cisto sumnjam

N1k0l4 ::I sta , vi ste tek poceli da radite i daje vam zadatke ovakve? Niste nista naucili, ni sta znaci var ni nista, i odmah dobijate zadatke...
Cisto sumnjam


pa imali smo 2 casa na kojima ja nisam bio(izbacio me jer sam igrao svena na odmoru pre casa),ali nista vise..pa ne bih lagao sigurno....nisam andjeo ali ne lazem ...

Destructor ::N1k0l4 ::I sta , vi ste tek poceli da radite i daje vam zadatke ovakve? Niste nista naucili, ni sta znaci var ni nista, i odmah dobijate zadatke...
Cisto sumnjam


pa imali smo 2 casa na kojima ja nisam bio(izbacio me jer sam igrao svena na odmoru pre casa),ali nista vise..pa ne bih lagao sigurno....nisam andjeo
ali ne lazem ...



Pa šta reći,ti si mala mustra bečka,igrao si svena,N1k0i4 namuči se da ti pomogne ,a ti ...,stvarno si mala faca.Očekuješ i dalje pomoć, smešak čisto sumnjam da će se neko zaukati da ti rešava zadatke LOL LOL smešak Ziveli

tetka_danuska ::Destructor ::N1k0l4 ::I sta , vi ste tek poceli da radite i daje vam zadatke ovakve? Niste nista naucili, ni sta znaci var ni nista, i odmah dobijate zadatke...
Cisto sumnjam


pa imali smo 2 casa na kojima ja nisam bio(izbacio me jer sam igrao svena na odmoru pre casa),ali nista vise..pa ne bih lagao sigurno....nisam andjeo
ali ne lazem ...




Pa šta reći,ti si mala mustra bečka,igrao si svena,N1k0i4 namuči se da ti pomogne ,a ti ...,stvarno si mala faca.Očekuješ i dalje pomoć, smešak čisto sumnjam da će se neko zaukati da ti rešava zadatke LOL LOL smešak Ziveli


svejedno jednom cu morati da naucim,samo sto ne znam kako Very Happy ali sta ces...snaci cu se pretpostavljam ako niko nece da pomogne..

smešak Ma sažaliće se neko nad tojom mukom Exclamation Exclamation nesekiraj se,a moram priznati dobro sam se nasmejala"majke mi nisam ja kriv", LOL LOL tako beše.Pa ko priznaje pola mu se prašta LOL LOL Nek si ti majci tvojoj živ i zdrav sve će ostalo doći na svoje ,čak i tvoji teški zadaci. Bebee Dol smešak


program zasah;
uses wincrt;
var
kralj, kraljica, lovac, konj, top, pesak:integer;

begin
writeln('Uneti broj kraljeva');
readln(kralj);
writeln('Uneti broj kraljica');
readln(kraljica);
writeln('Broj lovaca');
readln(lovac);
writeln('Broj konja');
readln(konj);
writeln('Broj topova');
readln(top);
writeln('Broj pesaka');
readln(pesak);

writeln(1-kralj,' ', 1-kraljica,' ',2-lovac,' ',2-konj, ' ' , 2-top, ' ' ,8-pesak);

end.



drugi

program zasah;
uses wincrt;
var
n:integer;

begin
writeln('Uneti broj rezova');
readln(n);
if n mod 2=0 then
writeln(sqr(n div 2 +1));
if n mod 2<>0 then
writeln((n div 2 +1)*(n- n div 2 +1));

end.

eventualno izbaci uses wincrt ukoliko ne pokreces pod win-om
drugi zadatak ukratko opis:
Cilj rezova je da u skavkom koraku napravis sto vise delova, to ces raditi tako sto vuces jednu uspravnu jednu vodoravnu crtu, tj. rez.
Znaci u svakom trenutku treba da razlika bude najvise jedan izmedju ta dva
Sa n uspravnih rezova, delis je na n+1 delova, a sa k polozenih delis na k+1 delova, kad pomnozis ta dva dobijes brojdelova
Odnosno, ako je n parno, onda ce biti isti broj vertikalnih i horizontalnih rezova, i racunas po formuli n/2+1 pa na kvadrat, u suprotnom ako je neparno racunas
n/2 (ceo deo) +1 pa se to mnozi sa n-n/2 +1 i dobija se to sto treba....
a za dalje uci!!!!

smešak Evo maleni stigla pomoć,rekoh ja nećeš ostati nerešenih zadataka,moram priznati,ovo je strašno,ja nikada nisam imala veze sa tim , LOL samo sa "medecinom" smešak smešak .radujem se zbog tebe,živi život,neokreći se u nazad,pozdrav Bebee Dol

Ko je trenutno na forumu
 

Ukupno su 1345 korisnika na forumu :: 38 registrovanih, 9 sakrivenih i 1298 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: A.R.Chafee.Jr., Brana01, ccoogg123, CikaKURE, DeerHunter, Dimitrije Paunovic, dragoljub11987, dragon986, ekser222, Georgius, herrDule, hyla, ILGromovnik, ivan1973, Krusarac, Lošmi, Lukaaa, Mercury, milenko crazy north, mrvica78, nebkv, nemkea71, oldtimer, Panter, Parker, Pikac-47, royst33, S2M, slonic_tonic, Srle993, ss10, suton, taz1cl, tmanda323, Volkhov-M, VP6919, Zandar, 79693