ALL ABOUT INFORMATION: March 2011

PROGRAM MENU PADA TURBO PASCAL

Untuk Program yang lebih populer klik ini

INPUT

USES CRT;

VAR

PANJANG :INTEGER;

LEBAR :INTEGER;

SISI :INTEGER;

JARI_JARI :INTEGER;

X :INTEGER;

LEBEL 10,20,30,40,50;

BEGIN

50:

CLRSCR;

GOTOXY(30,2);

WRITELN('----------------------');

GOTOXY(40,4);

WRITELN('MENU');

GOTOXY(30,5);

WRITELN('----------------------');

GOTOXY(33,7);

WRITELN('1. PERSEGI PANJANG');

GOTOXY(33,9);

WRITELN ('2. BUJUR SANGKAR');

GOTOXY(33,11);

WRITELN('3. LINGKARAN');

GOTOXY(33,13);

WRITELN('4. KELUAR');

GOTOXY(30,15);

WRITELN('=======================');

GOTOXY(23,19);

WRITE('MASUKAN NOMOR YANG ANDA INGINKAN : '); READLN (X);

IF X = 1 THEN

GOTO 10;

IF X =2 THEN

GOTO20;

IF X = 3 THEN

GOTO 30;

IF X = 4 THEN

GOTO 40;

IF X > 4 THEN

WRITELN ('ANDA SALAH MEMILIH NIMOR');

WRITELN('TEKAN ENTER');

READLN;

GOTO 50;

10:

WRITE ('MASUKAN PANJANG : '); READLN (PAMJAMG);

WRITE ('MASUKAN LEBAR : '); READLN (LEBAR);

WRITELN;

WRITELN ('LUAS PERSEGI PANJANG ADLAH : ', PANJANG * LEBAR);

WRITELN ('TEKAN ENTER');

GOTO 50;

20:

WRITE ('MASUKAN SISI : '); READLN(SISI);

WRITELN;

WRITELN('LUAS PERSEGI ADLAH : ', SISI * SISI);

WRITELN('TEKAN ENTER');

GOTO 50;

30:

