Pomoc oko zadataka

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Trebam da uradim sledecih 5 zadataka:
1. Napisite program koji ucitava tri cela broja i prikaziju njihov zbir.

2. Napisite program koji ucitava dva cela broja i prikaziju njihov proizvod.

3.Napisite program koji ucitava duzinu, sirinu i dubinu pravougaonog bazen za plivanje, te izravunava i prikazuje njegovu zapreminu..

4. x DIV y izracunava na koliko puta y ide u x, na primer 7 DIV 3 je 2.
x MOD y izracunava ostatak od deljenja na primer 7 MOD 3 je 1.
Napisite program koji ucitava dva cela broja Broj1 i Broj2 i pomocu operatora DIV i MOD izracunava i prikazuje celobrojni rezultat deljenja BROJ1 kroz BROJ2 i njegov ostatak. Sve sto program prikazuje na ekranu treba da bude razumljivo potpuno neupucenom korisniku.

5.Napisite program koji ucitava neki celobrojni iznos novca, na primer 78$(78 dolara), i prikazuje minimalan broj papirnih novcanica od 20$,10$,5$ i metalnih moneta 2$ i 1$, koje zajedno cine ucitani iznos.

Na primer, iznos 78$ bi kao rezultat trebao da da kombunaciju: 3 novcanice od dvadeset dolara, 1 novcanica od 10 dolara, 1 novcanica od 5 dolara, 1 metalna moneta od dva dolara i 1 moneta od dolara..

Moneta je metalna funta koliko sam shvatio, ali nemam znak za funtu na tastaturi tako da sam prebacio u dolare.



1. RESENJE
2.RESENJE
3.RESNJE
Da li su prva tri zadatka tacna?
Da li neko moze da mi pomogne oko resavanje cetvrtog i petog zadatka?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Prva tri su dobra, četvrti:
program Kalkulator;   {$APPTYPE CONSOLE}   uses   SysUtils;   Var    Broj1, Broj2, ostatak, kolicnik : Integer ; begin   Write ('Molim, upisite ceo broj: ');   Readln (Broj1);   Write ('Molim, upisite jos jedan ceo broj: ');   Readln (Broj2);   kolicnik := Broj1 DIV Broj2; ostatak:=Broj1 MOD Broj2;   Writeln (' Celebrojni količnik je: ', kolicnik, ' , a ostatak ', ostatak);   Readln   end.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Leaner ::
Da li su rva tri zadatka tacna?

Trebalo bi da jesu. Semanticki gledano, sintaksu nisam proveravao jer nisam koristio pascal 5-6 godina.

Leaner ::
Da li neko moze da mi pomogne oko resavanje cetvrtog i petog zadatka?

Cetvrti zadatak:
Zadatak 4 ::
x DIV y izracunava na koliko puta y ide u x, na primer 7 DIV 3 je 2.
x MOD y izracunava ostatak od deljenja na primer 7 MOD 3 je 1.
Napisite program koji ucitava dva cela broja Broj1 i Broj2 i pomocu operatora DIV i MOD izracunava i prikazuje celobrojni rezultat deljenja BROJ1 kroz BROJ2 i njegov ostatak. Sve sto program prikazuje na ekranu treba da bude razumljivo potpuno neupucenom korisniku.

Dakle, div ti daje rezultat pri deljenju, mod ostatak pri deljenju.
To ti je jasno?
Ovo sto treba da uradis je da uzmes definises 4 promenljive
Broj1, broj2, rezultat, ostatak.
Ucitas broj1
Ucitas broj2
Rezultat := broj1 div broj2;
ostatak := broj1 mod broj2;
onda das jedan writeln('Rezultat deljenja broja ', broj1 ,' i broja ', broj2 je =', rezultat)
slicno i za ostatak napises samo stavis ostatak.

Zadatak ::
.Napisite program koji ucitava neki celobrojni iznos novca, na primer 78$(78 dolara), i prikazuje minimalan broj papirnih novcanica od 20$,10$,5$ i metalnih moneta 2$ i 1$, koje zajedno cine ucitani iznos.

Na primer, iznos 78$ bi kao rezultat trebao da da kombunaciju: 3 novcanice od dvadeset dolara, 1 novcanica od 10 dolara, 1 novcanica od 5 dolara, 1 metalna moneta od dva dolara i 1 moneta od dolara..

Pretpostavljam da ne moras da unosis $ ili funtu ili sta vec, nego samo integer jedan, ovo je vise slikovito da se objasni o cemu se radi.
Ako ti treba da kaze koliko kojih novcanica treba, onda imas pet promenljivih oblika
odDvadeset, odDeset, odPet,.....
ideja je da krenes od najvece , pustis kroz petlju, i oduzimas 20 dokle moze, dok ne ode u negativan rezulatt ili 0. Svaki put kad oduzmes povecas brojac potrebnih za 1. U ovom slucaju, promenljivu odDvadeset povecas za 1.
To ponovis i za ostale novcanice.

To je algoritam, ti ga implementiraj.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

program Kalkulator; {$APPTYPE CONSOLE} uses   SysUtils; Var    suma, ostatak, papir20,papir10,papir5,metalne2,metalne1 : Integer ; begin   Write ('Unesite sumu:');   Readln (suma);   papir20 := suma DIV 20; ostatak:=suma MOD 20; papir10:=ostatak DIV 10; ostatak:=ostatak MOD 10; papir5:=ostatak DIV 5; ostatak:=ostatak MOD 5; metalne2:=ostatak DIV 2; ostatak:=ostatak MOD 2; metalne1:=ostatak;   Writeln ('Novcanica od 20 = ',papir20);   Writeln ('Novcanica od 10 = ',papir10);   Writeln ('Novcanica od 5 = ',papir5);   Writeln ('Novcica od 2 = ',metalne2);   Writeln ('Novcica od 1 = ',metalne1);   Readln   end.
A evo i 5. zadatka. Nisam radio kroz petlju, posto vidim da to otprilike niste radili. Ali bi kroz petlju bilo malo elegantnije.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

@N1k0l4 mislim da kapiram znaci ukoliko nema ostatka on nece pokazati nista a ukoliko ima npr kod
42:10 ostatak ce biti dva a kolicnik 4 zato sto 10 moze maximum 4 puta da stane u 42 tj. 40...
Sad cu jos malo da pogledam vase kodove, necu da zurim sa ucenjem hocu temeljno da naucim sve ovo da bi mi u nastavku ucenja pascala bilo lakse..

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Ako nema ostatka, pokazace 0.
40 mod 10 = 0
Jer je 40:10 = 4 , a ostatak je 0.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Razumem to Nikola
Da li DIV, MOD uvek "rade" isto tj. daju rezultat i ostatak pri nekom deljenju?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Da. A da ti ne pokazuje da je nešto 0, koristi if petlju, ako je jednako 0, da onda ne ispisuje...

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Napisano: 31 Avg 2011 14:07

ivance95 ::Da. A da ti ne pokazuje da je nešto 0, koristi if petlju, ako je jednako 0, da onda ne ispisuje...
Nisam jos uvek stigao do toga
Juce sam poc'o da ucim pascal

Dopuna: 31 Avg 2011 14:22

Ispravite me ako gresim, ali ja shvatam da je "Var" tj. sve sto upisem tu tj. ispod nje ono sto taj program sadrzi?
BTW "Var" je skracenica za varijablu?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Da, sve promenjive moras prethodno definisati sa var, a tip dodeljuješ po potrebi: integer, real...