7.2.. Napisati program za odredjivanje y po formuli:
Listing programa:
PROGRAM P07211088;
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 tada }
y := 1 { izraz1 }
ELSE
IF x = 0 THEN { ako je x = 0, a > b tada }
y := 0 { izraz2 }
ELSE
y := - 1; { izraz3 }
READLN( x ); { ulaz - ucitavanje promjenljive }
Writeln(' x ', x, ' y ', y );
READLN;
END.
II verzija
PROGRAM sest;
VAR { deklarisanje promjenljivih }
y, x : integer; { cjelobrojne promjenljive }
BEGIN
Write('Unesi x='); { ulazna promjenljiva }
Readln(x); { ulaz - ucitavanje promjenljive }
IF x > 0 then y := 1; { ako je x vece od 0 tada y := 1 }
IF x = 0 then y := 0; { ako je x 0 tada y := 0}
IF x < 0 then y := - 1; { ako je x manje od 0 tada y := - 1 }
Writeln('x = ', x ,' y = ',y); { izlaz - ispis }
READLN;
END.
Ispis na ekranu:
Index
|
|