program resistansi_listrik;
uses wincrt;
var
R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,Rtot :real;
A, B, n : integer;
procedure nilai_A;
Function Rs1(R4,R5,R6:real):real;
begin
Rs1 :=(R4+R5+R6);
end;
function Rs2(R7,R8:real):real;
begin
Rs2 :=(R7+R8);
end;
function Rp(Rs2,Rs1:real):real;
begin
Rp := (Rs1*Rs2)/(Rs1+Rs2);
end;
begin
gotoxy (26,3);writeln('Hambatan
Lisrtik');
gotoxy (4,5);writeln (' Hambatan
listrik disimbolkan dengan R, kependekan dari resistor),');
gotoxy (3,6);writeln ('dengan
satuan ohm.');
gotoxy (3,7);writeln (' Susunannya
terbagi menjadi 2 yakni susunan paralel dengan disimbol');
GOTOXy (3,8);writeln ('-kan Rp dan
susunan seri dengan simbol Rs.');
gotoxy (3,9);writeln
('Rumusannya:');
gotoxy (12,10);writeln ('[[ 1 = 1 +
1 +.....1 ]]');
gotoxy (12,11);writeln ('[[ - - - -
]]');
gotoxy (12,12);writeln ('[[ Rp R1
R2 Rn ]]');
writeln;
writeln;
gotoxy (12,15);writeln ('[[ Rs =
R1+R2+....+Rn ]]');
writeln;
writeln;
gotoxy (3,16);writeln ('
*Diketahui');
gotoxy (5,17);writeln ('Susunan
resistor listrik terpasang antara seri dan paralel,mengandung');
gotoxy (3,18);writeln ('10
resistor. R4,R5,R6 disusun secara seri (Rs1) dan diparalelkan Rs2 ');
gotoxy (3,19);writeln ('yang
terdiri dari R7 dan R8. Sealnjutnya antara Rs1 dan R2 yang telah');
gotoxy (3,20);writeln
('diparalelkan diserikan oleh R1,R2.R3,R9,R10.');
gotoxy (3,21);writeln (' *Dihitung
hambatan total...');
gotoxy (3,22);writeln ('
*Penyelesaian');
gotoxy (4,23); write ('R1=
');read(R1);
gotoxy (4,24); write ('R2=
');read(R2);
gotoxy (4,25); write ('R3=
');read(R3);
gotoxy (4,26); write ('R4=
');read(R4);
gotoxy (4,27); write ('R5=
');read(R5);
gotoxy (4,28); write ('R6=
');read(R6);
gotoxy (4,29); write ('R7=
');read(R7);
gotoxy (4,30); write ('R8=
');read(R8);
gotoxy (4,31); write ('R9=
');read(R9);
gotoxy (4,32); write ('R10=
');read(R10);
gotoxy (10,15);write ('ohm');
gotoxy (10,16);write ('ohm');
gotoxy (10,17);write ('ohm');
gotoxy (10,18);write ('ohm');
gotoxy (10,19);write ('ohm');
gotoxy (10,20);write ('ohm');
gotoxy (10,21);write ('ohm');
gotoxy (10,22);write ('ohm');
gotoxy (10,23);write ('ohm');
gotoxy (10,24);write ('ohm');
writeln;
gotoxy (3,35);writeln ('[[ Rs1 = R4
+ R5 + R6 ]]');
writeln;
gotoxy (3,37);writeln ('[[ Rs2 = R7
+ R8 ]]');
writeln;
gotoxy (3,39);writeln ('[[ 1 = 1 +
1 ]]');
gotoxy (3,40);writeln ('[[ - - -
]]');
gotoxy (3,41);writeln ('[[ Rp Rs1
Rs2 ]]');
gotoxy (3,43);writeln
('Rtot=Rp+R1+R2+R3+R9+R10');
writeln;
writeln (' *Hasil');
Rtot
:=Rp(Rs1(R4,R5,R6),Rs2(R7,R8))+R1+R2+R3+R9+R10;
writeln (' Hambatan total=
',Rtot:3:3,' ohm');
writeln;
writeln;
writeln;
end;
procedure nilai_B;
begin
writeln;
writeln;
writeln;
writeln (' You want repeat this
program?');
writeln (' if yes press number
"1", but not to repeat press number "0"'); readln(n);
begin
if n = 1 then
begin
clrscr;
nilai_A;
nilai_B;
end;
begin
IF N= 0 THEN
CLRSCR;
writeln;
writeln;
writeln;
writeln;
writeln(' Mempersembahkan');
writeln;
writeln;
writeln('
()"""""() "@ ()"""""()
"@');
writeln(' (.(:).) "@@@@
(.(:).) "@@@@');
writeln(' =(,,)==(")<-
data-blogger-escaped-br="">WRITELN(' (" "),,("
") "@@@ (" "),,(" ") "@@@');
WRITELN;
WRITELN;
writeln(' .!!!.');
WRITELN(' .:!!!!!:. ');
WRITELN(' (".)!!!!!!!!!:... ');
writeln;
writeln;
writeln (' THANK`S FOR YOUR ATTENTION');
writeln (' --------------------------');
writeln;
end;
end;
end;
{program utama}
begin
nilai_A;
nilai_B;
end.
WRITELN;
WRITELN;
writeln(' .!!!.');
WRITELN(' .:!!!!!:. ');
WRITELN(' (".)!!!!!!!!!:... ');
writeln;
writeln;
writeln (' THANK`S FOR YOUR ATTENTION');
writeln (' --------------------------');
writeln;
end;
end;
end;
{program utama}
begin
nilai_A;
nilai_B;
end.
Komentar
Posting Komentar