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 hambatan, cara membuat menghitung nilai resistor pada program free pascal, contoh program perulangan for mencari resistor total, menghitung nilai hambatan menggunakan program perulangan, menghitung resistor total menggunakann if else.

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.