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.
