Program Seleksi dengan Pascal

Sebenarnya agak malu jg ngepostny...
Secara, di sini isinya master-master programming smw....
Tp sebagai awal permulaan, dan melatih mental, sekalgus, membagi ap yg didpt di SMA kemrn, so, Suci beranikan diri untuk ngepost..

Sebenarnya ini program mudah. Dalam bahasa pascal jg.

ini merupakan program seleksi....


PROGRAM SELEKSI;
USES CRT;
VAR
R, LB, P, T, A, KEL:INTEGER
L : REAL;
DDR,NAM,ALAM,TTL,HOBI,PIL,EXIT:CHAR;
CONST PHI = 3.14;

BEGIN
CLRSCR;

WRITELN('PILIHAN ANDA'); READLN(PIL);
CASE PIL OF
'A' : BEGIN
WRITELN('LUAS LINGKARAN');
WRITELN('MASUKKAN NILAI JARI - JARI'); READLN(R);
L:=PHI*R*R;
WRITELN('JADI LUAS LINGKARAN ADALAH :',L); READLN;
END;
'B' : BEGIN
WRITELN('LUAS SEGITIGA');
WRITELN('MASUKKAN NILAI ALAS'); READLN(A);
WRITELN('MASUKKAN NILAI TINGGI'); READLN(T);
L:=0.5*A*T;
WRITELN('JADI LUAS SEGITIGA ADALAH :',L); READLN;
END;
'C' : BEGIN
WRITELN('KELILING PERSEGI PANJANG');
WRITELN('MASUKKAN NILAI PANJANG'); READLN(P);
WRITELN('MASUKKAN NILAI LEBAR'); READLN(LB);
KEL:=2*(P+LB);
WRITELN('JADI KELILING PERSEGI PANJANG ADALAH :',L); READLN;
END;
'D' : BEGIN
WRITELN('DATA DIRI');
WRITELN('MASUKKAN BIODATA ANDA :'); READLN(DDR);
WRITELN('MASUKKAN NAMA ANDA :'); READLN(NAM);
WRITELN('MASUKKAN TEMPAT TANGGAL LAHIR ANDA :'); READLN(TTL);
WRITELN('MASUKKAN HOBI ANDA :'); READLN(HOBI);
END;
ELSE
WRITELN('EXIT');
END;
READLN;
END.





Semoga posting selanjutnya, apa yang diposting bisa lebih naik tingkat lagi. Amin..... :belajar3:

A+ : SP + 1 To Irham (26 Nov 2010)

salah kira....
aku kira program seleksi tes CPNS tadi.... :malu2:
rupanya switch - case... :maaf2: :maaf2:

cuma sedikit menambahkan

Spoiler:

supaya terjadi switch - case (ada pilihan dan kasusnya).... :upil2:

mohon untuk poting code menggunakan fasilitas yang disediakan [ code ] isi code [ /code ] tanpa spasi..

Rajin-Rajin Posting Ya

Kalo Bisa Ikutan Lomba HIMATIF FORUM COMPETETION

Iy kak. Mklum, suci banyk belum tau fasilitas2 ny.... jarang otak atk...




Iy Ri, suci usahakan untuk rajin posting.....

yg rajin posting na ea

Irham wrote:

Sebenarnya agak malu jg ngepostny...
Secara, di sini isinya master-master programming smw....
Tp sebagai awal permulaan, dan melatih mental, sekalgus, membagi ap yg didpt di SMA kemrn, so, Suci beranikan diri untuk ngepost..

Sebenarnya ini program mudah. Dalam bahasa pascal jg.

ini merupakan program seleksi....


PROGRAM SELEKSI;
USES CRT;
VAR
R, LB, P, T, A, KEL:INTEGER
L : REAL;
DDR,NAM,ALAM,TTL,HOBI,PIL,EXIT:CHAR;
CONST PHI = 3.14;

BEGIN
CLRSCR;

WRITELN('PILIHAN ANDA'); READLN(PIL);
CASE PIL OF
'A' : BEGIN
WRITELN('LUAS LINGKARAN');
WRITELN('MASUKKAN NILAI JARI - JARI'); READLN(R);
L:=PHI*R*R;
WRITELN('JADI LUAS LINGKARAN ADALAH :',L); READLN;
END;
'B' : BEGIN
WRITELN('LUAS SEGITIGA');
WRITELN('MASUKKAN NILAI ALAS'); READLN(A);
WRITELN('MASUKKAN NILAI TINGGI'); READLN(T);
L:=0.5*A*T;
WRITELN('JADI LUAS SEGITIGA ADALAH :',L); READLN;
END;
'C' : BEGIN
WRITELN('KELILING PERSEGI PANJANG');
WRITELN('MASUKKAN NILAI PANJANG'); READLN(P);
WRITELN('MASUKKAN NILAI LEBAR'); READLN(LB);
KEL:=2*(P+LB);
WRITELN('JADI KELILING PERSEGI PANJANG ADALAH :',L); READLN;
END;
'D' : BEGIN
WRITELN('DATA DIRI');
WRITELN('MASUKKAN BIODATA ANDA :'); READLN(DDR);
WRITELN('MASUKKAN NAMA ANDA :'); READLN(NAM);
WRITELN('MASUKKAN TEMPAT TANGGAL LAHIR ANDA :'); READLN(TTL);
WRITELN('MASUKKAN HOBI ANDA :'); READLN(HOBI);
END;
ELSE
WRITELN('EXIT');
END;
READLN;
END.





Semoga posting selanjutnya, apa yang diposting bisa lebih naik tingkat lagi. Amin..... :belajar3:

ajrin donkk kax suciii??? :bingung1: :bingung1: :bingung1:

Quote :

ajrin donkk kax suciii???

Ajarinn ap??? itu tu program standar dan sangat sederhana... smw orang bs membwtny... :belajar3: