7.2.. Napiši program za rješavanje slijedećeg izraza:

Opis rješenja: Nazivnik mora biti različit od nule 2x-1<>0.

Za objašnjenje:

***

Listing programa

Opis

1

PROGRAM razl07212002;

 

2

USES WinCRT;

 

3

VAR

 

4

  x,y : REAL; { realne promjenljive }

 

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              { deklarisanje promjenljivih }
  x, y : REAL;   { realne promjenljive }
BEGIN
  WRITE('Broj  ');      { ulazna promjenljiva }
  READLN( x );          { ulaz - ucitavanje promjenljive }
  
  IF 2*x-1<>0 THEN      { ako x zadovoljava izraz tada }
    BEGIN
      y := (3*x+8)/(2*x-1);      { izraz1 }
      Writeln('y=',y:8:2);       { izlaz - ispis } 
    END
  ELSE                           { inace }
    Writeln('nije definisano');  { izlaz - ispis }  
END.

Ispis na ekranu:

Index