7.2.. Napisati program koji za x>y umanjuje vrijednosti obe varijable ( x := x - 2; y := x - 2,) inaće uvećava vrijednosti obe varijable x := x + 2; y := x + 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

USES

 

3

  WinCrt;

 

4

VAR

 

5

  x, y : REAL;

 

6

BEGIN

 

7

  WRITE('Dva broja ');

 

8

  READLN( x, y );

 

9

  IF x>y THEN

x>y

10

    BEGIN

 

11

      x := x - 2;

umanji x za 2

12

      y := x - 2;

y postaje nova vrijednost x umanjena za 2.

13

    END

 

14

  ELSE

 

15

    BEGIN

 

16

      x := x + 2;

uvačaj x za 2

17

      y := x + 2;

y postaje nova vrijednost x uvečana za 2

18

    END;

 

19

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

 

20

END.

 

Listing programa:

PROGRAM P07211025;
USES
  WinCrt;
VAR
  x, y : REAL;
BEGIN
  WRITE('Dva broja ');
  READLN( x, y );
  IF x>y THEN 
    BEGIN
      x := x - 2;
      y := x - 2;
    END
  ELSE
    BEGIN
      x := x + 2;
      y := x + 2;
    END;
  Writeln('x= ', x, '  y= ', y);
END.

Ispis na ekranu:

Index