Baspro ( Menentukan besar sudut berdasarkan kuadran)

Judul : Menentukan besar sudut berdasarkan kuadran

Algoritma:

1.    Menentukan aturan kuadran 1 yaitu ≤ 90^o

2.    Menentukan aturan kuadran 2 yaitu  90^o< s ≤ 180^o

3.    Menentukan aturan kuadran 3 yaitu 180^o< s ≤ 270^o

4.    Menentukan aturan kuadran 4 yaitu 270^o< s ≤ 360^o

Program :

Uses wincrt;

var

   s: byte;

                      

begin

repeat

   clrScr;

   writeln('menentukan besar sudut berdasarkan kuadran');

   write('masukan nomer kuadran[1..4]:');

   readln(s);

until (s in [1..4]);

writeln;

if s = 1  then

   writeln('s<=90')

else

    if s = 2 then

       writeln('90<s<=180')

    else

        if s = 3 then

           writeln('180<s<=270')

        else

            if s = 4 then

               writeln('270<s<=360');

readln;

end.