Hubungan antara daya trafo, tegangan primer, arus primer, tegangan sekunder, dan arus sekunder, dapat dinyatakan :
Daya trafo = Vp. Ip => Ip = Daya Trafo/Vp
Daya trafo = Vs. Is => Is = Daya Trafo/Vs
Vp = tegangan primer (volt)
Vs = tegangan sekunder (volt)
Np = jumlah lilitan primer
Ns = jumlah lilitan sekunder
Penulis mencoba membuat sebuah program pascal dengan menggunakan procedure.
Listing program sebagai berikut :
Flowchart di atas :