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 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 );
END.
Ispis na ekranu:
![](../../pascal_prir/072/072_izvedi/07211096.gif)
Index
|
![](../epp/000/Asistent.jpg) |