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

Index
|
 |