7.2.. Napisati program koji za y > x računa x i y prema izrazima: x = x - 1; y = y + 2 inače x = x + 1; y = y - 2.
Za objašnjenje:
*** |
Listing programa |
Opis |
1 |
PROGRAM P07211025; |
|
2 |
{za y > x računa x i y prema izrazima: x = x - 1; y = x + 2 inače x = x + 1; y = x - 2} |
|
3 |
VAR |
|
4 |
x, y : REAL; |
|
5 |
BEGIN |
|
6 |
WRITE('Dva broja '); |
|
7 |
READLN( x, y ); |
|
8 |
IF x>y THEN |
x>y |
9 |
BEGIN |
|
10 |
x := x - 1; |
umanji x za 1 |
11 |
y := y + 2; |
uvaćaj y za 2. |
12 |
END |
|
13 |
ELSE |
|
14 |
BEGIN |
|
15 |
x := x + 1; |
uvaćaj x za 1 |
16 |
y := y - 2; |
umanji y za 2 |
17 |
END; |
|
18 |
Writeln('x= ', x, ' y= ', y); |
|
19 |
READLN;
END. |
|
Listing programa:
PROGRAM P07211025;
{za y > x računa x i y prema izrazima: x = x - 1; y = x + 2 inače x = x + 1; y = x - 2}
VAR
x, y : REAL;
BEGIN
WRITE('Dva broja ');
READLN( x, y );
IF x>y THEN
BEGIN
x := x - 1;
y := y + 2;
END
ELSE
BEGIN
x := x + 1;
y := y - 2;
END;
Writeln('x= ', x, ' y= ', y);
READLN;
END.
Ispis na ekranu:
Index
|
|