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;
VAR { deklarisanje promjenljivih }
x, y : INTEGER; { cjelobrojne promjenljive }
BEGIN
WRITE('Broj '); { ulazne promjenljive }
READLN( x ); { ulaz - ucitavanje promjenljive }
IF x <= 0 THEN { ako je x vece od 0 }
y := 5 + x { izraz1 }
ELSE { inace }
y := x - 3; { izraz2 }
Writeln(' x ', x, ' y ', y );
READLN;
END.
Ispis na ekranu:
Index
|
|