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