7.2.. Napisati program za odredjivanje y po formuli:
Listing programa:
PROGRAM p07211089;
VAR { deklarisanje promjenljivih }
y, x : integer; { cjelobrojne promjenljive }
BEGIN
Write('Unesi x='); { ulazna promjenljiva }
Readln(x); { ulaz - ucitavanje promjenljive }
IF x > 0 then y:=x+3; { ako je x vece od 0 tada y=x+3 }
IF x = 0 then y:=2 ; { ako je x 0 tada y=2 - konstant a}
IF x < 0 then y:=x-3; { ako je x manje od 0 tada y=x-3 }
Writeln('x = ', x ,' y = ',y); { izlaz - ispis }
READLN;
END.
II verzija
PROGRAM p07211089;
VAR { deklarisanje promjenljivih }
x, y : INTEGER; { cjelobrojna promjenljiva }
BEGIN
Write('Broj '); { ulazna promjenljiva }
Readln(x); { ulaz - ucitavanje promjenljive }
IF x > 0 THEN { ako je x vece ili jednako 0, x > 0 tada }
y := x + 3 { izraz1 - z=1 }
ELSE
IF x = 0 THEN { inace }
y := 2
ELSE
y := x - 3; { izraz1 - z=0 }
Writeln('Broj = ', x, ' y = ', y); { izlaz - ispis }
READLN;
END.
Ispis na ekranu:
Index
|
|