Procedure

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Da li neko moze da mi pomogne da napisem proceduru u paskalu za racunanje povrsine trougla po formuli P=a*h/2.
Hvala unapred!

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

koliko se secam, za procedure u paskalu bilo bi ovako nesto :
procedure povrsina(a: Integer; h: Integer) begin Writeln((a*h) div 2); end;

Pozivas je sa npr povrsina(2,5);

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

E bas ti hvala! Puno si mi pomogao!
Izvini sto te mucim,ali treba mi pomoc oko jos jednog zadatka u paskalu...

Napisati program koji za unijeti dekadni broj ispisuje njemu odgovarajuci binarni broj!

Treba mi ideja kako da rjesim to u petlji i kako da sacuvam taj izracunati binarni broj,tj da ga ispisem(problem mi je to sto se binarni brojevi citaju odozdo na gore,posle dijeljenja dekadnog brojasa 2).
Jos jednom hvala za onaj zadatak....
Bio bih ti vrlo zahvalan kad bi mi dao neku ideju i za ovaj! Pozz

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

koristis div i mod, div ti je deljenje, mod ostatak pri deljenju, delis sa 2 odnosno radis mod 2 da izdvojis 1 ili 0
znaci ides prvo mod 2 i izdvojis cifru, pa podelis sa 2 pa opet mod 2 pa opet podelis i sve tako, mozes da ih stavljas u niz te cifre dobijene sa mod 2, pa da ih stampas ( po redu ili od psolednje ka prvoj, sta hoces )
(ako ides od poslednje ka prvoj, mozes da dok izdvajas sa mod 2 da neki brojac uvecavas da znas koliko imas cifara u nizu )

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Ali problem je sto ja nisam u skoli jos uvjek radio nizove......
I kako da znam koliko puta da djelim sa dva(div) ako ne znam koliki ce broj biti unesen....
Mora neka petlja valjda.....
Ja tako ne znam uradti....
Imas li kakav drugi nacin mozda???

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

eventualno ,površina može i realna da bude

program troug; var a,h : Real; function povrsina ( a: real ; h: real ):real ; begin  povrsina := (a*h) / 2 ; end; begin  writeln (povrsina (2,5)); end.

edit
mislim da ovo obavi posao bez nizova
program binarz; var n,n1,i:integer;      s : String ; begin   Write ('Brojka :');   readln (n);   s:='';   repeat     i:=n mod 2;     n1 := n div 2;     s := chr(48+i) + s ;     n:=n1;   until n1=0;   writeln ('binarno je : ',s); end.
a možda ima neku grešku

jok,nije to našo sam bug u khexedit izgleda

a možda bolje da mu se stavi longint

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Extra je! U redu je,ja sam kompajlirao....RADI!!! Hvala puno!!!!
Samo ne kontam ovo "String"...Sta je to ustvari.....? Nikad se sa tim nisam sreo! Hvala jos jednom! POZZZZ

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

sitrinag bi bio niska karaktera (array of char )
ali se drugačije tretira

ključna rečca bi bila

   s := chr(48+i) + s ;
koja umeće sledeći binarni karakter ispred tako što ga konvertuje u ascii
gde je 48 u stvari ascii kod za nulu

eventualno bi moglo sa if naredbom ?
if i=0 then c1:='0'          else c1:='1';  s := c1+ s ;

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

E bas vam hvala!!!! Mnogo ste mi pomogli!!! Veliki pozdrav!!!