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:
 |
 |
 |
 |
 |
 |
