Code:
program kolicnikZAD;
(*pocetak programa i kolicnikZAD je naziv programa*)
uses crt;
(*koristimo turbo pascal unit crt, potreban da bi mogao koristiti neke funkcije kao na primjer u nasem slucaju clrscr *)
var br1,br2,kolicnik:integer;
(*tu deklariras varijable, znaci:br1,br2,kolicnik su tipa integer, a integer su cjelobrojni brojevi*)
begin
(*pocinje glavni dio programa*)
clrscr;
(*brisemo ekran da bude cist*)
writeln('Upisi prvi broj:'); readln(br1);
(*writeln ispisuje na ekran ono sto je izmedju '', znaci ispisuje Upisi prvi broj, a readln(br1) ucitava broj sa tipkovnice koji upises, a taj br1 smo gore deklarirali u VAR br1:integer...*)
writeln('Upisi drugi broj:'); readln(br2);
(*isto kao i gore samo sto ucitava br2*)
kolicnik:=0;
(*kolicnik stavljamo da je jednak nuli*)
while br2<=br1 do
(sve dok je br2 manji ili jednak br1 radi slijedece, izmedju BEGIN i END)
begin
inc(kolicnik);
(*povecava vrijednost kolicnika za 1, kao da si napisao kolicnik:=kolicnik+1;*)
br1:=br1-br2;
(*ovo vidis sta radi..uglavnom oduzimamo od broja1 broj2 sve dok je broj2 manji od broja1, a dok postane veci izlazimo iz while petlje i u br1 nam ostaje ostatak*)
end;
writeln('Kolicnik: ',kolicnik);
(*ispisuje Kolicnik: i vrijednos kolicnika*)
writeln('Ostatak: ',br1);
(*Ispisuje Ostatak: i vrijednos ostatka, odnosno ono sto nam je ostalo u br1*)
readln;
(*ceka da stisnes neki znak sa tipkovnice, jer da nema ovog reda rezultat nebi vidio jer bi se program odmah zatvorio, makni ovaj red pa ces vidjet st ce bit*)
end.
(*kraj programa*)