Download Source Code Aplikasi

Program Sudut Trigonometri Pascal

Wednesday, November 6th, 2019 - Program Pascal
Malam guys, kali ini aku akan memposting kegiatan mencari nilai sudut dari trigonometri yaitu sinus, cosinus, tangen, dan contangen. kegiatan ini tidaklah terlalu sulit dan aku rasa kalau anda melihat scriptnya akan sangat gampang memahaminya alasannya ialah hanya mengunakkan rumus matematika yang telah disediakan dalam pascal sendiri. dan berikut script programnya.
kegiatan Mencari_Nilai_Trigonometri;
uses math,crt;
var
   sudut : integer;
   radian,s,c,t,con : real;
   mengulang : char;
const
   phi = 3.14;
begin
   mengulang:=’Y’;
   while mengulang <> ‘T’ do
   begin
   clrscr;
   writeln(‘ Program Menghitung Nilai Trigonometri ‘);
   Writeln(‘ – – – – – – – – – – – – – – – – – – – ‘);
   writeln(‘Besar Sudut Antara 0 Sampai 360 Derajat’);writeln;
   writeln;
   write(‘Masukkan Besar Sudut Yang Anda Inginkan : ‘);
   readln(sudut);
   radian :=sudut/180*phi;
   writeln;
   writeln(‘Hasil Dari ‘,sudut, ‘ Derajat Sama Dengan Sebagai Berikut ‘);
   writeln;
   writeln(‘Nilai Sin ‘,sudut, ‘ Derajat = ‘,sin(radian):0:2); writeln;
   writeln(‘Nilai Cos ‘,sudut, ‘ Derajat = ‘,cos(radian):0:2); writeln;
   if sudut=90 then writeln(‘Nilai Tan ‘,sudut,’ Derajat = Tidak Tentu’)
   else if sudut=270 then writeln(‘Nilai Tan ‘,sudut,’ Derajat = Tidak Tentu’)
   else begin t:=sin(radian)/cos(radian);
   writeln(‘Nilai Tan ‘,sudut, ‘ Derajat = ‘,t:0:2); writeln;
   end;
   if sudut=0 then writeln(‘Nilai Contangen ‘,sudut,’ Derajat = Tidak tentu’)
   else if sudut=180 then writeln(‘Nilai Contangen ‘,sudut,’ Derajat = Tidak tentu’)
   else if sudut=360 then writeln(‘Nilai Contangen ‘,sudut,’ Derajat = Tidak tentu’)
   else begin con:=cos(radian)/sin(radian);
   writeln(‘Nilai Contangen ‘,sudut,’ Derajat = ‘,con:0:2);
   end;
   writeln;
   writeln(‘- – – – – – – – – – – – – – – – – – – – – – – – – – – – – – -‘);
   writeln(‘Apakah Anda Ingin Mencoba Program Ini Lagi ? ‘);
   writeln(‘- – – – – – – – – – – – – – – – – – – – – – – – – – – – – – -‘);
   writeln;
   Writeln(‘Tekan Y Jika Ingin Mencoba Lagi Atau T Jika Anda Ingin Keluar’);
   writeln;
   write(‘Masukkan Y atau T : ‘);
   readln(mengulang);
   end;
End.
Output Program 
Program Sudut Trigonometri Pascal
Program Sudut Trigonometri Pascal
Jika ingin mendownload file kegiatan yang sudah dikompilasi silahkan download via ziddu di link dibawah.

Download Program Sudut Trigonometri Pascal
Penjelasan script : untuk mencari nilai sin,cos,dan tan maka kita mengaktifkan library math dan merubah nilai sudut yang diinputkan dalam bentuk radian gres mencari besar sudutnya alasannya ialah nilai sudut tan dari 90 dan 270 derajat tidak tentu maka kita mengunakkan penyeleksian kondisi dan juga untuk contangen karean nilai dari 1/0 = tak tentu maka kita menggunakkan penyeleksian kondisi dimana kalau besar sudut yang dimasukkan itu 0,180, dan 360 maka nilainya tak tentu.
Demikian yang dapat kami share kepada sobat source code aplikasi pada kesempatan ini, semoga dapat bermanfaat dan bisa menjadi referensi pemrograman bagi anda. Jangan lupa like Fan Page kami, dan SUBSCRIBE Channel Youtube kami untuk dapatkan update source code aplikasi terbaru.
Download Source Code Aplikasi
Program Sudut Trigonometri Pascal | Ahmad Code | 4.5