7.2.. Učitati x. Ako je x manje ili jednako 0, tada je y=5+x, inače je y=x-3.
Opis rješenja:
Listing programa:
PROGRAM P07211096;
USES
WinCrt;
VAR { deklarisanje promjenljivih }
x, y : INTEGER; { cjelobrojne promjenljive }
BEGIN
WRITE('Broj '); { ulazne promjenljive }
READLN( x ); { ulaz - ucitavanje vrijednosti }
IF x <= 0 THEN { ako je x manje ili jednako 0, tada }
y := 5 + x { broj je manji ili jednak 0 - izraz1 }
ELSE { inace }
y := x - 3; { broj veci od 0 - izraz2 }
Writeln(' x ', x, ' y ', y );
END.
Ispis na ekranu:

Index
|
 |