GreEnLine

Melihat senyuman disana

2009-01-04T06:10:00.000-08:00

ALGORITMA PROGRAM MAHASISWA

2009-01-02T07:07:00.001-08:00

{ALGORITMA PROGRAMNYA}

program mahasiswa
uses crt

type siswa=record
nama,alamat:string
nim:longint
ipk:real
endrecord

type larik=array [1..100] of siswa

/* kamus */
mhs:siswa
a,n,indeks:integer
l:larik

procedure insertion_sort(kamus a:larik size:integer)
kamus
i,j:integer
temp:longint
tempnama,tempalamat:string
tempipk:real
/* algoritma prosedur */
begin
for i <-- 2 to size do
begin
temp <-- a[i].nim
j <-- i
while((j>1) and (temp begin
a[j].nim <-- a[j-1].nim

tempnama <-- a[j].nama
a[j].nama <-- a[j-1].nama
a[j-1].nama <-- tempnama

tempalamat <-- a[j].alamat
a[j].alamat <-- a[j-1].alamat
a[j-1].alamat <-- tempalamat

tempipk <-- a[j].ipk
a[j].ipk <-- a[j-1].ipk
a[j-1].ipk <-- tempipk

j <-- j-1
endwhile
a[j].nim <-- temp
endfor
endprocedure

procedure find_max(a:larik size:integer)
/* kamus */
i:integer
max:real
/* algoritma prosedur */
begin
indeks <-- 1
for i <-- 2 to size do
begin
if (a[i].ipk>a[indeks].ipk) then
indeks <-- i
endfor
endprocedure

/* algoritma program utama */
begin
clrscr
output('masukkan banyak mahasiswa : ')input(n)
clrscr
for a <-- 1 to n do
begin
output('masukkan nim : ')input(l[a].nim)
output('masukkan nama : ')input(l[a].nama)
output('masukkan alamat : ')input(l[a].alamat)
output('masukkan ipk : ')input(l[a].ipk)
outputln
endfor
insertion_sort(l,n)
clrscr
for a <-- 1 to n do
begin
outputln('nim : ',l[a].nim)
outputln('nama : ',l[a].nama)
outputln('alamat : ',l[a].alamat)
outputln('ipk : ',(l[a].ipk):0:2)
outputln
endfor
find_max(l,n)
outputln('IPK TERTINGGI')
outputln('nim : ',l[indeks].nim)
outputln('nama : ',l[indeks].nama)
outputln('alamat : ',l[indeks].alamat)
outputln('ipk : ',(l[indeks].ipk):0:2)
input
end.

(*============== coding PASCALnya ==============*)

program mahasiswa;
uses crt;

type siswa=record
nama,alamat:string;
nim:longint;
ipk:real;
end;

type larik=array [1..100] of siswa;

var
mhs:siswa;
a,n,indeks:integer;
l:larik;

procedure insertion_sort(var a:larik; size:integer);
var
i,j:integer;
temp:longint;
tempnama,tempalamat:string;
tempipk:real;
begin
for i:=2 to size do
begin
temp:=a[i].nim;
j:=i;
while((j>1) and (tempa[indeks].ipk) then
indeks:=i;
end;
end;

begin
clrscr;
write('masukkan banyak mahasiswa : ');readln(n);
clrscr;
for a:=1 to n do
begin
write('masukkan nim : ');readln(l[a].nim);
write('masukkan nama : ');readln(l[a].nama);
write('masukkan alamat : ');readln(l[a].alamat);
write('masukkan ipk : ');readln(l[a].ipk);
writeln;
end;
insertion_sort(l,n);
clrscr;
for a:=1 to n do
begin
writeln('nim : ',l[a].nim);
writeln('nama : ',l[a].nama);
writeln('alamat : ',l[a].alamat);
writeln('ipk : ',(l[a].ipk):0:2);
writeln;
end;
find_max(l,n);
writeln('IPK TERTINGGI');
writeln('nim : ',l[indeks].nim);
writeln('nama : ',l[indeks].nama);
writeln('alamat : ',l[indeks].alamat);
writeln('ipk : ',(l[indeks].ipk):0:2);
readln;
end.

arti hijau

2008-11-12T11:41:00.000-08:00

hijau sejukkan jiawa ini dikala merah terlalu menusuk dimata ini hijau netralkan jiwa dari merahnya amarah.

hijau mungkin adalah jiwa yang terpendam dalam warna, jiwa yang tenang dan tentram memberikan sejuk. mengalir dari ciptaan Allah yaitu tumbuhan nan indah dan hamparan hutan kekayaan indonesia...

oleh karena itu jangan renggut hijau dari jiwa kita, dari negara kita tercinta... Indonesia.

Hari Terindah Untuk Cinta

2008-11-12T11:30:00.000-08:00

hari terindah sesungguhnya adalah setiap hari, untuk semua yang telah diber dan mengalun dalam hati. berikan cinta di harimu...

harimu akan indah oleh cinta, karena kita hidup karena cinta..cinta untuk-Nya, dan orang2 yang kita cintai.

berikan cinta seakan kamu sebelumnya menggenggam dalm gelap, terangkan dan bukalah di atas tanganmu untuk semua :)

logo Prolab

2008-11-12T11:20:00.000-08:00

Kegiatan Prolab

2008-11-12T11:07:00.000-08:00

banyak yag bisa dilakukan di lab ini, kelas IF-32-04 saja memakai lab ini untuk kegiatan praktikumnya antara lain praktikum internet dan praktikum pemrograman komputer. dengan komputer yang ala kadarnya dan meskipun tidak sebanding dengan sumbangan dari mahasiswA, laboraturium ini berjalan layaknya atau bisa dikatakan juga "mungkin" tanpa hambatan berarti. hehehe...

coba kita lirik dari komputer, cukup dengan monitor layang cembung bak kucing sedang mengandung dan dengan pc yang ala kadarnya juga, bisa dibilang sudah mensyukuri pemberian-Nya. "mungkin" dikarenakan fungsi lab ini yang terbatas jadi fasilitasnya ala kadaranya tp alangkah bagusnya dikalau monitor yang langsing aja (coba deh pakai galian singset), terus pc yang hmm...ckuplah buat ngegame, biar ada hiburan gitu...(mensejahterakan kk2 aslab dan penggunanya). hehehe...

Prolab Secara General

2008-11-12T10:00:00.000-08:00

prolab (programming laboratory) adalah sebuah wadah anak informatika untuk menyalurkan keinginan dalam belajar di bidangnya (pemrograman).

prolab di IT Telkom lumayan enak, bersama mbak2 asprak/aslab yang "mungkin" ramah2 juga cantik2 dan mas2 yang "mungkin" ganteng, tapi masih "mungkin" karena belum terlalu mengenal dan dikenal. mungkin 1 tahun, 2 tahun atau 50 tahun ke depan...hmm.. masih "mungkin" juga kenal. pokoknya semua mungkin.

ngomong2 tentang "mungkin", mungkin prolab akan menjadikan mahasiswa yang tergolong angkatan baru seperti saya bisa terampil dan berkompetensi di dalam bidang informatika.

letaknya berada di kampus IT Telkom Gedung F lantai 3,.

wah...wah... berikut foto mbak2-mas2 aslab/asprak :