Pomoc oko zadataka

1

Pomoc oko zadataka

offline
  • Leaner 
  • Novi MyCity građanin
  • Pridružio: 31 Avg 2011
  • Poruke: 4

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?



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Osvjedodžbeni spretnik munjarstva
  • Pridružio: 04 Jul 2011
  • Poruke: 5424
  • Gde živiš: Beograd

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.



offline
  • Software developer
  • Pridružio: 06 Sep 2005
  • Poruke: 3800
  • Gde živiš: Beograd

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.

offline
  • Osvjedodžbeni spretnik munjarstva
  • Pridružio: 04 Jul 2011
  • Poruke: 5424
  • Gde živiš: Beograd

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.

offline
  • Leaner 
  • Novi MyCity građanin
  • Pridružio: 31 Avg 2011
  • Poruke: 4

@N1k0l4 mislim da kapiram Wink 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..

offline
  • Software developer
  • Pridružio: 06 Sep 2005
  • Poruke: 3800
  • Gde živiš: Beograd

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

offline
  • Leaner 
  • Novi MyCity građanin
  • Pridružio: 31 Avg 2011
  • Poruke: 4

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

offline
  • Osvjedodžbeni spretnik munjarstva
  • Pridružio: 04 Jul 2011
  • Poruke: 5424
  • Gde živiš: Beograd

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

offline
  • Leaner 
  • Novi MyCity građanin
  • Pridružio: 31 Avg 2011
  • Poruke: 4

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 Smile
Juce sam poc'o da ucim pascal Wink

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?

offline
  • Osvjedodžbeni spretnik munjarstva
  • Pridružio: 04 Jul 2011
  • Poruke: 5424
  • Gde živiš: Beograd

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

Ko je trenutno na forumu
 

Ukupno su 589 korisnika na forumu :: 26 registrovanih, 5 sakrivenih i 558 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: Acaks88, cvrle312, djordje92sm, Doca, flash12, ivica976, Korisnik038, Leonardo, ljubo70, mane123, mikrimaus, nemkea71, oddsock, Oluj2.1, Pohovani_00, rsk, sajbervulf, sakota79, sombrero, Srki98, Taso, trajkoni018, Van, vasa.93, vladas87, Zvrk