Arithmetic IF este un operator de limbaje de programare Fortran (de la versiunile timpurii până la Fortran 90, în care era depreciat) și Focal . Operatorul specifică o expresie aritmetică și, respectiv, trei etichete cărora le este transferat controlul, dacă expresia este mai mică decât zero, egală cu zero sau mai mare decât zero:
IF ( expresie ) on_negative , on_zero , on_pozitiveIF aritmetic a fost inițial singura variantă a operatorului condiționat din Fortran. Pornind de la Fortran 66, a fost înlocuit cu un IF logic, iar din Fortran 77 - cu un IF structural, egal semantic cu operatorii de ramificație ai altor limbaje de programare.
Exemplu de utilizare C Programul preia un număr de la utilizatorul C și tipărește raportul acestuia la zero . PROGRAM TESTIF IMPLICIT NIMIC INTEGER N SCRIE ( * , "('Introduceți un număr: ',$)" ) CITEȘTE ( * , * ) N DACA ( N ) 100 , 200 , 300 100 SCRIE ( * , * ) N , „mai puțin decât zero”. GOTO 400 200 SCRIE ( * , * ) N , „este zero”. GOTO 400 300 SCRIE ( * , * ) N , „mai mare decât zero” GOTO 400 400 CONTINUARE TERMINAREA PROGRAMULUI