PROGRAM KONVERSI BILANGAN DESIMAL KE BINER, MENGHITUNG NILAI RATA-RATA, MENAMPILKAN BINTANG DAN MENGHITUNG PANGKAT

PROGRAM KOMPUTER (TURBO PASCAL)

1. Buatlah program untuk mengkonversi bilangan desimal ke bilangan biner !
Penyelesaian : 

program Mengkonversi Bilangan Desimal Ke Biner;
uses crt;
var
Des : integer;
Bin : string;
begin
        writeln('===================================');
        writeln('====Konversi Bilangan Desimal Ke Biner====');
        writeln('===================================');
        writeln('=========JIMMI TAMISL==============');
        writeln('============4016018=================');
        writeln('========V B MATEMATIKA============');
        writeln('===================================');
        writeln;
        write ('Masukan Bilangan Desimal : ');
        readln (Des);
        Bin := ' ';
        repeat
        begin
        if Des mod 2 = 0 then Bin := '0' + Bin
        else Bin := '1' + Bin;
        Des := Des div 2;
        end;

        until Des = 0;
        writeln;
        writeln('Hasil Konversi');
        writeln('==============');
        writeln;
        WriteLn ('Bilangan Biner : ',Bin);
end.

2. Buatlah program rata-rata sejumlah data (bilangan), misal output program sebagai berikut :
    Program Rata-rata
    Banyaknya data : 4
    Masukkan data :
    Data ke-1 = 4
    Data ke-2 = 2
    Data ke-3 = 4
    Data ke-4 = 6
    Jumlah Total = 16.00
    Penyelesaian :

    Program HitungRataRata;
    uses wincrt;
    type
    Data = array[1..100] of real;
    var
    Nilai : Data;
    i,N : integer;
    jum,rata2 : real;
    begin
                writeln('==================================');
                writeln('======Menghitung Nilai Rata-Rata========');
                writeln('==================================');
                writeln('=========JIMMI TAMISL=============');
                writeln('============4016018================');
                writeln('========V B MATEMATIKA===========');
                writeln('==================================');
                writeln;
                write('Jumlah data yang diproses (max 100) : ');
                readln(N);
                jum:=0;
                writeln;
                for i:=1 to N do
                begin
                write('Nilai ke-',i,' : ');
                readln(Nilai[i]);
                jum:=jum+Nilai[i];
                end;
                rata2:=jum/N;
                writeln;
                writeln('Total nilai = ',jum:8:2);
                writeln('Nilai Rata-Rata = ',rata2:8:2);
end.


3. Buatlah program untuk mencetak tanda bintang (*) sehingga didapatkan output sebagai berikut :
     Jumlah Baris : 5

            **
          ****
        ******
      ********
    **********
    Penyelesaian :

    Program Menampilkan_Bintang;
    Uses Wincrt;
    var i, j, n: integer;
    Begin
                writeln (‘==================================‘);
                writeln (‘=====Program Menampilkan Bintang======’);
                writeln('==================================');
                writeln('=========JIMMI TAMISL=============');
                writeln('============4016018================');
                writeln('========V B MATEMATIKA==========');
                writeln (‘=================================‘);
                writeln ;
                Write (‘Masukan Jumlah Baris: ‘); readln (n);
                For i:=0 to n-1 do
                Begin
                For j:=1 to (2+2*i) do
                write (‘* ‘);
                writeln;
                end;
End.


4. Buatlah program untuk menghitung perpangkatan bilangan bulat. Misal output program seperti di          bawah ini :
    Program Menghitung Pangkat Bilangan
    ============================
    Masukkan Bilangan : 4
    Masukkan Pangkat : 3
    Hasil : 4^3 = 64.00
    Penyelesaian :

    Program Menghitung_Pangkat;
    Uses crt;
    Var i,n,m: integer;
    x: real;
    Begin
                Writeln('============================================');
                Writeln('==========Program Menghitung Pangkat=============');
                Writeln('============================================');
                Writeln('=============JIMMI TAMISL===================');
                Writeln('===============4016018=======================');
                Writeln('===========V B MATEMATIKA==================');
                Writeln('============================================');
                Writeln;
                Write('Masukkan Jumlah Pangkat : ');readln(n);
                Write('Masukkan Bil. Yang DiPangkat : ');readln(m);
                Writeln;
                x:=1;
                if (n>0) then
                For i:= 1 to n do
                x:=x*m
                else if (n=0) then
                x:=1
                else
                begin
                n:=-1*n;
                For i:= 1 to n do
                begin
                x:=x*(1/m);
                end;
                end;
                Writeln('Hasil Pangkat: ',x:6:2);
End.