Prova i reali

di

Le operazioni più comuni con i numeri reali.

Program Prova_Reali;
Var
   x, y: Real;
Begin
   Write('Valore reale per x? '); Readln(x);
   Write('Valore reale per y? '); Readln(y);

   Writeln('Pi = '          , Pi:1:2);
   Writeln('+', x:1:2, ' = ', +x:1:2);
   Writeln('-', x:1:2, ' = ', -x:1:2);

   Writeln(x:1:2, ' + ', y:1:2, ' = ', x+y:1:2);
   Writeln(x:1:2, ' - ', y:1:2, ' = ', x-y:1:2);
   Writeln(x:1:2, ' * ', y:1:2, ' = ', x*y:1:2);
   Writeln(x:1:2, ' / ', y:1:2, ' = ', x/y:1:2);

   Writeln('Abs(', x:1:2, ') = '  , Abs(x):1:2 );
   Writeln('Sqr(', x:1:2, ') = '  , Sqr(x):1:2 );
   Writeln('Sqrt(', x:1:2, ') = ' , Sqrt(x):1:2);
   Writeln('Int(', x:1:2, ') = '  , Int(x):1:2 ); { parte intera      }
   Writeln('Frac(', x:1:2, ') = ' , Frac(x):1:2); { parte frazionaria }
   Writeln('Trunc(', x:1:2, ') = ', Trunc(x)   ); { troncamento       }
   Writeln('Round(', x:1:2, ') = ', Round(x)   ); { arrotondamento    }

   Writeln(x:1:2, ' < ', y:1:2, ' = ' , x < y );
   Writeln(x:1:2, ' <= ', y:1:2, ' = ', x <= y);
   Writeln(x:1:2, ' = ', y:1:2, ' = ' , x = y );
   Writeln(x:1:2, ' > ', y:1:2, ' = ' , x > y );
   Writeln(x:1:2, ' >= ', y:1:2, ' = ', x >= y);
   Writeln(x:1:2, ' <> ', y:1:2, ' = ', x <> y);
   Readln;
End.

Note

  1. Le variabili reali possono essere formattate con :colonne:decimali
    1. :10
      Allineare a destra su 10 colonne (con gli spazi necessari a sinistra)
      Il numero è in formato scientifico
    2. :1
      Una colonna equivale ad allineare a sinistra
    3. :10:2
      Allineare a destra su dieci colonne
      Il numero è in formato decimale con due cifre decimali
  2. Ci sono 4 modalità diverse per maneggiare il formato dei numeri reali: Int(), Frac(), Trunc(), Round()
  3. L’arrotondamento dipende dal compilatore e/o dal microprocessore.
  4. Ci sono altre funzioni matematiche per i numeri reali: Exp(), Ln(), Sin(), Cos(), ArcTan()