WRITE ('MASUKAN JARI-JARI;); READLN (JARI_JARI);

WRITELN;

WRITELN ('LUAS LINGKARAN ADALAH : ', 3.14 * JARI_JARI * JARI_JARI);

READLN;

GOTO 50;

40:

WRITELN ('TEKAN ENTER');

WRITELN (THANK YOU');

READLN;

END.

OUTPUT

===================

1. PERSEGI PANJANG

2. PERSEGI

3. LONGKARAN

4. KELUAR

JIKA ANDA MEMILIH 1

MASUKAN PANJANG :

MASUKAN LEBAR :

LUAS PERSEGI PANJANG ADALAH :

KEMBALI KE MENU

JIKA ANDA MEMILIH 2

MASUKAN SISI :

LUAS PERSEGI ADALAH :

KEMBALI KE MENU

JIKA ANDA MEMILIH 3

MASUKAN JARI-JARI :

LUAS LINGKARAN ADLAH :

KEMBALI KE MENU

JIKA ANDA TIDAK MEMILIH 1 - 4

ANDA SALAH MEMASUKAN NOMOR

TEKAN ENTER

KEMBALI KE MENU

JIKA ANDA MEMILIH 4

AKAN KELUAR DENGAN STATEMENT

THANK YOU

TEKAN ENTER

FUNGSI DARI STATEMENT – STATEMENT

1. Uses crt

• Digunakan agar perintah clrscr dapat dikerjakan.

2. Variabel

• Digunakan untuk mengelompokan variable yang akan digunakan yang biasanya berisikan data integer, real,character, string.

1. Real, digunakan untuk angka 1,2,3,4…

2. Charcter, dapat digunakan untuk angka dan huruf.

3. Integer, digunakan untuk bilangan baik itu pecahan maupun bulat.

4. string, digunakan untuk menyimpan data berbentuk huruf.

3. String

• Digunakan untuk menyimpan suatu data berbentuk text. Yang bisa dikombinasikan dengan readln.

4. Begin

• Langkah untuk memulai suatu program yang keberadaannya mutlak.

5. CLRSCR

• Digunakan untuk membersihkan layar output. Statement ini boleh digunakan ataupun tidak. Hanya saja jika anda ingin membersihkan layar output anda, agar tidak bertumpukan dengan program anda yang lainya.

6. Write

• Digunakan untuk mencetak langsung pada output dan didampingi oleh readln. Agar program dapat dieksekusi.

7. Writeln

• Digunakan untuk langsung mencetak pada output tanpa didampingi oleh readln. Yang mana apabila tidak didampingi oleh readln program tersebut tetap dapat dieksekusi.

8. Readln

• Untuk membaca variable yang telah dituliskan. Dengan statement ini write dapat dieksekusi.

9. IF

• Merupakan suatu kondiai. Yang bila terpenuhi ia masih tetap akan terus memproses

10. CASE OF

• Merupakan suatu kondisi. Yang bila sudah menemui syarat atau syaratnya telah dipenuhi dia akan berhenti menu ke END. Artinya perintah tersebut hanya dapat memenuhi satu syarat

11. END;

• Digunakan untuk penutup dari CASE. Berfungsi seperti end bagi begin.

12. FOR TO DO

• Digunakan untuk menghasilkan deret. Dalam FOR TO DO ia akan terus memproses sampai akhit\rnya batas ketentuan yang diberikan atau syaratnya terpenuhi.

UNIVERSITAS GUNADARMA

ILMU BUDAYA DASAR

SISTEM INFORMASI

2010-2011

PENGGUNAAN SELECT CASE, IF THEN ELSE, DAN FOR TO DO PADA TURBO PASCAL

Untuk Program Yang lebih populer silahkan klik ini

INPUT :

USES CRT;

VAR

P :INTEGER;

BEGIN

CLRSCR;

WRITELN ('MENU');

WRITELN ('1. ANAK');

WRITELN ('REMAJA');

WRITELN (SEGALA UMUR');

WRITE ('PILIHAN ANDA : ',(P);

WRITELN;

CASE P OF

WRITELN ('NARUTO JAM 10.00');

WRITELN ('DRAGON BALL JAM 11.00');

WRITELN ('SINCHAN JAM 12.00;);

END;

READLN;

END.

Merupakan program menu yang menggunakan SELECT CASE. Pada program kali ini kita harus membuat variabelnya terlebih dahulu. Seperti variable x dengan tipe data string. Yang nanti akan digunakan untuk memasukan pilihan dari satu sampai 3. dan setelah mendapatkan syarat ia akan langsung memprosesnya.

OUTPUT :

1. ANAK

2. REMAJA

3. SEGALA UMUE

PILIHAN ANDA :

JIKA ANDA MEMILIH

1 AKAN MUNCUL NARUTO JAM 10.00

2. AKAN MUNCUL DRAGON BALL JAM 11.00

3. AKAN MUNCUL SINCHAN JAM 12.00

Ini merupakan output dari program di atas. Terdapat 3 pilihan yang masing-masing pilihan memiliki pilihan sendiri. Dan pada writeln pilihan anda dimasukan pilihan nomor 2. dan yang tercetak adalah film dragon ball jam 11.00. dan program selesai saat itu juga. Dan hanya akan memproses yang pertama kali memenuhi syarat.

INPUT :

USES CRT;

VAR

NILAI :INTEGER;

BEGIN

CLRSCR;

WRITE ('MASUKAN NILAI : ',9NILAI);

IF (NILAI >= 80) AND (NILAI <= 100) THEN WRITE ('NILAI ANDA A') ELSE IF (NILAI >= 70) AND (NILAI <= 79) THEN WRITE ('NILAI ANDA B') ELSE IF (NILAI >= 60) AND (NILAI <= 69) THEN

WRITE ('NILAI ANDA C') ELSE

WRITE ('NILAI ANDA D');

READLN;

END.

Merupakan program penghitung nilai yang menggunakan IF THEN ELSE. Kondisi tersebut berbeda dengan SELECT CASE. Yang mana bila telah syarat terpenuhi, ia akan terus memprosesnya sampai ia menemukan end. Else digunakan pada terakhir kalimat yang berguna untuk memberikan pilihan lain

OUTPUT :

MASUKAN NILAI :

NILAI ANDA :

JIKA MEMASUKAN 90 AKAN TERCETAK A

JIKA MEMASUKAN 70 AKAN TERCETAK B

JIKA MEMASUKAN 60 AKAN TERCETAK C

JIKA MEMASUKAN 40 AKAN TERCETAK D

Merupakan output dari program IF THEN ELSE. Dan pada writeln masukan nilai, dimasukan nilai 90 dan syarat tersebut menghasilkan output A. artinya hanya output tersebut yang memenuhi. Jika ada syarat lain yang terpenuhi maka pada output bisa saja bukan hanya A yang keluar

INPUT :

USES CRT;

VAR

I :INTEGER;

CLRSCR;

FAOR I := 1 TO 5 DO

WRITELN ('INDRA');

READLN;

END.

Merupakan program meenggunakan kondisi FOR TO DO. Pada statement tersebut dituliskan for I = 1 to 5 do. Artinya I akan memberikan ruang yang akan tercetak sebanyak 5 baris. Namun sebelum membuatnya kita harus mendefinisikan suatu variable untuk I. agar dapat terbaca dalam pemrosesannya.

OUTPUT :

INDRA

Merupakan output dari program FOR TO DO. Dan pada output tercetak PASCAL sebanyak 5. tercetak ke bawah karena menggunakan writeln. Jika menggunakan write akan tercetak ke samping. Dan pada statement tertuliskan 1 to 5. dan artinya program tersebut benar. Karena tercetak 5 kata.

FUNGSI DARI STATEMENT – STATEMENT

1. Uses crt

• Digunakan agar perintah clrscr dapat dikerjakan.

2. Variabel

• Digunakan untuk mengelompokan variable yang akan digunakan yang biasanya berisikan data integer, real,character, string.

1. Real, digunakan untuk angka 1,2,3,4…

2. Charcter, dapat digunakan untuk angka dan huruf.

3. Integer, digunakan untuk bilangan baik itu pecahan maupun bulat.

4. string, digunakan untuk menyimpan data berbentuk huruf.

3. String

• Digunakan untuk menyimpan suatu data berbentuk text. Yang bisa dikombinasikan dengan readln.

4. Begin

• Langkah untuk memulai suatu program yang keberadaannya mutlak.

5. CLRSCR

6. Write

• Digunakan untuk mencetak langsung pada output dan didampingi oleh readln. Agar program dapat dieksekusi.

7. Writeln

• Digunakan untuk langsung mencetak pada output tanpa didampingi oleh readln. Yang mana apabila tidak didampingi oleh readln program tersebut tetap dapat dieksekusi.

8. Readln

• Untuk membaca variable yang telah dituliskan. Dengan statement ini write dapat dieksekusi.

9. IF

• Merupakan suatu kondiai. Yang bila terpenuhi ia masih tetap akan terus memproses

10. CASE OF

• Merupakan suatu kondisi. Yang bila sudah menemui syarat atau syaratnya telah dipenuhi dia akan berhenti menu ke END. Artinya perintah tersebut hanya dapat memenuhi satu syarat

11. END;

• Digunakan untuk penutup dari CASE. Berfungsi seperti end bagi begin.

12. FOR TO DO

• Digunakan untuk menghasilkan deret. Dalam FOR TO DO ia akan terus memproses sampai akhit\rnya batas ketentuan yang diberikan atau syaratnya terpenuhi.

UNIVERSITAS GUNADARMA

ILMU BUDAYA DASAR

PROGRAM SEDERHANA TURBO PASCAL

Untuk Program Yang lebih populer silahkan klik ini

INPUT :

USES CRT;

VAR

NAMA :STRING;

NPM :STRING;

BEGIN

CLRSCR;

GOTOXY (25,2);

WRITELN ("===========================")

GOTOXY (38,3);

WRITELN ("BIODATA");

GOTOXY (25,4);

WRITELN ("===========================")

GOTOXY(30,7);

WRITE ("NAMA"); READLN (NAMA);

GOTOXY(30,9);

WRITE ("NPM"); READLN (NPM);

WRITELN;

GOTOXY(25,13);

WRITELN ("ANDA BERNAMA : ", NAMA);

GOTOXY(25,15);

WRITELN ("NPM ANDA : ", NPM);

WRITELN;

READLN;

END.

Program di atas menggunakan statement write, writeln, readln, dan gotoxy. Kegunaan dan write dengan writeln itu berbeda. Write digunakan untuk menulis atau mencetak dengan diikuti oleh readln. Yang kegunaannya untuk memasukan nilai pada output. Yang kemudian akan diproses.

Dalam memulai tahap pembuatan program. Harus di mulai dengan begin. Dan diakhiri dengan end, disertai tanda titik dibelakng end. Barulah kita masukan statement statement diantara begin dan end. Jika tidak melakukan langkah tersebut maka program tidak akan jalan.

OUTPUT

=================================

BIODATA

=================================

NAMA :

NPM :

ANDA BERNAMA :

NPM ANDA :

Ini adalah output dari program di atas. Dengan program mengenai biodata. Demgam menekan ctrl + F9 kita mengeksekusi program tersebut. Dengan menulis di output dan dapat mencetak langsung di output tersebut

INPUT :

USES CRT;

BEGIN

CLRSCR;

GOTOXY(18,3);

WRITELN ("============================");

GOTOXY(18,4);

WRITELN ("== ==");

GOTOXY(18,5);

WRITELN ("== ==");

GOTOXY(18,6);

WRITELN ("== ==");

GOTOXY(25,5);

WRITELN("HALO SAYA INDRA DWI NUGROHO");

GOTOXY(18,7);

WRITELN("=============================");

READLN;

END.

Ini adalah program sederhana yang hanya dibuat dengan statement writeln dengan readln. (itupun sudah cukup). Tanda garis putus-putus tersebut berfungsi untuk menghasilkan bingkai pada output. Dan statement gotoxy digunakan untuk memposisikan writeln yang akan dibuat

Sama seperti semua program dimulai dengan begin dan diakhiri dengan end. Clrscr digunakan untuk membersihkan layer output yang mana habis digunakan sebelumnya. Statement ini boleh di gunakan ataupun tidak. Namun sebaiknya digunakan agar layer output bersih. Dan yang ada hanya poutput dari program yang baru kita kerjakan.

OUTPUT :

==================================

== ==

== HALOSAYA INDRA DWI NUGROHO ==

== ==

==================================

Ini adalah output dari program di atas. Dengan program mengenai biodata. Demgam menekan ctrl + F9 kita mengeksekusi program tersebut. Dan menghasilkan output “HALO SAYA INDRA DWI NUGROHO”.Dengan bingkai dari sama dengan.

FUNGSI-FUNGSI STATEMENT, ;

1. Variabel

• Digunakan untuk mengelompokan variable yang akan digunakan yang biasanya berisikan data integer, real,character, string.

2. String

• Digunakan untuk menyimpan suatu data berbentuk text. Yang bisa dikombinasikan dengan readln.

3. Begin

• Langkah untuk memulai suatu program yang keberadaannya mutlak.

4. CLRSCR

5. Write

• Digunakan untuk mencetak langsung pada output dan didampingi oleh readln. Agar program dapat dieksekusi.

6. Writeln

• Digunakan untuk langsung mencetak pada output tanpa didampingi oleh readln. Yang mana apabila tidak didampingi oleh readln program tersebut tetap dapat dieksekusi.

7. Readln

• Untuk membaca variable yang telah dituliskan. Dengan statement ini write dapat dieksekusi.

8. Gotoxy

• Digunakan untuk menempatkan output pada keberadaan x dan y. biasanya digunakan hanya untuk memperindah output.

Wednesday, March 30, 2011

PROGRAM MENU PADA TURBO PASCAL

PENGGUNAAN SELECT CASE, IF THEN ELSE, DAN FOR TO DO PADA TURBO PASCAL

PROGRAM SEDERHANA TURBO PASCAL