Математині функції Арифметичні

ABS (<вир N>) – абсолютне значення числа <вир N>.

INT (<вир N>) – ціла частина.

MAX (<вир 1>, <вир 2>, …) – повертає max значення з списка аргументів, які повинні бути одного типу.

MIN (<вир 1>, <вир 2>, …)

MOD (<вир 1 >, <вир 2>) – цілочисельний залишок від ділення <вирN1> на <вирN2>.

ROUND (<вирN1>, <вирN2>) – заокруглення <вирN1> до заданого в <вирN2> кількості знаків після коми.

EXP (<вир №1>) – основа натурального логарифма "е" в степені <вирN>

LOG (<вирN>) – аргумент > нуля

LOG10 (<вирN>) - аргумент > нуля

SQRT (<вирN>)

Приклад програми виводу на дисплей списку всіх дівчат або хлопців з указанням їх дати народження.

CLEAR

Set talk оff

Set device to screеn

Store ' _ ' to p

@ 5, 1 say 'задайте пол (ж/ч)' get p

read

*---------------------------------------друк шапки---------------------------------------------*

@ 8, 0 say ' ___ _ _ _ _ _ _ _ ______________'

@ 9, 0 say ' _ _______Прізвище___________'

@9, 26 say ' дата народження____________'

@ 10, 0 say ' _ _ _ _ _ _ _ _ _ ______________'

*--------------------------------------пошук прізвища ---------------------------------------------*

select 1

use ЕН11

do while .not. eof()

locate while .not. eof()

if pol = p

*---------------------------------------друк форми---------------------------------------------*

@ row() + 1, 1 say fam picture "@ a"

@ row(), 26 say data picture "@ d"

endif

continue

enddo

@ row() + 1, 0 say ' _ _ _ _ _ _ _ _ _ _ _ _'

use

wait ' програму закінчено'