[ kid-rock @ 28.12.2005. 19:55 ] @
Vidio sam da ovdje ljudi znaju mnogo o programiranju(svaka cast)pa bi zamolio da,ako netko zna,rijesi ovaj zadatak,jer mi nije jasan.
Ovako glasi:
Izracunaj kolicnik i ostatak cjelobrojnog dijeljenja dva pozitivna cijela broja koristeci operacije sabiranja i oduzimanje.



Unaprjed hvala!
[ Passwd @ 28.12.2005. 20:06 ] @
Kako volim rjesavat ove domace

Code:

program kolicnikZAD;
uses crt;
var br1,br2,kolicnik:integer;
begin
clrscr;

writeln('Upisi prvi broj:');  readln(br1);
writeln('Upisi drugi broj:'); readln(br2);

kolicnik:=0;
while br2<=br1 do
begin
inc(kolicnik);
br1:=br1-br2;
end;

writeln('Kolicnik: ',kolicnik);
writeln('Ostatak: ',br1);
readln;

end.

[ kid-rock @ 28.12.2005. 20:27 ] @
ne radi....
[ kid-rock @ 28.12.2005. 20:29 ] @
Pise : Error 8:String constant exceeds line.
[ Passwd @ 28.12.2005. 20:34 ] @
Ako nisi spremio moj kod vec si prekucavao, vjerovatno si negdje izostavio znak ; na kraju reda gdje je potreban..
[ Relaja @ 28.12.2005. 20:35 ] @
moguce ,moguce , ako si pokusao da ga kompajliras u 'nePascal' compileru:) ,ali ako si pokusao u TurboPascalu onda si ti nesto slucajno dopisao,sto nije trebalo.

[Ovu poruku je menjao Relaja dana 28.12.2005. u 21:36 GMT+1]
[ kid-rock @ 28.12.2005. 20:50 ] @
Provjeravao sam i ne mogu naci gresku
[ Passwd @ 28.12.2005. 20:52 ] @
Onda pokusavas kompajlirati u javi

skini Turbo Pacal skopiraj moj kod u notepad, spremi taj fajl negdje i onda desni klik na taj fajl pa open with turbo pascal..
[ kid-rock @ 28.12.2005. 21:28 ] @
Hvala ti covjece,radi!!!
Nemas pojma koliko sam ti zahvalan!Samo....neugodno me pitati.....
Ja sam skroz pocetnik a profesor ce me vjerovatno pitati zasto sluzi koja od navedenih naredbu,pa molim te ako mozes objasni mi to.Pleaaaaaaaaaaase!
Do groba sam ti zahvalan!
Hvala jos jednom!
[ Passwd @ 28.12.2005. 22:22 ] @
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*)

[ kid-rock @ 29.12.2005. 09:12 ] @
Svaka cast majstore!!!
Naabolji si!