7.2.. Napisati program za odredjivanje y po formuli:
.
Opis rješenja:
Listing programa:
I varijanta 3x if
PROGRAM P07211090;
USES
WinCrt;
VAR { deklarisanje promjenljivih }
x, y : INTEGER; { cjelobrojne promjenljive }
BEGIN
Write('Broj '); { ulazna promjenljiva }
Readln(x); { ulaz - ucitavanje promjenljive }
IF x < -2 then y := 2 * x; { ako je x manje od -2 tada y := 2 * x }
IF x = -2 then y := 3 * x + 1; { ako je = -2 tada y := 3 * x + 1 }
IF x > -2 then y := 1 - x; { ako je x vece od -2 tada y := - 1 - x }
Writeln('Broj = ', x, ' y = ', y); { izlaz - ispis }
END.
II varijanta if then else
PROGRAM P07211090;
USES
WinCrt;
VAR { deklarisanje promjenljivih }
x, y : INTEGER; { cjelobrojne promjenljive }
BEGIN
Write('Broj '); { ulazna promjenljiva }
Readln(x); { ulaz - ucitavanje promjenljive }
IF x < -2 THEN { ako je x manje od -2 tada }
y := 2 * x { izraz1 - y := 2 * x }
ELSE
IF x = -2 THEN { inace }
y := 3 * x + 1 { izraz1 - y = 3 * x + 1 }
ELSE
y := 1 - x; { izraz1 - y = 1 - x }
Writeln('Broj = ', x, ' y = ', y); { izlaz - ispis }
END.
Ispis na ekranu:

Index
|
 |