Prirodna skala paskala

[ sneznavatra @ 01.12.2009. 13:24 ] @

CAo svima.

Pokusavam da napravim arhitektonski program u paskalu.

Usustini je jednostavan.
poenta je a se dupise zeljeni broj , a program ga yatim deli sa 1.618 sve dok ne dodje do 1(cm)
Znaci , ako upisem na primer 180 .sledi 110 , 70 ,40 ....
Na papiru je zapisan , priblizno put do programa ,ali dosta nejasno
Glasi otprilike ovako:

program ...1.618

var rad? :real

begin
writeln( 'unesite vrednost u CM')
readln(var?)
pom:=rad;
writeln(pom);
while(pom>1)00
begin
pom:=poom/
writeln(pom)
end;

Ako neko zna il vidi gresku bilo bi fino da ispravi. Znacilo bi.
Slikovito i prakticno cu vam otkriti u cemu je poenta samo da progr prvo ozivi....8

[ bojan21 @ 01.12.2009. 14:38 ] @

Citat:

poenta je a se dupise zeljeni broj , a program ga yatim deli sa 1.618 sve dok ne dodje do 1(cm)
Znaci , ako upisem na primer 180 .sledi 110 , 70 ,40 ....

Ovo je prva stvar koja je nejasna - zasto kao rezultat deljenja dobijas cele brojeve (da li je to celobrojni deo realnog resenja)?
Dalje, ako 180 podelis sa 1.618 dobijas 111.24...itd. Kako si ti dobila 110?

A to sto je zapisano na papiru ima dosta sintaksnih gresaka, mada je jasno otprilike kako treba da radi. Ipak, pre nego sto dobijes ispravak algoritma, odgovori na postavljena pitanja, da bi znali kako tacno treba da radi.

[ Snoopy88 @ 07.02.2010. 10:20 ] @

poenta je da se dobije ceo broj .
meni nije bilo jasno sta je tacno napisano na papiru

[ Nemanja_90 @ 07.02.2010. 13:23 ] @

Taj program ima bas mnogo sintaksnih gresaka.

Ovo bi trebalo da odradi posao:

Code:
program arh;
var
   n:real;
begin
   write('Unesite vrednost u cm: ');
   readln(n);
   while round(n)>=1 do
      begin
         writeln(round(n));
         n:=n/1.618;
      end;
end.

_{[Ovu poruku je menjao Nemanja_90 dana 07.02.2010. u 15:37 GMT+1]}

_{[Ovu poruku je menjao Nemanja_90 dana 07.02.2010. u 15:37 GMT+1]}