Menghitung Power Distribution AM menggunakan perintah Procedure pada Pascal

     Pada kesempatan kali ini, saya membuat progrma untuk menghitung Power Distribution AM DSBFC dengan menggunakan Procedure pada aplikasi Turbo Pascal. Program ini saya buat untuk mempermudah dalam menghitung atau mencari nilai-nilai yang ada pada Power Distribution AM seperti Daya pada LSB dan USB (Psb) dan Total Daya AM DSBFC.

     Berikut adalah flowchart atau alur mengenai program tersebut:

     Berikut ini adalah struktur program dengan menggunakan aplikasi Turbo Pascal:

program Menghitung_Power_Distribution_AM;
uses crt;

var
   Pc, m, R, Ec, Psb, Pt, pilihan, r_Psb, r_Pt: real;

procedure f_Psb(f_Pc, f_m: real; var result: real);

   begin
       result := ((f_Pc * f_m * f_m) / 2);

end;

procedure f_Pt(f_Pc, f_m: real; var result: real);
begin
result := (f_Pc * (1 + ((f_m * f_m) / 2)));

end;

begin
clrscr;
writeln('     PROGRAM MENGHITUNG POWER DISTRIBUTION AM   ');
writeln(' ');
writeln(' ');
write('Masukkan Nilai Ec : ');
readln(Ec);
writeln;
writeln('--------------------------------------------------');
writeln('-----------------------MENU-----------------------');
writeln(' ');
writeln('[1] Menghitung Daya USB dan LSB (PSB)');
writeln('[2] Menghitung Total Daya AM DSBFC');
writeln(' ');
write('Masukkan pilihan : ');
readln(pilihan);
writeln(' ');
writeln('--------------------------------------------------');


if (pilihan = 1) then
begin
write('Masukkan nilai R : ');
readln(R);
write('Masukkan nilai m : ');
readln(m);

Pc := ((Ec * Ec) / (2 * R));
f_Psb(Pc, m, r_Psb);

writeln('Nilai Psb = ', r_Psb:2:2, ' Watt');
end

else if (pilihan = 2) then
begin
write('Masukkan nilai R : ');
readln(R);
write('Masukkan nilai m : ');
readln(m);

Pc := ((Ec * Ec) / (2 * R));
f_Pt(Pc, m, r_Pt);
writeln('Nilai Pt = ', r_Pt:2:2, ' Watt');


end
else
begin
writeln('salah input');
end;

readln;
end.

     Dan berikut ini adalah tampilan dari hasil program yang dibuat:

Semoga Bermanfaat.....

Read More

Spesifikasi Register Intel Core i3

     Dalam arsitektur komputer, register prosesor adalah sejumlah kecil memori komputer yang bekerja dengan kecepatan sangat tinggi yang digunakan untuk melakukan eksekusi terhadap program-program komputer dengan menyediakan akses yang cepat terhadap nilai-nil;ai yang umum digunakan.

     Mikroprosesor yang sering digunakan dalam komputer saat ini adalah mikroprosesor yang dikeluarkan oleh Intel. Mikroprosesor yang sudah dikeluarkan oleh Intel yang semakin canggih yaitu mikroprosesor jenis Core i3, Core i5, dan Core i7. Ketiga mikroprosesor tersebut memiliki spesifikasi yang tinggi, namun yang tertinggi ialah jenis Core i7. 

     Pada kesempatan ini, kami akan mengulas tentang spesifikasi register pada mikroprosesor Intel jenis Core i3. Register terdapat beberapa bagian yaitu General Purpose Register, Index Register, Pointer Register, Segment Register, dan Flag Register. Pada prosesor intel core i3 ini merupakan prosesor 64 bit. 

Berikut adalah spesifikasi register core i3:

Refrensi: 

https://www.quora.com/How-many-registers-are-there-in-modern-64-bit-CPUs-like-intel-core-i5-or-i7

https://en.wikibooks.org/wiki/X86_Assembly/X86_Architecture

https://id.wikipedia.org/wiki/Register_prosesor

Read More

Menghitung Power Distribution AM menggunakan Function

     Pada kesempatan kali ini, saya membuat progrma untuk menghitung Power Distribution AM DSBFC dengan menggunakan Function pada aplikasi Turbo Pascal. Program ini saya buat untuk mempermudah dalam menghitung atau mencari nilai-nilai yang ada pada Power Distribution AM seperti Daya pada LSB dan USB (Psb) dan Total Daya AM DSBFC.

     Berikut adalah flowchart atau alur mengenai program tersebut:

     Berikut ini adalah struktur program dengan menggunakan aplikasi Turbo Pascal:

program Menghitung_Power_Distribution_AM;

uses crt;

function f_Psb(f_Pc, f_m: real): real;

var result: real;

begin

result := ((f_Pc * f_m * f_m) / 2);

f_Psb := result;

end;

function f_Pt(f_Pc, f_m: real): real;

var result: real;

begin

result := (f_Pc * (1 + ((f_m * f_m) / 2)));

f_Pt := result;

end;

var

Pc, Ec, R, m, Psb, Pt, pilihan : real;

begin

clrscr;

writeln('     PROGRAM MENGHITUNG POWER DISTRIBUTION AM   ');

writeln(' ');

writeln(' ');

write('Masukkan Nilai Ec : ');

readln(Ec);

writeln;

writeln('--------------------------------------------------');

writeln('-----------------------MENU-----------------------');

writeln(' ');

writeln('[1] Menghitung Daya USB dan LSB (PSB)');

writeln('[2] Menghitung Total Daya AM DSBFC');

writeln(' ');

write('Masukkan pilihan : ');

readln(pilihan);

writeln(' ');

writeln('--------------------------------------------------');

if (pilihan = 1) then

begin

write('Masukkan nilai R : ');

readln(R);

write('Masukkan nilai m : ');

readln(m);

Pc := ((Ec * Ec) / (2 * R));

Psb := f_Psb(Pc, m);

writeln('Nilai Psb = ', Psb:2:2, ' Watt');

end

else if (pilihan = 2) then

begin

write('Masukkan nilai R : ');

readln(R);

write('Masukkan nilai m : ');

readln(m);

Pc := ((Ec * Ec) / (2 * R));

Pt := f_Pt(Pc, m);

writeln('Nilai Pt = ', Pt:2:2, ' Watt');

end

else

begin

writeln('salah input');

end;

readln;

end.

     Dan berikut ini adalah tampilan dari hasil program yang dibuat:

Semoga Bermanfaat.....

Read More