Newest Post
// Posted by :Unknown
// On :Selasa, 12 April 2016
PROGRAM PERCABANGAN PASCAL
MENCARI TEGANGAN.
Listing
program:
Uses
crt;
Var
r1,r2,I : integer
Total
: integer
Begin
Clrscr;
Write(‘masukan
nilai resistor :’)
Writeln;
Write
(‘nilai R1 :’)
Readln(r1);
Write
(‘nilai R2’);
Readln(r2);
Total
:= r1+r2;
If
(total>0)
Then
write (‘lanjut’);
If
(total<0)
Then
write(‘periksa lagi’);
Write
(‘masukan nilai I :’);
Writeln:
readln(i);
V
:= I*total ;
Writeln(V);
If
(V>0)
Then
write (‘HASIL BENAR’);
If
(V<0)
Then
write (‘HASIL SALAH’);
Readln;
End.
Penjelasan
Uses
crt;
Var
r1,r2,I : integer
Total
: integer
V
: integer
Blok
1 : merupakan penamaan program dengan r1,r2,total,I,v dideklarsaikan sebagai
bilangan bulat atau “integer”.
Clrscr;
Write(‘masukan
nilai resistor :’)
Writeln;
Write
(‘nilai R1 :’)
Readln(r1);
Write
(‘nilai R2’);
Readln(r2);
Total
:= r1+r2;
If
(total>0)
Then
write (‘lanjut’);
If
(total<0)
Then
write(‘periksa lagi’);
Blok
2 : adalah perhitungan resistor seri dengan memasukan nilai R1 dan R2, jika
nilai total lebih dari 0 maka program
akan menampilkan “lanjut” jika kurang dari 0 “periksa lagi” dan program akan
stop sampai nilai resistor lebih dari 0.
Write
(‘masukan nilai I :’);
Writeln:
readln(i);
V
:= I*total ;
Writeln(V);
If
(V>0)
Then
write (‘HASIL BENAR’);
If
(V<0)
Then
write (‘HASIL SALAH’);
Readln;
End.
Blok
3 : lanjutan dari blok 2 jika nilai resistor lebih dari 0, maka program akan
meminta memasukan nilai “I” dan memulai menghitung program mencari nilai
tegangan atau “V” jika nilai “V” lebih dari 0 maka program akan menampilakan
hasilnya dan menuliskan “HASIL BENAR”). Jika kurang dari 0 program akan
menuliskan “HASIL SALAH”.
FLOW CHART