Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

  • 3 odgovora
  • 2.628 pregleda

Najnovija ↓

Prirodna skala paskala 01.12.2009. u 14:24 · pre 205 meseci #1
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


Re: Prirodna skala paskala 01.12.2009. u 15:38 · pre 205 meseci #2
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.
Re: Prirodna skala paskala 07.02.2010. u 11:20 · pre 203 meseca #3
poenta je da se dobije ceo broj .
meni nije bilo jasno sta je tacno napisano na papiru
Potpis
NN
Re: Prirodna skala paskala 07.02.2010. u 14:23 · pre 203 meseca
izmenjeno 2 puta, poslednji put Nemanja_90 07.02.2010. u 15:37
  1. Nemanja_9007.02.2010. u 15:37zapis iz teksta poruke
  2. Nemanja_9007.02.2010. u 15:37zapis iz teksta poruke
#4
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.
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme