Newest Post
// Posted by :Unknown
// On :Rabu, 01 Juni 2016
PROGRAM MENGHITUNG NILAI SERI ATAU PARALEL INDUKTOR
Listing
Program :
Uses
crt;
Var
Pilih
: integer;
L1
: integer;
L2
: integer;
Pada
blok1 merupkan deklarasi variabel dengan semua variabel bertipe integer untuk
menyatakan angka
Write
('1. Seri'); writeln;
Write
('2. Paralel'); writeln;
Writeln
('silakan pilih paralel atau seri:');
readln
(pilih);
Pada
blok2 merupakan pilihan untuk menghitung inductor parallel atau seri
Begin
Writeln
(‘masukan nilai L1 dan L2 ‘);
Writeln
('masukkan nilai L1 :') ; read (L1);
Writeln
('masukkan nilai L2 :') ; read (L2);
Pada
blok3 merupakan input nilai L1 dan L2
case
pilih of
1:
writeln ('Anda memilih Seri hasilnya =
', (L1+L2));
2:
writeln ('Anda memilih Paralel hasilnya =
', ((1 / L1)+(1 / L2)));
Pada
blok4 merupakan rumus perhitungan induktor seri atau parallel dengan
menggunakan operator.
else
writeln
('Mohon maaf anda memilih yang tidak ada di pilihan');
lanjutan
blok4 merupakan pengecualian pilihan yang tidak ada di dalam pilihan.
end;
writeln;
readln;
end.
Blok
terakhir yang merupakan perintah untuk menampilkan hasil dan menghentikan
program.
OUTPUT PROGRAM :
FLOWCHART