Coding Pascal - GABUNGAN_MAX_DAN_RATA_RATA

/**
* Copyright (c) 2010 Alvin Aditya H
* GNU GPL License
*/

PROGRAM "GABUNGAN_MAX_DAN_RATA_RATA"
VAR
A : ARRAY [1..10] OF INTEGER;
I,J,K,MAX : integer;
TOTAL : INTEGER;
RATA2 : REAL;

Begin
FOR I := 1 TO 10 DO
begin
write('masukkan angka ',I,'= ');
READ(A[I]);
end;
MAX := A[1];
write('MAX = ');
FOR J := 2 TO 10 DO
IF MAX <= A[J] THEN MAX := A[J];
WRITELN(MAX);

Total := 0;
FOR K := 1 TO 10 DO TOTAL := TOTAL + A[K];
RATA2 := TOTAL / 10;
WRITELN('rata-rata= ',RATA2);
End.

READ MORE - Coding Pascal - GABUNGAN_MAX_DAN_RATA_RATA

Coding Pascal - Menampilkan rangkuman nilai

/**
* Copyright (c) 2010 Alvin Aditya H
* GNU GPL License
*
*
*/

uses crt;
type tabel=RECORD
kd:string[8];
mk:string[30];
sks:Integer;
n:char;
end;
var i : integer;
nama:string[20];
npm:string[8];
kelas:string[5];
aw:ARRAY[1..10]OF tabel;
tsks:integer;
mt:integer;
bobot:integer;
jmt:integer;
ipk:real;

BEGIN
clrscr;
tsks := 0;
jmt := 0;
writeln('masukkan Nama : ');readln(nama);
writeln('masukkan NPM : ');readln(npm);
writeln('masukkan Kelas : ');readln(kelas);
for i:=0 to 9 do
begin
writeln('masukkan kode : ');readln(aw[i].kd);
writeln('masukkan mata kuliah : ');readln(aw[i].mk);
writeln('masukkan sks : ');readln(aw[i].sks);
writeln('masukkan nilai(pake huruf gede) : ');readln(aw[i].n);
end;
writeln('Rangkuman Nilai Mahasiswa :');
writeln('---------------------------------------');
writeln('no| Kode | Mata Kuliah | SKS | Nilai |');
for i:=0 to 9 do
begin
writeln('|',i+1,'|',aw[i].kd,'|',aw[i].mk,'|',aw[i].sks,'|',aw[i].n,'|');
writeln('------------------------------------------------------------');
end;

for i:=0 to 9 do
tsks := tsks + aw[i].sks;
for i:=0 to 9 do
begin
case aw[i].n of
'A': bobot:= 4;
'B': bobot:= 3;
'C': bobot:= 2;
'D': bobot:= 1;
'E': bobot:= 0;
end;
mt := aw[i].sks*bobot;
jmt := jmt+mt;
end;
writeln('Total SKS yang diperoleh : ',tsks);
ipk := jmt/tsks;
writeln('Indeks prestasi kumulatif :',ipk);
readln;
END.

READ MORE - Coding Pascal - Menampilkan rangkuman nilai

Open source and free software is my choice

Yang tidak mengerti bhs.inggris, judul diatas artinya(Software sumber terrbuka dan software bebas adalah pilihanku)

Arti free software bukan berarti software gratis, melainkan software yang bebas dalam penggunaanya. Open source software berarti software yang kode sumbernya(koding) terbuka/boleh dilihat umum(public).
Open source dan free software harusnya bukan hanya menjadi pilihan saya seorang, melainkan juga harus menjadi pilihan semua masyarakat, untuk mencegah pembajakan.
Saat ini masih banyak orang yang menggunakan software bajakan. Untuk mengatasi hal ini free and open source software merupakan alternative. Misalnya mengganti Operating Sistem Windows dengan Linux yang free. Microsoft Office digganti dengan Open Office, Photoshop dengan Gimp, Corel Draw dengan Inkscape, dll.

Kalau masalah susah atau kesulitan dalam menggunakan software ini, ini hanya masalah kebiasaan dalam menggunakannya.

by alvin

READ MORE - Open source and free software is my choice

Etherape : a graphical network browser

Etherape dikembangkan oleh Juan Toledo, merupakan alat yang berfungsi untuk men-scan jaringan atau untuk membantu menganalisis jaringan. Etherape menampilkan aktivitas jaringan secara grafis. Host jaringan ditampilkan dalam gambar lingkaran dengan ukuran bervariasi sesuai dengan pengaturan "node size variabel" pada preferensi. Sedangkan lalu lintas antara host digambarkan dengan garis yang berwarna sesuai dengan jenis protokol yang digunakan. User dapat mengatur atau memilih mode protokol yang dipantau, seperti : ethernet, IP, TCP, Token Ring, FDDI. User dapat menampilkan window protokol melalui menu View. Window ini menyajikan keterangan yang lebih detail daari berbagai macam paket data yang tertangkap oleh etherape.

oleh alvin

READ MORE - Etherape : a graphical network browser