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, menghitung hambatan bahasa 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.