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

Paskal

[es] :: Pascal / Delphi / Kylix :: Paskal

[ Pregleda: 2730 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Edo Edica
Edo Perocevic
Zvab Zgvab

Član broj: 3157
Poruke: 1
*.net.hinet.hr



Profil

icon Paskal30.03.2002. u 23:28 - pre 267 meseci
Neka netko rjesi problem. Moram podjelit dva broja, dobiti rjesenje i ostatak, a bez da upotrebim MOD ili DIV ?

Edica
 
Odgovor na temu

Riste Pejov
Team Leader/Senior Software Developer @
Ein-Sof ltd Skopje
Skopje, Macedonia

Član broj: 128
Poruke: 571
212.110.78.*

Jabber: richie@bagra.net.mk
ICQ: 154236769
Sajt: riste.softver.org.mk


Profil

icon Re: Paskal31.03.2002. u 12:13 - pre 267 meseci
Code:

procedure podeli(prvi,drugi:integer;var resenje,ostatak:integer);
var
temp:integer;
begin
resenje:=0;
temp:=prvi;
while (temp-drugi)>0 do
begin
temp:=temp-drugi
inc(resenje);
end;
ostatak:=temp;
end;


kod radi sledece:

prvi mod drugi = ostatak
prvi div drugi = resenje
People who think they know everything tend to irritate those of us who do.
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Paskal

[ Pregleda: 2730 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

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