Jumat, 15 Juli 2011
Rabu, 18 Mei 2011
membuat program pascal menggunakan array dalam record
uses wincrt;
type tb_mhs=record
nim:longint;
nama:string;
nilai:integer;
end;
var
mhs:array[1..10] of tb_mhs;
a,b,ke:integer;
tukar:tb_mhs;
pilih:char;
posisi:array[1..10] of integer;
begin
pilih:='y';
while ((pilih='y') or (pilih='Y')) do
begin
ke:=ke+1;
writeln;
writeln('masukkan data mahasiswa ke ',ke,' :');
writeln('===================================');
write('masukkan nim : ');readln (mhs[ke].nim);
write('masukkan nama : ');readln (mhs[ke].nama);
write('masukkan nilai: ');readln(mhs[ke].nilai);
writeln('====================================');
write('ingin tambah mahasiswa ? y/t: ');readln(pilih);
end;
for a:=1 to ke do
begin
for b:=a+1 to ke do
begin
if mhs[a].nilai
tukar:=mhs[a];
mhs[a]:=mhs[b];
mhs[b]:=tukar;
end;
clrscr;
for a:=1 to ke do
begin
writeln;
writeln(' tabel mahasiswa ');
writeln('--------------------------');
writeln('no | nim | nama | nilai |');
writeln('==========================');
for a:=1 to ke do
writeln(a:4,'|',mhs[a].nim:7,'|',mhs[a].nama:8,'|',mhs[a].nilai:8,'|');
writeln('--------------------------');
writeln;
end;
end;
end.
type tb_mhs=record
nim:longint;
nama:string;
nilai:integer;
end;
var
mhs:array[1..10] of tb_mhs;
a,b,ke:integer;
tukar:tb_mhs;
pilih:char;
posisi:array[1..10] of integer;
begin
pilih:='y';
while ((pilih='y') or (pilih='Y')) do
begin
ke:=ke+1;
writeln;
writeln('masukkan data mahasiswa ke ',ke,' :');
writeln('===================================');
write('masukkan nim : ');readln (mhs[ke].nim);
write('masukkan nama : ');readln (mhs[ke].nama);
write('masukkan nilai: ');readln(mhs[ke].nilai);
writeln('====================================');
write('ingin tambah mahasiswa ? y/t: ');readln(pilih);
end;
for a:=1 to ke do
begin
for b:=a+1 to ke do
begin
if mhs[a].nilai
mhs[a]:=mhs[b];
mhs[b]:=tukar;
end;
clrscr;
for a:=1 to ke do
begin
writeln;
writeln(' tabel mahasiswa ');
writeln('--------------------------');
writeln('no | nim | nama | nilai |');
writeln('==========================');
for a:=1 to ke do
writeln(a:4,'|',mhs[a].nim:7,'|',mhs[a].nama:8,'|',mhs[a].nilai:8,'|');
writeln('--------------------------');
writeln;
end;
end;
end.
Selasa, 10 Mei 2011
Selasa, 29 Maret 2011
Cara Membuat Tulisan Berjalan Di Addressbar
Hari ini saya akan membahas tentang tulisan berjalan di addressbar.
berikut cara-caranya :
1. masuk ke blog kamu.
2. lalu masuk ke rancangan, kemudian edit html.
3. masukkan script berikut ini di atas </head> :
berikut cara-caranya :
1. masuk ke blog kamu.
2. lalu masuk ke rancangan, kemudian edit html.
3. masukkan script berikut ini di atas </head> :
Jumat, 25 Maret 2011
Perbedaan WiFi dan WiMax
Lain dengan WLAN yang sudah banyak dikenal, WiMAX baru mulai di-publish dan baru beberapa negara yang melakukan trial atau implementasi. WiMAX merupakan kependekan Worldwide Interoperability for Microwave Access dimana merupakan pengembangan dari WLAN. Masing-masing diantara keduanya WLAN dan WiMAX mempunyai potensi dan keunggulan sehingga keduanya akan saling mendukung dalam implementasinya.
Delphi
Dalam pertemuan kali ini saya akan membahas tentang delphi...
Mengenal Delphi
Delphi adalah penterjemah bahasa Delphi (awalnya dari Pascal) yang merupakan bahasa tingkat tinggi sekelas dengan Basic dan C. Bahasa Pemrograman di Delphi disebut bahasa procedural artinya bahasa/sintaknya mengikuti urutan tertentu/prosedur. Ada jenis pemrograman no-prosedural seperti pemrograman untuk kecerdasan buatan seperti bahasa Prolog. Delphi termasuk keluarga Visual sekelas Visual Basic, Visual C, artinya perintah-perintah untuk membuat objek dapat dilakukan secara visual. Pemrogram tinggal memilih objek apa yang ingin dimasukan kedalam Form/Window, lalu tingkah laku objek tersebut saat menerima event/aksi tinggal dibuat programnya. Delphi merupakan bahasa berorentasi objek, artinya nama objek, property dan methode/procedure dikemas menjadi satu kemasan (encapsulate).Sebelum mempelajari ketiga struktur pemrograman ada baiknya kenali dahulu tampilan IDE, yang merupakan editor dan tools untuk membuat program Delphi. Pada IDE akan ditampilkan Form baru yang merupakan aplikasi/program Window yang akan dibuat.
Langganan:
Postingan (Atom)


