Kabar Terbaru

Contoh Program Sederhana Pascal - Kalkulator (Penjumlahan,Pengurangan,Perkalian,Pembagian,Sisa Hasil Bagi,Pangkat) Function IF & Label
Kalkulatorku - Program Sederhana Pascal



Program Kalkulatorku;
Uses Crt;
        Var
       aP:string;
       Pilih,N1,N2,NP,TotalN,iP:Integer;
       xP,TotalB:Real;

Label Menu,Penjumlahan,Pengurangan,Perkalian,Pembagian,SBagi,Pangkat,Keluar;

Begin
Menu:
clrScr;
WriteLn('===================== KalkulatorKu =========================');
WriteLn('> 1. Penjumlahan                                           <');
WriteLn('> 2. Pengurangan                                           <');
WriteLn('> 3. Perkalian                                             <');
WriteLn('> 4. Pembagian                                             <');
WriteLn('> 5. Sisa Bagi Hasil                                       <');
WriteLn('> 6. Pangkat                                               <');
WriteLn('> 0. Keluar                                                <');
WriteLn('============================================================');
ReadLn(Pilih);

if Pilih=1 then
begin
goto Penjumlahan;
end
        else
if Pilih=2 then
begin
goto Pengurangan;
end
        else
if Pilih=3 then
begin
goto Perkalian;
end
        else
if Pilih=4 then
begin
goto Pembagian;
end
        else
if Pilih=5 then
begin
goto SBagi;
end
        else
if Pilih=6 then
begin
goto Pangkat;
end
        else
begin
goto Keluar;
end;


Penjumlahan:
Write('Masukan Nilai Pertama : '); ReadLn(N1);
Write('Masukan Nilai Kedua   : '); ReadLn(N2);
WriteLn('============================================================');
TotalN:=N1+N2;
WriteLn('Hasil ' , N1 , ' + ' , N2 , ' Adalah ' , TotalN);
ReadLn;
Goto Menu;

Pengurangan:
WriteLn('Masukan Nilai Pertama : '); ReadLn(N1);
WriteLn('Masukan Nilai Kedua   : '); ReadLn(N2);
WriteLn('============================================================');
TotalN:=N1-N2;
WriteLn('Hasil ' , N1 , ' - ' , N2 , ' Adalah ' , TotalN);
ReadLn;
Goto Menu;

Perkalian:
WriteLn('Masukan Nilai Pertama : '); ReadLn(N1);
WriteLn('Masukan Nilai Kedua   : '); ReadLn(N2);
WriteLn('============================================================');
TotalN:=N1*N2;
WriteLn('Hasil ' , N1 , ' x ' , N2 , ' Adalah ' , TotalN);
ReadLn;
Goto Menu;

Pembagian:
WriteLn('Masukan Nilai Pertama : '); ReadLn(N1);
WriteLn('Masukan Nilai Kedua   : '); ReadLn(N2);
WriteLn('============================================================');
TotalB:=N1/N2;
WriteLn('Hasil ' , N1 , ' : ' , N2 , ' Adalah ' , TotalB);
ReadLn;
Goto Menu;

SBagi:
WriteLn('Masukan Nilai Pertama : '); ReadLn(N1);
WriteLn('Masukan Nilai Kedua   : '); ReadLn(N2);
WriteLn('============================================================');
TotalN:=N1 Mod N2;
WriteLn('Hasil Sisa ' , N1 , ' : ' , N2 , ' Adalah ' , TotalN);
ReadLn;
Goto Menu;

Pangkat:
WriteLn('================= Hanya Program 2 Pangkat ==================');
Write('Masukan Nilai Asli           : '); ReadLn(NP);
Write('Masukan Nilai Pangkat Berapa : '); ReadLn(N1);
WriteLn('============================================================');
xP:=1;
for iP:=1 to N1 do
begin
xP:=xP*NP;
end;
WriteLn('Hasil ' ,N1 , ' Pangkat ' , NP , ' Adalah ' , xP:0:2);
ReadLn(aP);
Goto Menu;


Keluar:
WriteLn('>>>>>>>>>>>>> Thanks You For Using My Program <<<<<<<<<<<<<<');
WriteLn('                    By : Ronny Liem                         ');
WriteLn('============================================================');
WriteLn('                Press Any Keys For Exit ....                ');
ReadLn;

end.

Subscribe to receive free email updates:

0 Response to "Contoh Program Sederhana Pascal - Kalkulator (Penjumlahan,Pengurangan,Perkalian,Pembagian,Sisa Hasil Bagi,Pangkat) Function IF & Label "

Post a Comment