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

Pomoc oko zadatka u Pascal-u

[es] :: Pascal / Delphi / Kylix :: Pomoc oko zadatka u Pascal-u

[ Pregleda: 4045 | Odgovora: 15 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

amanteo
student,Pupin-Zrenjanin

Član broj: 168025
Poruke: 42
89.216.46.*



Profil

icon Pomoc oko zadatka u Pascal-u11.03.2009. u 13:07 - pre 140 meseci
Tekst zadatka:

Organizovati pomocu FOR I petlje isporuku dzakova deterdzenta od 16,17 i 21 kg kupcu
kome treba tacno 185 kg.Dzakovi se ne smeju cepati.

Molim vas ukoliko neko dobije resenje zadatka da odgovori kodom u Pascal-u,
mora se koristiti FOR I petlja,to je glavni uslov.

Hmmmm....
 
Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2639



+69 Profil

icon Re: Pomoc oko zadatka u Pascal-u11.03.2009. u 14:14 - pre 140 meseci
Ne očekuj da neko reši tvoj domaći zadatak. Ako imaš nekih konkretnih nedoumica sa svojim rešenjem, izloži ih i neko će pokušati da pomogne.
 
Odgovor na temu

Nikolavlasotince
Nikola Stojiljkovic
Vlasotince/Beograd

Član broj: 139391
Poruke: 109
*.ADSL.neobee.net.



+1 Profil

icon Re: Pomoc oko zadatka u Pascal-u14.03.2009. u 23:44 - pre 140 meseci
Poslednjih godinu dana, cim udjen na es, ja vidim novi topic u kome pise: "E, imam domaci, evo vam text zadatka i uradite mi..." Mislim da je i za vas bolje da se potrudite da resite to sami, pa kad zapne negde, da pitate za pomoc... Ili ako ne ide uopste kazi kako si razmisljao i dobices neki hint za resavanje.... A ovako cak i ne verujem da ce neko da pomogne....


P. S. Objasni malo bolje taj zadatak....
 
Odgovor na temu

mr.zhile
Ivan ZHILE
C# developer

Član broj: 185721
Poruke: 249
*.com
Via: [es] mailing liste



+2 Profil

icon Re: Pomoc oko zadatka u Pascal-u15.03.2009. u 12:14 - pre 140 meseci
>


Care ovde ti je mnogo bitnija matematika nego Pascal...ovo se resava za pola
minuta uz matematicku potporu...a matematika se ne uci na formuima...
Mucini glavom

--0016367ed4e16bb30204652746dc
Content-Type: text/html; charset=ISO-8859-5
Content-Transfer-Encoding: quoted-printable

<br><br><div class="gmail_quote">15. 2009. 00.44, Nikolavlasotince <span dir="ltr">&lt;<a href="mailto:[email protected]">[email protected]</a>&gt;</span> /:<br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Poslednjih godinu dana, cim udjen na es, ja vidim novi topic u kome pise: &quot;E, imam domaci, evo vam text zadatka i uradite mi...&quot; Mislim da je i za vas bolje da se potrudite da resite to sami, pa kad zapne negde, da pitate za pomoc... Ili ako ne ide uopste kazi kako si razmisljao i dobices neki hint za resavanje.... A ovako cak i ne verujem da ce neko da pomogne.... <br>

<br>
P. S. Objasni malo bolje taj zadatak....<br><font color="#888888">
<br>
--<br>
<a href="http://www.elitesecurity.org/p2226499" target="_blank">http://www.elitesecurity.org/p...<div></div><div class="h5"><br>
<br>
Prijave/odjave: <a href="http://www.elitesecurity.org/liste" target="_blank">http://www.elitesecurity.org/liste</a><br>
<br>
Ne menjajte sledece dve linije ukoliko odgovarate putem emaila!<br>
esauth:357710:6765ebf8d4ffc2da29ce95a4177bc262<br>
Don't worry be happy
 
Odgovor na temu

amanteo
student,Pupin-Zrenjanin

Član broj: 168025
Poruke: 42
93.86.85.*



Profil

icon Re: Pomoc oko zadatka u Pascal-u24.03.2009. u 13:43 - pre 140 meseci
Hvala na kritikama,prihvatio sam zamerke i potrudio se da bih dosao do sledeceg:

Code:

program ForI16;
 
{dodela ulaznih vrednosti konstantama}

const
a=16;
b=17;
c=21;
s:integer=185;

var
i,j,sumaC,sumaB,
ostatak1,ostatak2,
Na,Nb,Nc:integer;  {Na,Nb i Nc broj ponavljanja a,b i c}

begin
 Na:=0;
 Nb:=0;
 Nc:=0;
 
{ispitivanje da li je S deljivo sa nekim od kandidata}
 if s mod a = 0 then
 Na:=s div a else
   if s mod b = 0 then
   Nb:=s div b else
     if s mod c = 0 then
     Nc:=s div c
         else

           begin
             for i:=(s div c) downto 0 do   {max broj vrednosti c unutar sume S}
             begin
             sumaC:=i*c;
             ostatak1:=s-sumaC;        {ostatak do S}
               if ostatak1 mod a = 0 then
               Na:=ostatak1 div a else
                 if ostatak1 mod b = 0 then
                 Nb:=ostatak1 div b else
                  begin
                   for j:= (ostatak1 div b) downto 0 do
                   sumaB:=j*b;
                   ostatak2:=ostatak1-sumaB; {ostatak do ostatak1}
                    if ostatak2 mod a = 0 then
                    Na:=ostatak2 div a;
                    Nb:=j;
                    Nc:=i;
                  end;
               end;
            end;
 writeln('Na=',Na);
 writeln('Nb=',Nb);
 writeln('Nc=',Nc);
 readln
end.

Mislim da sam dobro postavio algoritam ali resenje nakon izvrsenja programa nije u redu i glasi:
Na=5 Nb=0 Nc=0.
Nadam se da mi mozete pomoci oko nalazenja greske,ja se ubih trazeci je vec 3 nedelje,
izvinjavam se na nekorektnosti zbog neiskustva...

 
Odgovor na temu

djoka_l
Beograd

Član broj: 56075
Poruke: 2891

Jabber: djoka_l


+1197 Profil

icon Re: Pomoc oko zadatka u Pascal-u24.03.2009. u 14:18 - pre 140 meseci
Baš si zakomplikovao. Pošto je prošlo 20 godina od kada sam poslednji put pisao u Paskalu, evo ga rešenje u C:

Code:

#include <stdio.h>

int main() {

  int i,j,k;
  int a=16;
  int  b=17;
  int c=21;
  int s=185;

  for(i=0; i<=s/c; i++)
    for(j=0; j<=s/b; j++)
      for(k=0; k<=s/a; k++)
        if( (a*k+b*j+c*i) == s ) printf("Rezultat: 16*%d + 17*%d + 21*%d = 185\n", k,j,i);
}

i rezultat:
Code:

Rezultat: 16*2 + 17*9 + 21*0 = 185
Rezultat: 16*6 + 17*4 + 21*1 = 185
Rezultat: 16*1 + 17*5 + 21*4 = 185
Rezultat: 16*5 + 17*0 + 21*5 = 185
Rezultat: 16*0 + 17*1 + 21*8 = 185


U for petljama, deljenje je celobrojno jer su varijable deklarisane kao celobrojne. Posle prvog uspešnog if-a program može i da se završi, ukoliko nisu potrebna sva rešenja.

Ako ti je jasan program, možeš da ga "prepevaš" na Pascal.
 
Odgovor na temu

amanteo
student,Pupin-Zrenjanin

Član broj: 168025
Poruke: 42
93.86.85.*



Profil

icon Re: Pomoc oko zadatka u Pascal-u25.03.2009. u 06:47 - pre 140 meseci
Auuuhh covece,pokricu se zvucnicima i necu se pojavljivati na forumu duuuugo!!!
Hvala ti puno Djole,moram reci da mi je takvo resenje prvo palo na pamet, ali
mada vezbam Paskal vec nekoliko meseci i trudim se i sa algoritmima,
ocigledno nisam dobro shvatio mogucnosti sa for I petljom,nemam sigurnosti a jos uvek
ni dovoljno zivaca.Mislio sam da...ma mislio sam ja...!
Kakva jednostavnost:
Code:

program forI16;

const
a=16;
b=17;
c=21;
s=185;

var
i,j,k:integer;

begin
for i:=0 to s div c do
 for j:=0 to s div b do
   for k:=0 to s div a do
     begin
      if (i*c+j*b+k*c) = s then
        begin
        writeln('Potrebna je sledeca kolicina dzakova :');
        writeln('a: ',k,' b: ',j,' c: ',i);
        readln
        end;
     end;
end.               

Hvala jos jednom neizmerno,samo,sad sam potpuno razocaran u sebe.
 
Odgovor na temu

amanteo
student,Pupin-Zrenjanin

Član broj: 168025
Poruke: 42
77.46.188.*



Profil

icon Re: Pomoc oko zadatka u Pascal-u25.03.2009. u 06:57 - pre 140 meseci
Pardon,hvala naravno i svima koji mi nisu pomogli,sad znam i zasto.
Zbog jednakog IQ sa George Bush-om!
 
Odgovor na temu

devetkamp
Dusan Mijajlovic
PMF- Nis, MATEMATIKA - I godina
Prokuplje

Član broj: 293179
Poruke: 113
*.sc.ni.ac.rs.



+1 Profil

icon Re: Pomoc oko zadatka u Pascal-u09.03.2013. u 15:19 - pre 92 meseci
Jel moze pomoc oko zadatka, u pitanju je pascal:
Odstampati sve delioce unetog broja n.
Unapred zahvalan.
 
Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2639



+69 Profil

icon Re: Pomoc oko zadatka u Pascal-u09.03.2013. u 17:18 - pre 92 meseci
> Jel moze pomoc oko zadatka, u pitanju je pascal: Odstampati sve delioce unetog broja n. Unapred zahvalan.

Svrha domaćih zadataka je da sam savladaš neko gradivo, nemoj samo tražiti gotovo rešenje, potrudi se malo. Kreni da radiš pa pitaj ako ti u nekom delu zapne.
 
Odgovor na temu

drvlada75
Prokuplje

Član broj: 153703
Poruke: 1201
*.dynamic.isp.telekom.rs.



+33 Profil

icon Re: Pomoc oko zadatka u Pascal-u09.03.2013. u 17:56 - pre 92 meseci
Evo resenja, mada i ja mislim kao i @savkic
Sa druge strane, da li je zadatak bas tako formulisan?

PROGRAM DELIOCI;
VAR
c,br:LONGINT;
BEGIN

WriteLn('Unesite broj');

Readln (br);

FOR c:=1 TO br DO
BEGIN
IF (br MOD c)=0 THEN
BEGIN
writeln (c);
END;

END;
END.

 
Odgovor na temu

devetkamp
Dusan Mijajlovic
PMF- Nis, MATEMATIKA - I godina
Prokuplje

Član broj: 293179
Poruke: 113
*.sc.ni.ac.rs.



+1 Profil

icon Re: Pomoc oko zadatka u Pascal-u10.03.2013. u 10:34 - pre 92 meseci
Ok. tako glasi zadatak, i koliko vidim to je tacno resenje. Probao sam i sam da radim, medjutim, nije mi islo od ruke. Ja sam samo ispitivao da li je neki broj delitelj broja n, ali nikako nisam znao kako da ih odstampam. Programiranje mi ne ide od ruke, studiram matematiku, i ovo je jedini ispit koji odstupa zapravo od matematike. Vidim da ovo resenje radi, ali sam ne bih dosao to toga. Ne razumem ni u cemu je fora. Zasto 3 begina, kako da prepoznam sta treba da stavim? ako moze neki savet ili slicno, bio bih zahvalan?
 
Odgovor na temu

devetkamp
Dusan Mijajlovic
PMF- Nis, MATEMATIKA - I godina
Prokuplje

Član broj: 293179
Poruke: 113
*.sc.ni.ac.rs.



+1 Profil

icon Re: Pomoc oko zadatka u Pascal-u10.03.2013. u 10:56 - pre 92 meseci
Evo jos jednog problema:
2. Odstampati tablicu mnozenja do 10.

program tablica;
var i,j:integer
begin

for i:=1 to 10 do
for j:=1 to 10 do

writeln('i*j=' , i*j);
end.

Sta ne valja?
 
Odgovor na temu

Lawd

Član broj: 312064
Poruke: 20
*.dynamic.isp.telekom.rs.



+1 Profil

icon Re: Pomoc oko zadatka u Pascal-u10.03.2013. u 12:31 - pre 92 meseci
Moderatori, molim, obrišite ovaj post.
 
Odgovor na temu

drvlada75
Prokuplje

Član broj: 153703
Poruke: 1201
*.dynamic.isp.telekom.rs.



+33 Profil

icon Re: Pomoc oko zadatka u Pascal-u10.03.2013. u 12:43 - pre 92 meseci
Auh, nemoguce da vam bas nista nisu pokazali na vezbama.
Prvi zadatak mora da ima tri Begina zato sto se prvi stavlja na pocetku samog programa, drugi ti je u okviru FOR petlje i treci je u okviru IF naredbe.
Sto se tice drugog zadatka, odmah mozes pri kompajliranju da procitas sta ne valja.
Na kraju drugog reda nisi stavio ; zatim For petlju nisi dobro uradio i na kraju writeln nece moci tako da radi.

program tablica;
var i,j:integer;
begin
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
writeln(i,'*',j,'=',i*j);
end;
end;
end.
 
Odgovor na temu

Rapaic Rajko
Bgd

Član broj: 4105
Poruke: 790
..ppoe.dyn.broadband.blic.net.



+61 Profil

icon Re: Pomoc oko zadatka u Pascal-u10.03.2013. u 19:39 - pre 91 meseci
Hmmm...

Za gornji primer begin-end za for petlje nije potreban ;). Zasto? Zato sto je unutar petlji samo JEDNA naredba. A kad MORA begin, i sta uopste znaci ta rec? Znaci "pocetak sekvence" a end oznacava "kraj sekvence". Sta je sad pa sekvenca - to je slozena naredba, odnosno naredba koja se sastoji od vise naredbi. Filozofija pascala je "sve je jedna naredba, odnosno sekvenca"; zato i program(body) pocinje i zavrsava sa begin...end; i on je nista drugo nego slozena naredba :).

