7.2.. Napisati program koji za x>y umanjuje vrijednosti obe varijable ( x := x - 2; y := y - 2,) inaće uvećava vrijednosti obe varijable x := x + 2; y := y + 2.
a) x = 2, y = 3 b) x = 3, y = 2 c) x = 2, y = 2
d) x = -2, y = -3 e) x = -3, y = 2 f) x = -1, y = -1

Za objašnjenje:

***

Listing programa

Opis

1

PROGRAM P07211025;

 

2

{Provjera vrijednosti za x parno i neparno}

 

3

USES

 

4

  WinCrt;

 

5

VAR

 

6

  x, y : REAL;

 

7

BEGIN

 

8

  WRITE('Dva broja ');

 

9

  READLN( x, y );

 

10

  IF x>y THEN

x>y

11

    BEGIN

 

12

      x := x - 2;

umanji x za 2

13

      y := y - 2;

umanji y za 2.

14

    END

 

15

  ELSE

 

16

    BEGIN

 

17

      x := x + 2;

uvačaj x za 2

18

      y := y + 2;

uvačaj y za 2

19

    END;

 

20

  Writeln('x= ', x, '  y= ', y);

 

21

END.

 

Listing programa:

PROGRAM P07211025;
{Provjera vrijednosti za x parno i neparno}
USES
  WinCrt;
VAR
  x, y : REAL;
BEGIN
  WRITE('Dva broja ');
  READLN( x, y );
  IF x>y THEN 
    BEGIN
      x := x - 2;
      y := y - 2;
    END
  ELSE
    BEGIN
      x := x + 2;
      y := y + 2;
    END;
  Writeln('x= ', x, '  y= ', y);
END.

Ispis na ekranu:

Index