Prova gli interi 4

Le operazioni più comuni con gli interi, con input dell’utente per le variabili.

Program Prova_Interi;
Var
    a, b: Integer;
Begin
    Write('Valore intero per a? ');
    Readln(a);
    Write('Valore intero per b? ');
    Readln(b);

    Writeln('Maxint = ',  Maxint);
    Writeln('+', a, ' = ',  +a); 
    Writeln('-', a, ' = ',  -a);
    Writeln(a, ' + ', b, ' = ', a+b); 
    Writeln(a, ' - ', b, ' = ', a-b);
    Writeln(a, ' * ', b, ' = ', a*b);
    Writeln(a, ' Div ', b, ' = ', a Div b);
    Writeln(a, ' Mod ', b, ' = ', a Mod b);
    Writeln('Succ(', a ,') = ', Succ(a));
    Writeln('Pred(', a ,') = ', Pred(a));
    Writeln('Abs(', a ,') = ', Abs(a));
    Writeln('Sqr(', a ,') = ', Sqr(a));

    Writeln('Sqrt(', a ,') = ', Sqrt(a):1:2); { Real    }
    Writeln(a, ' / ', b, ' = ', (a/b):1:2  ); { Real    }
    Writeln('Chr(', a ,') = ' , Chr(a)     ); { Char    }
    Writeln('Odd(', a, ') = ' , Odd(a)     ); { Boolean }

    Writeln(a, ' < ', b, ' = ' , a < b );     { Boolean }
    Writeln(a, ' <= ', b, ' = ', a <= b); 
    Writeln(a, ' = ', b, ' = ' , a = b ); 
    Writeln(a, ' > ', b, ' = ' , a > b );
    Writeln(a, ' >= ', b, ' = ', a >= b); 
    Writeln(a, ' <> ', b, ' = ', a <> b);         

    Readln;
End.