[ XXXL @ 20.12.2005. 15:17 ] @
Problem je sledeci...Mozda je vama svima lagan, ali ja se plaho ne razumijem u pascal...
Sledece je u pitanju.
Ulaz je n-cifreni broj. Kako da saberem sve cifre?
Imam rjesenje za npr. 4-cifren broj ali za n-cifren nemam.
Ne smijem koristiti funkcije sa stringovima...(Jer to jos moj prijatelj nije ucio, pa ne smije ni pokazati)...Usao mi je taj zadatak u glavu i ne mogu ga vec 3 dana uraditi...
Molim za rjesenje..ili neku pomoc...
Primjer.
ULAZ: 6578943056
IZLAZ: 55 */ 6+5+7+8+9+4+3+0+5+6/*
[ Srki_82 @ 20.12.2005. 15:59 ] @
Hint: koristi MOD i DIV funkcije... i broj 10
[ Passwd @ 20.12.2005. 19:57 ] @
Hm, znam da nisam neki matematicar ali ipak mi se cini da je
*/ 6+5+7+8+9+4+3+0+5+6/* = 53 a ne 55

Citat:
XXXL:Ne smijem koristiti funkcije sa stringovima...(Jer to jos moj prijatelj nije ucio, pa ne smije ni pokazati)...


Lol, neka kaze da je napredan...

Code:

program cifraZAD;
uses crt;
var cifra:string;
    x,suma,br,gr:integer;
begin
clrscr;
writeln('Upisite cifru:');
readln(cifra);
suma:=0;

for x:=1 to length(cifra) do
 begin
 val(cifra[x],br,gr);
 suma:=suma+br;
 end;

writeln('Rezultat:',suma);

readln;
end.


[Ovu poruku je menjao Passwd dana 20.12.2005. u 20:57 GMT+1]
[ XXXL @ 20.12.2005. 20:41 ] @
Hehe, nije 55, nego 53, sorry, dobro si reko...ya racuno to u sebi u sekundi...:)
Ovo drugo rijesenje ne kontam nikako...al nema weze...Wazno je da sam ja saam uradio...Ona prva pomoc je bolja nego kada neko uradi zadatak...Ako vec ne ide onda...morao bi traziti rjesenje...Ali za 10 min. mi je dosla ideja...Nisam probo u pascalu jer ne znam kako ide sintaksa...Ali ustvari ovako bi trebalo biti tacno:

suma=0
readln(broj)
l=lenght(broj)
for i=1 to l do begin
suma=suma+(broj mod 10)
broj=broj div 10^i */ kako se u pascalu obiljezava eksponencija? Jel "^" ?
end
writeln(b)


Hvala mnogo!
[ Passwd @ 20.12.2005. 21:31 ] @
Kako ne kontas kod??

Code:

program cifraZAD;

uses crt;
var cifra:string;
    x,suma,br,gr:integer;


begin
clrscr;
(*brise ekran*)

writeln('Upisite cifru:');
readln(cifra);
(*ucitava cifru kao string znaci neka bude za primjer 12345 *)

suma:=0;
(suma je varijabla integer tipa u koju cemo zbrajat svaki niz cifre )
 
for x:=1 to length(cifra) do
(*od prvog do zadnjeg clana cifre , u ovom slucaju do 5-og*)

 begin
 val(cifra[x],br,gr);

 (*pretvara X-ti clan koji je string u br koji je integer jer ne mozes stringove i integere zbrajat..a ako ne moze pretvorit gr ce biti 1, ako je uspjesno pretvorio gr ce biti 0, gr=greska 
recimo val(1=>to je prvi clan cifre,br=>u njega smjestamo 1, gr ce biti 0 jer nema greske, i onda taj 1 doda cifri, tako i za ostale clanove [2,3,4,5])
*)

 suma:=suma+br;
(*dodaje sumi X-ti clan koji smo smjestili prije toga u br
suma:=suma+1;
suma:=suma+2;
...
*) 

end;

writeln('Rezultat:',suma);
(*ispisuje sumu..odnosno rezultat*)


readln;
end.
[ XXXL @ 21.12.2005. 23:27 ] @
Passwd...Ukoliko vidis gore u mom pitanju pishe da se ne smiju koristiti funkcije sa stringovima...
A moje rjesenje koje sam dao, opet nije tachno...heh...Mala ispravka:

suma=0
readln(broj)
l=lenght(broj)
for i=1 to l do begin
suma=suma+(broj mod 10)
broj=broj div 10
end
writeln(b)


i ovo bi trebalo raditi...
Hvala jos jednom...
[ Srki_82 @ 22.12.2005. 07:59 ] @
Ni ovo nije dobro... ne postoji Length funkcija koja ce ti dati duzinu broja.

Hint: Treba ti petlja koja ce se vrteti do nekog uslova (kada broj vise nema cifara za obradu) ili dok je neki uslov ispunjen (dok broj ima jos cifara za obradu)... posto ne mozes da skines sve cifre iz broja (mora da ostane bar jedna cifra) koji bi onda cifra, kada ostane sama u broju, oznacavala da nema vise nista za obradu?
[ Passwd @ 22.12.2005. 08:17 ] @
Citat:
XXXL: Passwd...Ukoliko vidis gore u mom pitanju pishe da se ne smiju koristiti funkcije sa stringovima...


A ja sam ti ljepo rekao da kaze da je napredan
[ stameni @ 22.12.2005. 12:02 ] @
Citat:
Ni ovo nije dobro... ne postoji Length funkcija koja ce ti dati duzinu broja.



Već sam pisao na ovom forumu kako se može izračunati dužina prirodnog broja n:


Code:
length(n) = trunc(log10(n)) + 1



log10 je logaritam za osnovu 10, koji takođe nije deo ni standardnog ni Turbo Pascala. Gradivo je drugog razreda srednje škole izračunati baš log10 kada je na raspolaganju logaritam za neku drugu osnovu...


I, da, računanje dužine u ovom zadatku stvarno nije neophodno: vrtiš se u petlji skidajući sa mod cifre jedinica (jednu po jednu), a sa div uzimaš "resto", sve dok resto ne bude jednako nuli.
[ XXXL @ 22.12.2005. 15:28 ] @
hmm...zanimlyiwo...u prawu ste...
[ XXXL @ 25.12.2005. 01:46 ] @
Skitza yarane...ya ne znam da`l ti chitash, al uprawo takwo ryeshenye ti ye bilo gore...ne znam zashto si samo napisao to ponowo (yosh dodao komentare)..?..al hayd..I yosh rasprawlyash o nechemu :"shta che wam stringowi?"...a gore ima fino...a choyk ye fino rekao da ono ryeshenye ne mozhe sa LEN...tako da sam skonto da mozhe neko drugo...

read(a);

b:=a;
x:=0;
c:=0;

while a<=1 do begin
a:=a/10;
x:=x+1; */ koliko cifara ima broj a, toliko che pokazat broyach x /*
end

for i:=1 to x do begin
c:=c+(b mod 10);
b:=b div 10;
end
write(c);


Walyda owako treba, umyesto onog LENGHT(a)...