Halaman

Pengikut

Rabu, 11 Mei 2011

Tabel

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



1

Minggu, 08 Mei 2011

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

Jumat, 06 Mei 2011

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 mm2
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

Daftar Isi

asdkjfhkadsjfdsfdsfdsfjdsfk hdskjfh kdsjfhkjs adhfkjash dkjfh sadkjfh kadsjfh kjladshf kjladshf hdskjf hadskjhfkj ashdfkljh dsakjfh sdhfkl jadshfkjl hadskjf hkdsjlhf kjdshlkhkadshf kjhdsfjkhdskfj hkjdgshksdhgkjdshf kjhdsfkj hasdkjfh kjasdhf kjasdhfaskdjfh adsjghasdkjl asdfh s adsjh dsfh sdhkldshf hkasfh kladshf khsdkf hasdfkj hdsakhfkjldshf shdj fhsadk fjhkjdshf kjadshf dshaf kadshfk jhdsalfk hadslfh ldsjfh dskjfh kjdshf kjldshfkjl dshf klhsdklajhfdsk ajhfadskjhfdskajfh kjdsfhksjdfh kjash dfkjhdsk aljhfskadhf sjd

Followers

Buku tamu untuk sahabat

 

Copyright © 2009 by coretan sahabat