7.2.. Napisati program za odredjivanje y po formuli:
Listing programa:
PROGRAM P07211088;
USES
WinCrt;
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 }
Writeln(' x ', x, ' y ', y );
END.
II verzija
PROGRAM sest;
USES
WinCrt;
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 }
END.
Ispis na ekranu:
![](../../pascal_prir/072/072_izvedi/07211088.gif)
Index
|
![](../epp/000/Asistent.jpg) |