Official Blog Riza Susanto: Maret 2015

Selasa, 31 Maret 2015

Tugas Praktikum Ke-4 Algoritma Pemrograman II

1. Source Code
uses crt;
type data= record
nama, nim: string;
ipk : real;
end;

var
mhs : array [1..100] of data;
i, j, n, temp : integer;
pilih : char;

procedure input;
begin
clrscr;
write('Masukkan jumlah mahasiswa : ');
readln(n);
for i := 1 to n do

begin
clrscr;
writeln('Masukkan Data ke- ', i);
writeln('______________________');
write ('Nama : '); readln(mhs[i].nama);
write ('NIM : '); readln(mhs[i].nim);
write ('IPK : '); readln(mhs[i].ipk);
end;
end;

procedure tampil;

begin
clrscr;
writeln(' ** Tampilkan Data Mahasiswa **');
writeln;
writeln;
writeln('|-----------------------------------------------|');
writeln('| NIM | Nama | IPK |');
writeln('|-----------------------------------------------|');
for i:=1 to n do
begin
gotoxy(1,6+i); writeln('|');
gotoxy(14,6+i); writeln('|');
gotoxy(43,6+i); writeln('|');
gotoxy(49,6+i); writeln('|');
gotoxy(3,6+i); writeln(mhs[i].nim);
gotoxy(16,6+i); writeln(mhs[i].nama);
gotoxy(44,6+i); writeln(mhs[i].ipk:2:2);
end;

writeln('|-----------------------------------------------|');
readkey;
end;

procedure selection;
var max: integer;
temp: data;

begin
for i:=1 to n-1 do
begin
max:=i;
for j:= i+1 to n do
if mhs[j].ipk> mhs[max].ipk then
max:=j;
temp:= mhs[max];
mhs[max]:= mhs[i];
mhs[i]:= temp;
end;
tampil;
end;

begin
input;
selection;
end.

2. Output Program
2.1. Input Program

Gambar 2.1

2.2. Output Program

Gambar 2.2

Minggu, 22 Maret 2015

Tugas Praktikum Ke-3 Algoritma Pemrograman II

1. Source Code Program "Rumus Ruas Balok"
Program Bangun_Ruas_Bola;
uses crt;
var luas,volume,p,l,t :integer;
const
x=2;
begin
clrscr;
writeln('BANGUN RUAS BALOK');
writeln;
write('Panjang : ');readln(p);
write('Lebar : ');readln(l);
write('Tinggi : ');readln(t);
luas:=x*(p*l+p*t+l*t);
volume:=p*l*t;
writeln;
writeln;
writeln('Luas Pemukaan Balok : ',luas);
writeln('Volume Balok : ',volume);
readkey;
end.