7.2.. Napisati program za
odredjivanje y po formuli:
Listing programa:
PROGRAM p07211040;
USES
WinCrt;
VAR { deklarisanje promjenljivih }
a, y : INTEGER; { cjelobrojne promjenljive }
begin
Writeln('Paran');
WRITE('Broj '); { ulazna promjenljiva }
READLN( a ); { ulaz - ucitavanje promjenljive }
IF a MOD 2 = 0 THEN { ako je a parno tada }
y := a + 3 { izraz1 - suma }
ELSE { inace }
y := a - 2; { izraz2 - razlika}
Writeln('Broj = ', a, ' nova vrijednost = ', y); { izlaz - ispis }
END.
Ispis na ekranu:
Index
|
|