7.2.. Učitati a i b i naći količnik a/b:

Opis rješenja: Nazivnik mora biti različit od nule b<>0.

Za objašnjenje:

***

Listing programa

Opis

1

PROGRAM razl07212002;

 

2

USES WinCRT;

 

3

VAR

 

4

  x,y:Real;

 

5

BEGIN

 

6

  Write('x=');

 

7

  Readln(x);

 

8

  IF 2*x-1<>0 THEN

Nazivnik mora biti različit od nula 2x-1<>0

9

    BEGIN

 

10

      y:=(3*x+8)/(2*x-1);

 

11

      Writeln('y=',y:4:2);

 

12

    END

 

13

  ELSE

 

14

  Writeln('nije definisano');

Nazivnik je nula

15

END.

 

Listing programa:

PROGRAM razl07212002;
USES WinCRT;
VAR
  a, b, y: Real;
BEGIN
  Write('Dva broja: ');
  Readln(a, b);
  IF b<>0 THEN 
    BEGIN
      y := a/b;
      Writeln('y=',y:4:2);
    END
  ELSE
    Writeln('nije definisano');
END.

Ispis na ekranu:

Index