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, Bahasa pascal mengukur hambatan, mencari t2 pada hambatan, menghitung hambatan bahasa pascal, syntak menghitung tahanan pada turbo pascal.

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.