7.2.. Napisati program za odredjivanje y po formuli: .
Opis rješenja:
Listing programa:
PROGRAM P07211094;
VAR { deklarisanje promjenljivih }
a, y : INTEGER; { cjelobrojne promjenljive }
BEGIN
WRITE('Broj '); { ulazne promjenljive }
READLN( a ); { ulaz - ucitavanje promjenljive }
IF a MOD 2 = 0 THEN { ako je a parno }
y := a + 2 { izraz1 }
ELSE { inace }
y := a - 3; { izraz2 }
Writeln(' a ', a, ' y ', y );
READLN;
END.
Ispis na ekranu:
Index
|
|