Judul : Menentukan besar sudut berdasarkan kuadran
Algoritma:
1. Menentukan aturan kuadran 1 yaitu ≤ 90o
2. Menentukan aturan kuadran 2 yaitu 90o< s ≤ 180o
3. Menentukan aturan kuadran 3 yaitu 180o< s ≤ 270o
4. Menentukan aturan kuadran 4 yaitu 270o< s ≤ 360o
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.
Tidak ada komentar:
Posting Komentar