Menghitung Hambatan

Jul 25, 2009 No Comments by Sahabat

Menghitung Hambatan 1 :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses wincrt;
 
var hambatan1,hambatan2,t   : real;
    a : char;
begin
  write ('hambatan 1            : ');readln (hambatan1);
  write ('hambatan 2            : ');readln (hambatan2);
  write ('kode pemasangan (p/s) : ');readln (a);
  if (a='p')or(a='P') then begin
    t := 1/((1/hambatan1)+(1/hambatan2));
  end
  else begin
    t := hambatan1 + hambatan2;
  end;
  writeln;
  writeln ('Hambatan total      :',t:1:2 );
end.

Menghitung Hambatan 2 :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses wincrt;
 
var hambatan1,hambatan2,t1,t2   : real;
    a : char;
begin
  write ('hambatan 1            : ');readln (hambatan1);
  write ('hambatan 2            : ');readln (hambatan2);
  write ('kode pemasangan (p/s) : ');readln (a);
  writeln;
  t1 := 1/((1/hambatan1)+(1/hambatan2));
  t2 := hambatan1+hambatan2;
  case a of
    'p': writeln ('total hambatan     : ',t1 :1:2);
    's': writeln ('total hambatan     : ',t2 :1:2);
  end;
end.

Gunawan Setya Putra
gunawansp@rocketmail.com

Kata Kunci

menghitung hambatan, rumus mencari hambatan, contoh program pascal menghitung nilai hambatan, program untuk menghitung hambatan rangkaian paralel dengan menggunakan bahasa pascal dalam array, program pascal mencari nilai pengganti tahanan, perintah menghitung hambatan di pascal, pascal hitung hambatan dengan procedure, menghitung hambatan paralel dengan pascal, membuat source code rumus hambatan dalam pascal, contoh tugas Pascal menghitung hasil pengukuran hambatan.

Pascal
Sahabat

Tentang Penulis

Penulis adalah sahabat-sahabat yg menyumbang tulisan di nusinau.com untuk dimuat dengan bijaksana. Silakan kirim tulisannya ke nusinau[at]gmail[dot]com atau ke admin[at]nusinau[dot]com. Butuh diskusi cepat? colek di twitter @nusinau
No Responses to “Menghitung Hambatan”

Leave a Reply

You must be logged in to post a comment.