if not non va!!

[aironenero]

sto creando un programma in pascal ma ho un problema

ho una variabile byte e una longinteger
ho un ciclo if not ma non si verifica mai...
il ciclo è questo:
(e solo la parte dei cicli integrati.. c'è del resto sopra il programa mi deve recistarre in numb il nomero di volte che serve dividiere la variabile byte affinche sia minore di 10...

Codice: Seleziona tutto

 begin
  repeat
   begin
    a:=a div 2;
    numb:=numb+1;
    writeln('a=',a);
     if
      not a<10
     then
      write('rediv');
   end

mi stampa a schermo quanto è a ma maise gli tocca ridividerlo

[aironenero]

risolto...

Codice: Seleziona tutto

if
      not a<10
     then
      write('rediv');

mi è bastato trasformarlo così

Codice: Seleziona tutto

if
      a>10
     then
      write('rediv');

e adesso fa quel che deve..

[gameplay_extreme]

Codice: Seleziona tutto

if not a<10

secondo me non ti funzionava perché non avevi messo le tonde così:

Codice: Seleziona tutto

if not (a < 10)

Codice: Seleziona tutto

if not (a:boolean)   (* logical negation *)

Codice: Seleziona tutto

if not (a:integer)  (* bitwise negation *)

[Tizzio]

sto creando un programma in pascal ma ho un problema

ho una variabile byte e una longinteger
ho un ciclo if not ma non si verifica mai...
il ciclo è questo:
(e solo la parte dei cicli integrati.. c'è del resto sopra il programa mi deve recistarre in numb il nomero di volte che serve dividiere la variabile byte affinche sia minore di 10...

Codice: Seleziona tutto

 begin
  repeat
   begin
    a:=a div 2;
    numb:=numb+1;
    writeln('a=',a);
     if
      not a<10
     then
      write('rediv');
   end

mi stampa a schermo quanto è a ma maise gli tocca ridividerlo

Mamma mia, non si capisce niente... scrivi codice con un indentazione che neanche un cinese nato in arabia...

[aironenero]

sto creando un programma in pascal ma ho un problema

ho una variabile byte e una longinteger
ho un ciclo if not ma non si verifica mai...
il ciclo è questo:
(e solo la parte dei cicli integrati.. c'è del resto sopra il programa mi deve recistarre in numb il nomero di volte che serve dividiere la variabile byte affinche sia minore di 10...

Codice: Seleziona tutto

 begin
  repeat
   begin
    a:=a div 2;
    numb:=numb+1;
    writeln('a=',a);
     if
      not a<10
     then
      write('rediv');
   end

mi stampa a schermo quanto è a ma maise gli tocca ridividerlo

Mamma mia, non si capisce niente... scrivi codice con un indentazione che neanche un cinese nato in arabia...

a si e perchè non si capisce niente?