MENGHITUNG JUMLAH LILITAN SEKUNDER PADA TRAFO PADA PASCAL
Transformator merupakan suatu peralatan listrik yang digunakan untuk
mengubah besaran tegangan
arus listrik bolak-balik (AC), seperti menaikkan atau menurunkan tegangan
listrik (voltase). Transformator bekerja berdasarkan prinsip fluks listrik dan
magnet dimana antara sisi sumber (primer) dan beban (sekunder) tidak terdapat
hubungan secara fisik tetapi secara elektromagnetik (induksi-elektromagnet). Pengertian
Lilitan Primer Dan Sekunder adalah definisi dari lilitan pada transformator,
baik itu transformator step-up maupun transformator step down .
Pengertian lilitan sekunder adalah kebalikannya dari lilitan primer ,
yaitu dimana lilitan yang berfungsi mengubah tegangan AC 220
volt menjadi tegangan AC yang lebih tinggi ataupun lebih rendah, tergantung
dari jenis trafo itu sendiri.
Dimana :
Np = Jumlah lilitan primer
LISTING PROGRAM
program Jumlah_sekunder;
uses crt;
Label Menu;
Function Rumus(Np,Vs : real):real;
begin
Rumus :=(Np*Vs)/220;
end;
var
x,y:real;
a :char;
Pada bagian pertama blog adalah sebagai penamaaan program dengan memasukkan rumus yaitu (Np*Vs)/220 di deklarasikan sebagai bilangan bulat atau variabel bernilai var , x,y:real , a :char.
begin
clrscr;
writeln('Menghitung Jumlah sekunder pada trafo');
Menu:
writeln('ingin melanjutkan?[Y/N]');
readln(a);
if (a = 'Y') or (a = 'y') then
begin
writeln('anda yakin?[Y/N]');
readln(a);
if (a = 'Y') or (a = 'y') then
begin
writeln('Masukan Jumlah Lilitan Primer = ');
readln(x);
writeln('Masukan Jumlah Tegangan sukunder = ');
readln(y);
write('Tegangan output yang diperoleh =
',rumus(x,y):3:5);
readln;
writeln('\n Program utama sudah berakhir, keluar tekan
Y kembali tekan N');
readln(a);
if (a = 'Y') or (a = 'y') then
Dan di blok
kedua terdapat begin untuk memulai perhitungan dalam program sebagai menghitung jumlah sekunder pada trafo , jika 'anda yakin?[Y/N]' pilih "Y" dan "y" dengan Memasukan nilai jumlah lilitan primer dan Masukkan nilai jumlah lilitan sekunder, dan dapatlah tegangan output yang di perolah dengan rumus (x,y) atau rumus (Np*Vs)/220 ini sama saja fungsinya. Setelah itu Program utama sudah berakhir, keluar tekan Y kembali tekan N' , jika tekan (a = 'Y') or (a = 'y') maka program akan keluar.
begin
writeln('Program telah selesai Terima kasih');
end
else
begin
goto menu;
end
Dan di blok ketiga terdapat begin untuk memulai dalam program , dan terdapat progaram telah selesai terima kasih jadi progaram ini di nyatakan selesai . dan goto menu merupakan percabangan dari program
end
else if (a =
'N') or (a = 'n') then
begin
writeln('Anda
Memilih untuk tidak melanjutkan');
readln;
end
else
begin
writeln('Keyword
yang anda masukan tidak terdapat dalam pilihan');
readln;
goto menu;
end
end
else if (a = 'N') or (a = 'n') then
begin
writeln('Anda Memilih untuk tidak melanjutkan');
readln;
end
else
begin
writeln('Keyword yang anda masukan tidak terdapat dalam
pilihan');
readln;
goto menu;
end
end
Dan di blok keempat jika (a = 'N') or (a = 'n') jika “NO” maka ketik dan pilih “N” , lalu muncul lalu anda
“memilih untuk tidak melanjutkan” kemudian akan masuk ketampilan seperti awal
untuk menghitung sekunder pada trafo dan memasukan angka seperti sebelumnya dan
seterusnya . dan muncul Keyword yang anda masukan tidak terdapat dalam pilihan goto menu merupakan percabangan dari program . End bagian untuk mengakhiri program.