uses crt;
label rypro,b,c,e,f,g;
var a,arcsin,arccos,as,ac:real;
d:char;
begin
clrscr ;
rypro:
writeln; writeln;
write('masukkan nilai a: '); readln(a);
if a= 1 then goto e else
if a= 0 then goto g else
arcsin := ArcTan(a/sqrt (1-sqr (a)))*57.2958;
arccos := ArcTan(sqrt (1-sqr (a)) /a)*57.2958;
as:= 180-arcsin;
ac:= 360-arccos;
if a < 1 then
writeln('arcsin ',a:0:4,' = ',arcsin:0:4,' derajat atau ',as:0:4);
b:
if a < 1 then
writeln('arccos ',a:0:4,' = ',arccos:0:4,' atau ',ac:0:4);
c: readln; writeln;
write('Mau Mencoba Lagi? ');
writeln('tekan Y jika iya atau tekan selain Y jika tidak');
readln(d);
if (d ='Y') or (d = 'y') then goto rypro else goto f;
e:
writeln('arcsin ',a:0:4,'= 90 ');
writeln('arccos ',a:0:4,'= 0 '); writeln; goto c;
g:
writeln('arcsin ',a:0:4,'= 0 atau 180');
writeln('arccos ',a:0:4,'= 90 atau 270'); writeln; goto c;
f:
writeln; writeln; writeln; writeln;
writeln(' TERIMA KASIH TELAH MENGGUNAKAN LAYANAN INI');
writeln;
writeln(' T H A N K');
readln end.
Download Turbo Pascal di sini
