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

Pomoc hitno potrebna!

[es] :: Pascal / Delphi / Kylix :: Pomoc hitno potrebna!

[ Pregleda: 2583 | Odgovora: 10 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

kid-rock
Deni Okanovic
asd

Član broj: 79243
Poruke: 10
*.dlp494.bih.net.ba.



Profil

icon Pomoc hitno potrebna!28.12.2005. u 19:55 - pre 222 meseci
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!
 
Odgovor na temu

Passwd

Član broj: 54624
Poruke: 640
*.adsl.net.t-com.hr.



Profil

icon Re: Pomoc hitno potrebna!28.12.2005. u 20:06 - pre 222 meseci
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.

 
Odgovor na temu

kid-rock
Deni Okanovic
asd

Član broj: 79243
Poruke: 10
*.dlp494.bih.net.ba.



Profil

icon Re: Pomoc hitno potrebna!28.12.2005. u 20:27 - pre 222 meseci
ne radi....
 
Odgovor na temu

kid-rock
Deni Okanovic
asd

Član broj: 79243
Poruke: 10
*.dlp494.bih.net.ba.



Profil

icon Re: Pomoc hitno potrebna!28.12.2005. u 20:29 - pre 222 meseci
Pise : Error 8:String constant exceeds line.
 
Odgovor na temu

Passwd

Član broj: 54624
Poruke: 640
*.adsl.net.t-com.hr.



Profil

icon Re: Pomoc hitno potrebna!28.12.2005. u 20:34 - pre 222 meseci
Ako nisi spremio moj kod vec si prekucavao, vjerovatno si negdje izostavio znak ; na kraju reda gdje je potreban..
 
Odgovor na temu

Relaja
Relja Petrovic
Krusevac

Član broj: 48066
Poruke: 111
*.smin.sezampro.yu.

ICQ: 393683437


Profil

icon Re: Pomoc hitno potrebna!28.12.2005. u 20:35 - pre 222 meseci
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]
Ljubav je kad ja prdnem a njoj ne smrdi.
 
Odgovor na temu

kid-rock
Deni Okanovic
asd

Član broj: 79243
Poruke: 10
*.dlp494.bih.net.ba.



Profil

icon Re: Pomoc hitno potrebna!28.12.2005. u 20:50 - pre 222 meseci
Provjeravao sam i ne mogu naci gresku
 
Odgovor na temu

Passwd

Član broj: 54624
Poruke: 640
*.adsl.net.t-com.hr.



Profil

icon Re: Pomoc hitno potrebna!28.12.2005. u 20:52 - pre 222 meseci
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..
 
Odgovor na temu

kid-rock
Deni Okanovic
asd

Član broj: 79243
Poruke: 10
*.dlp494.bih.net.ba.



Profil

icon Re: Pomoc hitno potrebna!28.12.2005. u 21:28 - pre 222 meseci
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!
 
Odgovor na temu

Passwd

Član broj: 54624
Poruke: 640
*.adsl.net.t-com.hr.



Profil

icon Re: Pomoc hitno potrebna!28.12.2005. u 22:22 - pre 222 meseci
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*)

 
Odgovor na temu

kid-rock
Deni Okanovic
asd

Član broj: 79243
Poruke: 10
*.dlp340.bih.net.ba.



Profil

icon Re: Pomoc hitno potrebna!29.12.2005. u 09:12 - pre 222 meseci
Svaka cast majstore!!!
Naabolji si!
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Pomoc hitno potrebna!

[ Pregleda: 2583 | Odgovora: 10 ] > FB > Twit

Postavi temu Odgovori

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