[ dusansilni95 @ 09.02.2012. 17:31 ] @
ZADATAK: Koristeci funkciju za izdvajanje cijelog dijela realnog broja, napisati program koji ucitava n razlicitih realnih brojeva i nalazi sumu cijelih dijelova tih realnih brojeva. Ovo je moje vidjenje tog zadatka ali nesto ne valja: Code: program blabla; uses wincrt; var a,x:real; i,s,n:integer; function izdvajanje(a:real):integer; var b:integer; begin b:=trunc(a); end; begin i:=0; writeln('Koliko puta ce mo ucitati realni broj:'); readln(n); repeat writeln('Unesi realne brojeve:'); readln(x); i:=i+1; until i=n; s:=0; repeat s:=s+izdvajanje(x); i:=i+1; until i=n; writeln('Suma n razlicitih realnih brojeva iznosi: ', s); end. |