Kamis, 24 September 2020

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.

PROGRAM MENGHITUNG BIAYA PERCETAKAN (TURBO PASCAL)

Menghitung biaya percetakan

1. Program Menghitung biaya percetakan;

    Uses crt;
    Var p,l,b,lp,biaya:real;
    Begin
            Writeln(‘kalkulator perusahaan percetakkan’);
            Writeln(‘ukuran cetak panjang’);readln(p);
            Writeln(‘ukuran cetak lebar’);readln(l);
            Lp:=p*l;
            B:=lp*25000;
            Writeln(‘biaya total cetak =’,b);readln(b);
            Writeln;
            If lp <=100 then
            Writeln (‘biaya total cetak =’,lp); readln(lp);
            Begin
            Writeln(‘luas persegi’);readln(lp);
            Biaya:=lp*25000;
            Writeln(‘biaya total cetak=’,biaya);readln(biaya);
            End;
            Writeln (‘luas persegi’);readln(lp)
            If (lp>=100) then
            Biaya:=lp*15000;
            Writeln(‘biaya total cetak=’,biaya)readln(lp);
            Readln;
            Begin
            Writeln(‘luas persegi’);readln(lp);
            If lp <= 300 then
            Biaya:=lp*20000;
            Writeln(‘biaya total cetak=’,biaya);readln(lp)
            Readln;
            End;
End.

POGRAM MENGHITUNG TARIF OJEK ONLINE (TURBO PASCAL)

Komputer pemrograman

1. Program hit_tarif_ojek_online

    Uses crt;
    Var j,b,biaya:real;
    Pilih:integer;
    Begin
    Repeat
    Clrscr;
                Writeln( ‘ tarif hitungan ojek online’);
                Writeln( ‘ 1. Ojek online grabbike’);
                Writeln( ‘ 2. Ojek online gojek ‘);
                Writeln( ‘ 3. Keluar ‘);
                Writeln(‘ pilih 1-3’);readln(pilih);
                Case pilih of
                1:begin
                Writeln( ‘ jarak tempuh perjalanan ‘ );readln(j);
                b : = j*1500;
                writeln(‘biaya perjalanan ojek grabbrike=’ , b);readln(b);
                end;
                2:begin
                Writeln(‘jarak tempuh perjalanan’);readln(j);
                B:=j*2000;
                Writeln(‘biaya perjalanan ojek grojek=’ ,b);readln(b);
                Readln;
                If ( biaya <=10) and (biaya <=15) then
                Writeln(‘biaya perjalanan gojek’)
                Else
                Writeln(‘bukan biaya peralanan gojek’);
                Readln;
                End;
                3:begin
                Writeln(‘keluar’);
                Readln;
                End;
                End;
                Until ( pilih =3);
                Readln;
End .