Tabel

baris 1 kolom 1 ––––––––––––	Data Teknisi
baris 3 kolom 1

1

Membuat fungsi tangen pada pemrograman Pascal

Di dalam bahasa pemrograman Pascal (yang lebih dikenal dengan Turbo Pascal) tidak ditemukan adanya fungsi tangen, sementara untuk fungsi cos dan fungsi sin tersedia di dalam bahasa pemrograman Pascal, contoh:

• Jika kita ingin mengetahui nilai sin dari suatu bilangan/sudut kita bisa langsung mendefinisikannya pada Turbo Pascal dengan sintaks sebagai berikut:
  var a:real;
  begin
  write('masukkan nilai suatu sudut! '); readln(a);
  writeln('Sin ',a,'= ',Sin(a*Pi/180));
  readln
  end.
  
  
• Jika kita ingin mengetahui nilai cos dari suatu bilangan/sudut kita bisa langsung mendefinisikannya pada Turbo Pascal dengan sintaks sebagai berikut:
  
  var a:real;
  begin
  write('masukkan nilai suatu sudut! '); readln(a);
  writeln('Cos ',a,' = ',cos(a*Pi/180));
  readln
  end.
  
  
• Namun jika kita ingin mengetahui nilai tan dari suatu bilangan/sudut, kita tidak bisa langsung mendefinisikannya pada Turbo Pascal dengan sintaks sebagai berikut:
  
  var a:real;
  begin
  write('masukkan nilai suatu sudut! '); readln(a);
  writeln('Tan ',a,' = ',tan(a*Pi/180));
  readln
  end.
  
  Jika sintaks diatas kita coba jalankan akan muncul peringatan error pada Pascal yaitu: “Unknown identifier” karena Turbo pascal tidak mengenal fungsi tangen dan kursor pun tertuju pada tulisan tan. Nah, bagaimana caranya membuat fungsi tan tersebut dalam bahasa pemrograman Pascal (Turbo Pascal)? Itulah yang akan jadi pembahasan kita pada kesempatan kali ini
  

Kita ingat kembali bahwa:

Jadi kita membuat fungsi tangen di dalam Turbo Pascal dengan menggunakan suatu formula (rumus), yaitu: tan (a) = sin (a) / cos (a). Sekarang timbul pertanyaan bagaimana seandainya kalau cos (a) bernilai 0 (nol)? Tentu akan terjadi ERROR pada perhitungan tan (a) karena pembagian oleh nol? Untuk mengatasi hal itu kita akan buat suatu penyeleksian yang mana bila cos (a) bernilai nol maka akan ditampilkan tulisan “Maaf, tan (a) tidak terdefinisi” dan jika cos (a) tidak bernilai nol akan ditampilkan tan (a) = sin (a) / cos (a), kira-kira algoritmanya seperti diagram di bawah ini:

Jika algoritma di atas kita tuliskan di dalam bahasa pemrograman Pascal, maka sintaksnya akan berbentuk kira-kira seperti ini:

var a:real;
begin
write('input a! '); readln(a);
if (cos(a*Pi/180)) = 0 then writeln('Tan(',a,') tak terdefinisi') else
writeln('Tan(',a,')= ',sin(a*Pi/180)/cos(a*Pi/180));
readln
end.

Jika sintaks ini kita tulis pada bahawa pemrograman Pascal maka akan didapatkan fungsi tan (dalam bentuk degree/derjat), bagi teman yang ingin mendownload file aplikasi dari program ini dan file word (.doc) dari postingan ini dapat mendownloadnya di sini

Mencari drop tegangan yang sampai di suatu titik tertenu

Dalam sistem tenaga listrik, besar tegangan tegangan yang diterima oleh suatu tempat dengan tempat lainnya akan berbeda dari satu sumber tegangan yang sama, pasti tegangan yang diterima oleh tempat yang lebih jauh dari sumber tegangan akan lebih kecil dari pada tegangan yang diterima oleh tempat yang lebih dekat dengan sumber tegangan tersebut.

misal: Perhatikan gambar berikut!
TC Aluminium = 2 x 10 mm²
hambatan jenis Aluminium = 0,0286
V _sumber = 220 Volt

misalkan pada gambar di atas adalah gambar jaringan padaa tegangan rendah, dapat dilihat beban pada masing-masing lokasi,
beban A: 6 A
beban B: 6 A
beban C: 16 A
beban D: 16 A
beban E: 6 A

tegangan yang diterima di E lebih kecil dari tegangan yang diterima di D, karena E lebih jauh dari sumber tegangan dibanding D
tegangan yang diterima di D lebih kecil dari tegangan yang diterima di C, karena D lebih jauh dari sumber tegangan dibanding C
tegangan yang diterima di C lebih kecil dari tegangan yang diterima di B, karena C lebih jauh dari sumber tegangan dibanding B
tegangan yang diterima di B lebih kecil dari tegangan yang diterima di A, karena B lebih jauh dari sumber tegangan dibanding A
dengan kata lain V_(E)<V_(D)<V_(C)<V_(B)<V_(A) atau V_(A)>V_(B)>V_(C)>V_(D)>V_(E)

Bagaimana cara mencari besar tegangan yang diterima pada masing-masing titik? (Lihat pembahasan berikut!)

langsung saja lihat pembahasannya pada link di bawah ini:
http://sahabat-informasi.blogspot.com/2011/05/mencari-drop-tegangan-di-suatu-titik.html