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 1103 korisnika na forumu :: 102 registrovanih, 8 sakrivenih i 993 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 20624 - dana 04 Apr 2026 04:18

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: AleksSE, Andrija357, Apok, Areal84, Atomski čoban, bigfoot, bobpp, bojan_t, bokisha253, boromir, CHARLIE JA., Cicumile, Colt D, crazydkure, Crazzer, crnogorac, cuculo, cyprus, debeli, dejan1972, desmeki, Dioniss, djukapfc, dok80, draganl, DrNeoCortex, dushkomkd, esx66, Frunze, g0xy, gajasvi, galerija, gasha, gregorxix, Hemi, igorkozar83, ivan1973, IvanM1984, janbo, jon istvan, kihot, KimiMR, kinderpingvin, Kobrim, kreker, Leonov, lima, ljuba.b, loon123, LostInSpaceandTime, Lubenica303, MadMike, maiden6657, Makarid, mercedesamg, Miha79, milos97, miodrag, mirosl, Mirsen, mist-mist, mitja123, MKK7, Mzee, nekdo, Nemanja.M, nisamBot, Pero Petković, perunnurep, Pikac-47, PlayerOne, PMsnow, read-only, royst33, sale76, saputnik plavetnila, Sirius, Siti2, siwoti, snikolic, stegonosa, steksi, Stoilkovic, suputboy, tecataki, Teodor60, Toper, Tribal, tuf, UAV operator, vathra, Veless, vensla, Visionary, VJ, vukdra, Wehicle, zeka013, zil10, zile.obr, 2001, 800077