300x250 AD TOP

Text Widget

pengunjung

Popular Content

AD (728x60)

CATEGORY >

Diberdayakan oleh Blogger.

Translate

Popular Posts

Senin, 30 Maret 2015

Tagged under:

Program Sorting IPK mahasiswa


uses crt;
type data=record
         nama,nim:string;
   ipk:real;
 end;

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

procedure input;
begin
 clrscr;
 writeln('+--------------------------+');
 writeln('| Jumlah Mahasiswa :   |');
 writeln('|---------------------------|');
 gotoxy(22,2);readln(n);
 for i:=1 to n do
 begin
  writeln('|---------------------------|');
   writeln('| Data ke-',i,'                |');
   writeln('|--------------------------|');
   writeln('| Nama  :                     |');
   writeln('| NIM   :                      |');
   writeln('| IPK    :                      |');
   writeln('+------------------------+');
  gotoxy(10,6+(6*(i-1)));readln(mhs[i].nama);
  gotoxy(10,7+(6*(i-1)));readln(mhs[i].nim);
  gotoxy(10,8+(6*(i-1)));readln(mhs[i].ipk);
 end;
end;

procedure kolom;
begin
 writeln('|           |                |      |');
 writeln('+-----------------------------------|');
end;

procedure output;
begin
 clrscr;
 writeln('+---------------------------------------------+');
 writeln('|       DATA NILAI MAHASISWA        |');
 writeln('|------------------------------------------------|');
 writeln('|    NIM    |               NAMA          | IPK  |');
 writeln('|------------------------------------------------|');
 writeln('|               |                                      |          |');
 for i:=1 to n do
 begin
  gotoxy(1,5+i);kolom;
  gotoxy(3,5+i);writeln(mhs[i].nim);
  gotoxy(15,5+i);writeln(mhs[i].nama);
  gotoxy(32,5+i);writeln(mhs[i].ipk:2:2);
 end;
readkey;
end;

procedure sort;
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;
 output;
end;

begin
input;
sort;
end.
2. Screenshot Program
Read More
rahmad bungsai 10.37  No comment

Minggu, 22 Maret 2015

Tagged under:

Program luas,keliling & volume kubus

uses crt;
function k(r:integer) : integer;
begin
if r<1 then
begin 
   k:=k(r-1);
end else
   k:=r;
end;
procedure lpk;
var r,lpk : integer;
begin
clrscr;
writeln('+---------------------------------+');
writeln('|     Luas Permukaan Kubus   |');
writeln('|----------------------------------+');
writeln('| Masukkan rusuk       :          |');
writeln('| Luas                         :           |');
writeln('+--------------------------------+');
gotoxy(26,4);readln(r);
lpk:=6*r*k(r);
gotoxy(26,5);writeln(lpk);
readln;
end;

procedure kk;
var
r,kk : integer;
begin
clrscr;
writeln('+------------------------------+');
writeln('|        Keliling Kubus         |');
writeln('|-------------------------------+');
writeln('| Masukkan rusuk       :      |');
writeln('| Luas                         :       |');
writeln('+------------------------------+');
gotoxy(26,4);readln(r);
kk:=12*k(r);
gotoxy(26,5);writeln(kk);
readln;
end;

procedure vk;
var
r,vk : integer;
begin
clrscr;
writeln('+-----------------------------+');
writeln('|         Volume Kubus        |');
writeln('|------------------------------+');
writeln('| Masukkan rusuk       :     |');
writeln('| Luas                          :     |');
writeln('+-----------------------------+');
gotoxy(26,4);readln(r);
vk:=r*k(r)*r;
gotoxy(26,5);writeln(vk);
readln;
end;

var pilih : char;
begin
repeat
clrscr;
writeln('+-------------------------+');
writeln('|          KUBUS            | ');
writeln('|---------------------------|');
writeln('| 1. Luas Permukaan     |');
writeln('| 2. Keliling Kubus       |');
writeln('| 3. Volume Kubus       |');
writeln('| 4. Keluar                    |');
writeln('|---------------------------|');
writeln('| Pilih  :                        |');
writeln('+-------------------------+');
gotoxy(12,9);readln(pilih);
case pilih of
'1' : lpk;
'2' : kk;
'3' : vk;
'4' : exit;
end;
until pilih = '4';
end.

2. Screenshoot program
Read More
rahmad bungsai 08.09  No comment

Sabtu, 14 Maret 2015

Tagged under:

Program Biodata Mahasiswa

1. Source Code


program biodatamahasiswa;
uses crt;
type rec = record
  nama : string;
  nim  : string[10];
  fak  : string;
  prodi : string;
  umur : integer;
end;
var data  : array[1..40] of rec;
       i,n   : integer;
       pilih : char;

procedure input;
begin
clrscr;
n:=0;
repeat;
clrscr;
inc(n);
writeln('+----------------------------+');
writeln('|------------------------------|');
writeln('|     Biodata Mahasiswa    |');
writeln('|-----------------------------|');
writeln('|-----------------------------|');
writeln('| Data     | ',n,'                      |');
with data[n] do
begin
writeln('|----------|------------------|');
writeln('| Nama     :                      |');
writeln('| NIM       :                      |');
writeln('| Fakultas :                      |');
writeln('| Prodi      :                      |');
writeln('| Umur     :     Tahun       |');
writeln('|-----------------------------|');
writeln('|-----------------------------|');
gotoxy(14,8);readln(nama);
gotoxy(14,9);readln(nim);
gotoxy(14,10);readln(fak);
gotoxy(14,11);readln(prodi);
gotoxy(14,12);readln(umur);
end;
writeln;
write('Input Data Lagi ? [Y/N]    : ');readln(pilih);
until ((pilih='n') or (pilih='N'));
end;

Procedure Kolom;
Begin
writeln('|                                 |                      |            |                        |                            |');
writeln('|________________|___________|______|_____________|______________|');
writeln('|-------------------------------------------------------------------------------|');
end;
Procedure Output;
Begin
clrscr;
writeln('+-------------------------------------------------------------------------------+');
writeln('|----------------------------------------------------------------------------------|');
writeln('|                                   BIODATA MAHASISWA                              |');
writeln('|----------------------------------------------------------------------------------|');
writeln('|_______________________________________________________|');
writeln('|     Nama      |    NIM        |    Umur      |   Fakultas     |       Prodi           |');
writeln('|__________|__________|__________|___________|_____________|');
writeln('|                    |                    |                    |                      |                          |');
for i:=1 to n do
begin
with data[i] do
begin
gotoxy(1,8+i);kolom;
gotoxy(3,8+i);writeln(nama);
gotoxy(20,8+i);writeln(nim);
gotoxy(32,8+i);writeln(umur);
gotoxy(39,8+i);writeln(fak);
gotoxy(53,8+i);writeln(prodi);
end;
end;
readkey;
end;

begin
repeat
clrscr;
writeln;
writeln('+---------------------------+');
writeln('|-----------------------------|');
writeln('|      MENU UTAMA    |');
writeln('|----------------------------|');
writeln('|----------------------------|');
writeln('| 1. | Masukkan Data     |');
writeln('| 2. | Lihat Data             |');
writeln('| 3. | Exit                       |');
writeln('|---------------------------|');
writeln('| Pilihan      |                 |');
writeln('|---------------------------|');
writeln('|---------------------------|');
gotoxy(18,11);readln(pilih);
case pilih of
'1' : input;
'2' : output;
'3' : exit;
end;
until (pilih)='3';
end.

2. Screenshot Program
 
 
Read More
rahmad bungsai 23.39  No comment
Langganan: Postingan (Atom)