Znam da je malo komplikovano za pocetnika, medjutim ovo je vazno razumeti, u pitanju je bitan koncept na kojem pociva struktuirano programiranje. Evo primer koda sa detaljnim tumacenjem:

Code:

  for i:=1 to 10 do
    for j:=1 to 10 do
      writeln('i*j=' , i*j);


Posmatrajmo prvo donju for petlju (po j), unutar nje se nalazi samo jedna komanda - writeln(). Zato unutar te petlje nije potreban begin-end par. Posmatrajmo sada gornju for petlju (po i), unutar nje je takodje samo jedna naredba, unutrasnja for petlja koju smo upravo gledali; zato ni za nju ne treba begin-end par. Obratiti paznju da je za spoljasnju petlju naredba writeln potpuno nevidljiva ;).

A pogledajmo sad ovako nesto:

Code:

  for i:=1 to 10 do
    for j:=1 to 10 do
    begin
      writeln(j=', j);
      writeln('i*j=' , i*j);
    end;


Sada u unutrasnjoj petlji imamo DVE naredbe radvojene semicolonom (;); jasno je da ih moramo staviti unutar begin-end para, jer to je upravo sekvenca. Ali za spoljasnju petlju, i dalje se vidi samo unutrasnja for petlja, dakle i dalje samo jedna naredba.

I, finale:

Code:

  for i:=1 to 10 do
  begin
    writeln(i=', i);
    for j:=1 to 10 do
    begin
      writeln(j=', j);
      writeln('i*j=' , i*j);
    end;
  end;


Za ovo (verujem) vec ni ne treba komentar :).

Pozz

P.S. Lakse je pratiti diskusiju ako se koristi tag code za source, pogledati s leve strane editora za poruke.
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Pomoc oko zadatka u Pascal-u

[ Pregleda: 4045 | Odgovora: 15 ] > FB > Twit

Postavi temu Odgovori

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