MyCity » Pascal » Rezultat i ostatak djeljenja 2 prirodna broja

Rezultat i ostatak djeljenja 2 prirodna broja

Napisano na dan: 22.12.2005

Rezultat i ostatak djeljenja 2 prirodna broja
Sledeća strana Pagination

Idi na vrh

Poslao: 22 Dec 2005 21:53
Idi na vrh
offline
  • Pridružio: 22 Dec 2005
  • Poruke: 1

imama problem sa pisanjem programa za rezultat i ostatak djeljenja 2 prirodna broja.ko zna nek posalje na mail [Link mogu videti samo ulogovani korisnici]



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
Poslao: 22 Dec 2005 23:06
Idi na vrh
offline
  • Strog  Male
  • Stručni saradnik
    Web programiranje
  • Bojan Kopanja
  • Web & Mobile developer @ ZeusSoftware
  • Pridružio: 26 Jul 2003
  • Poruke: 2597
  • Gde živiš: Stara Pazova

Postavi ovde detaljniji prikaz problema sa nekim svojim pokusajima resavanja istog i onda tek ocekuj neki odgovor koji mozes za nesto da upotrebis... Ovako sumnjam da ces imati puno uspeha.



Poslao: 23 Dec 2005 00:25
Idi na vrh
offline
  • Emil Beli
  • Pridružio: 03 Jan 2005
  • Poruke: 2990
  • Gde živiš: Beograd

procedure TForm1.Button1Click(Sender:TObject);
var
nA, nB :Double
nRezultat,nOstatak :double;
iGlavnica: integer;
begin
//nekako napunis varijable nA i nB
nA:=150.201;
nB:=8.726;
nRezultat := nA / nB;
iGlavnica := Trunc (nRezultat);
nOstatak := Frac(nRezultat);

end;

Poslao: 08 Mar 2006 17:01
Idi na vrh
offline
  • Pridružio: 10 Mar 2005
  • Poruke: 222

majmunnnnn ::imama problem sa pisanjem programa za rezultat i ostatak djeljenja 2 prirodna broja.ko zna nek posalje na mail [Link mogu videti samo ulogovani korisnici]

program nesto; var a,b:real; begin         a:=5 div 3;         b:=5 mod 3;         writeln(a);         writeln(b);         readln; end.

U outputu će pisati

1.00000000000000E+0000
2.00000000000000E+0000

pošto je 5/3 = 1 i ostatak 2...

Poslao: 08 Mar 2006 18:30
Idi na vrh
offline
  • Software developer
  • Pridružio: 06 Sep 2005
  • Poruke: 3800
  • Gde živiš: Beograd

hoce da kaze da ti div daje rezultat pri deljenju a mod ostatak pri deljenju 2 broja.
Ako hoces neka dva broja da se unesu pa njih da podelis, onda samo ubacis
read(prvi); read(drugi); a:=prvi div drugi; b:=prvi mod drugi;

Poslao: 08 Mar 2006 18:53
Idi na vrh
offline
  • Emil Beli
  • Pridružio: 03 Jan 2005
  • Poruke: 2990
  • Gde živiš: Beograd

DIV i MOD su funkcije za rad sa INTEGERIMA!

Div deli 2 integera i daje celobrojnu vrednost.
MOD je deljenje 2 integera i daje samo ostatak

Poslao: 08 Mar 2006 19:42
Idi na vrh
offline
  • Strog  Male
  • Stručni saradnik
    Web programiranje
  • Bojan Kopanja
  • Web & Mobile developer @ ZeusSoftware
  • Pridružio: 26 Jul 2003
  • Poruke: 2597
  • Gde živiš: Stara Pazova

Tako je, a još da napomenemo da se deljenje realnih brojeva označava sa "/", čisto ako i to zatreba Wink.

Poslao: 09 Mar 2006 12:21
Idi na vrh
offline
  • Pridružio: 10 Mar 2005
  • Poruke: 222

beli0135 ::DIV i MOD su funkcije za rad sa INTEGERIMA!

Div deli 2 integera i daje celobrojnu vrednost.
MOD je deljenje 2 integera i daje samo ostatak

Jest' u pravu si. Dok to sve izvucem iz malog mozga... Very Happy

Samo treba malo promeniti kod:

readln(a); readln(b); c:=a/b; writeln('Rezultat deljenja brojeva ',a,' i ',b,' je ', trunc(c),' sa ostatkom ',frac(c));

Ovde moze malo da se jos doteruje ispis, ali to je to...

MyCity » Pascal » Rezultat i ostatak djeljenja 2 prirodna broja

Ko je trenutno na forumu
 

Ukupno su 2976 korisnika na forumu :: 104 registrovanih, 10 sakrivenih i 2862 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 6018 - dana 19 Dec 2025 13:41

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 015, 357magnum, acatomic, Andrija357, Asteker, bbelic, bojan1234, bojcistv, Boris BM, Botovac, chichabg, d.arsenal321, DeerHunter, Despot Đurađ, djboj, Dorijan Grej, Dovla 1980, draganl, dusan.l, dzoni19, Džekson, Ercomero, FOX, gobrad, Goran_, Great White, GrobarPovratak, Joint Chief, Jose, Jovan1983, kaisarevic1, Kajzer Soze, Kazablankasrb, Kenanjoz, kikisp, Koce, krca73, Levi, Lucije Kvint, ludiagresivan, Medojed, mercedesamg, Mexaleroo, miki kv, milenko crazy north, MILO-VAN, Milometer, milos.cbr, miltonhewitt6, Miškić, moldway, Mrav Obrad, museum, Mzee, nekdo, nesa1962, neutrino, nevjerna beba, nisamBot, Nole, novator, ObelixSRB, opt1, Orc, Panter, pceklic, pedja.st, Pekman, Profesor_018, radoznao, raketaš, RJ, royst33, S.Palestinac, sajorg, Sceadugenga, shaja1, Singidunumac, Sinisa76, Sone1983, Srle993, Srna, stagezin, stegonosa, stevo svinja, superwhy, tacija, tamno.nebo, v0idmp3, Velizar Laro, veljkovicdani, vensla, Volkhov-M, vuksa72, VX1, Yekaterinburg, Zastava, zemljanin, Zemunikola, zeo, zil10, zixo, zoran77, zubri