HomeHome  PortalPortal  CalendarCalendar  GalleryGallery  FAQFAQ  SearchSearch  MemberlistMemberlist  UsergroupsUsergroups  RegisterRegister  Log inLog in  

Share | 
 

 Program Seleksi dengan Pascal

View previous topic View next topic Go down 
AuthorMessage
Irham
Anggota
Anggota


Jumlah posting : 68 Age : 26
Lokasi : Taman Langit

PostSubject: Program Seleksi dengan Pascal   Mon Nov 08, 2010 2:36 pm

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)
Back to top Go down
View user profile
Elank_kiRa
Anggota
Anggota


Jumlah posting : 162 Age : 28
Lokasi : Utama kamar 1

PostSubject: Re: Program Seleksi dengan Pascal   Mon Nov 08, 2010 10:44 pm

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..
Back to top Go down
View user profile
A+
Admin
Admin


Jumlah posting : 448 Age : 26
Lokasi : Bengkulu

PostSubject: Re: Program Seleksi dengan Pascal   Tue Nov 09, 2010 8:29 am



Rajin-Rajin Posting Ya

Kalo Bisa Ikutan Lomba HIMATIF FORUM COMPETETION

_________________
Berapa Nilai Dari Kasih Dan Cinta ? , Kasih Dan Cinta Hanya Lah Nafsu Belaka

Berapa Nilai Dari Duka Dan Benci ? , Duka Dan Benci Hanya Lah Keluhan Manusia
Back to top Go down
View user profile http://ariakbarsyah.weebly.com
Irham
Anggota
Anggota


Jumlah posting : 68 Age : 26
Lokasi : Taman Langit

PostSubject: Re: Program Seleksi dengan Pascal   Tue Nov 09, 2010 8:51 am

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




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

Back to top Go down
View user profile
manggala
Newbie
Newbie


Jumlah posting : 36 Age : 25
Lokasi : Bengkulu

PostSubject: Re: Program Seleksi dengan Pascal   Sun Nov 14, 2010 10:03 pm

yg rajin posting na ea
Back to top Go down
View user profile
vonder DVC
Anggota
Anggota


Jumlah posting : 227 Age : 25
Lokasi : bengkulu

PostSubject: Re: Program Seleksi dengan Pascal   Tue Nov 16, 2010 7:51 pm

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:
Back to top Go down
View user profile http://www.dvc16.blogspot.com
Irham
Anggota
Anggota


Jumlah posting : 68 Age : 26
Lokasi : Taman Langit

PostSubject: Re: Program Seleksi dengan Pascal   Sat Nov 27, 2010 9:40 pm

Quote :
ajrin donkk kax suciii???

Ajarinn ap??? itu tu program standar dan sangat sederhana... smw orang bs membwtny... :belajar3:
Back to top Go down
View user profile
Sponsored content




PostSubject: Re: Program Seleksi dengan Pascal   Today at 3:36 pm

Back to top Go down
 
Program Seleksi dengan Pascal
View previous topic View next topic Back to top 
Page 1 of 1
 Similar topics
-
» bercanda dengan LOGIKA
» bedanya ninja 250 dengan ninja 250 se
» HELP!!! beda MOTUL 5100 dengan MOTUL H-TECH
» WTA-Bedanya pake Open Filter dengan Replacement Air Filter
» [ASK] beda nya Master Rem Radial dengan yang Biasa

Permissions in this forum:You cannot reply to topics in this forum
 :: Kampus HIMATIF UNIB :: Software And Programming Room-
Jump to: