7.2.. Napiši program za rješavanje slijedećeg izraza:
Za objašnjenje:
*** |
Listing programa |
Opis |
1 |
PROGRAM p07212005; |
|
2 |
USES WinCRT; |
|
3 |
VAR |
|
4 |
x,y:Integer; |
|
5 |
BEGIN |
|
6 |
Write('x='); |
|
7 |
Readln(x); |
|
8 |
IF x<-2 THEN |
|
9 |
y:=x+2 |
|
10 |
ELSE |
|
11 |
IF (x>=-2) and(x<=2) THEN |
|
12 |
y:=2 |
|
13 |
ELSE |
|
14 |
y:=x-2; |
|
15 |
Writeln('y=',y); |
|
16 |
END. |
|
Listing programa:
PROGRAM p07212005;
USES WinCRT;
VAR
x,y:Integer;
BEGIN
Write('x=');
Readln(x);
IF x<-2 THEN
y:=x+2
ELSE
IF (x>=-2) and(x<=2) THEN
y:=2
ELSE
y:=x-2;
Writeln('y=',y);
END.
Ispis na ekranu:
 |
 |
 |
 |
 |
 |
