Halaman

Hamster

Rabu, 29 Mei 2013

RAHASIA MENGETIK PASCAL

                                    RAHASIA MENGETIK PASCAL

Pada semester satu dahulu, saya pernah mengerjakan tugas untuk mengetik Program Pascal di Turbo Pascal 5.5 yang serasa kurang user interface....  

Nah berhubung juga ada tugas untuk membuatnya jadi sebuah diktat, dari pada mengetik dua kali yaitu di program Pascal dan Word, maka saya mengetiknya di notepad terlebih dahulu kemudian merename nya dengan extention *.PAS

Terlebih sesaat kemudian saya menerima softcopy berformat *.pdf dari seorang rekan yang katanya dapat dari Internet. Dan isi inti programnya sama.... 

Hal ini terasa lebih enjoy bagi saya, karena softcopy tersebut bisa di copy lagi ke Pascal untuk programnya dan Word untuk mengolahnya menjadi sebuah diktat  
Disamping itu kita bisa merename kalimat progam yang ingin dirubah dan mengeditnya dengan lebih mudah dari pada langsung di Pascalnya...



Berikut ini sample program Pascal tersebut :

{Prof - Pascal : Program Kondisi 1, hal 34}
{Uses Crt;
Var a:real;
B:string[11];
Begin
Clrscr;
B:—’Tidak Lulus’;
Write (‘Berapa nilai anda’?’);readln(a);
If a>55 then B:—’Lulus’;
Writeln (B) ;Readln; End.}



{Prof - Pascal : Program Pilihan Then 1, hal 34}
{Uses Crt;
Var pilihan:byte;
R, L, T, Luas Real;
Begin
Gotoxy(1O,2);WritelnflPILIHAN’);
Gotoxy(1O,4);Writelnfll. Menghitung luas lingkaran’);
Gotoxy(1O,6);Writelnfl2. Menghitung luas segitiga’)
Gotoxy(1O,8);Writelnfl3. Menghitung luas buursangkar’)
Gotoxy(1O,1O);Writeln(’O. Selesai’);
Pilihan:—9;
While(pilihan3) do
Begin
Gotoxy(1O,12);WriteflPilih nomor (O-3)?’);Readln(pilihan);
End;
Clrscr;
If pilihan—1 then
Begin
Write (‘Jan-jan Lingkaran —‘) ;Readln(R);
Luas :—3. 14*R*R;
WritelnflLuas Lingkaran —, ,Luas:9:2); End;

If pilihan—2 then Begin
WriteflSisi Alas —‘);Readln(L);
WriteflSisi Tinggi —‘);Readln(T);
Luas :—0 . 5*L*T;
Writeln;
WritelnflLuas Segitiga —‘,Luas:9:2); End;
If pilihan—3 then
Begin
WriteflSisi Panjang —‘);Readln(T);
WriteflSisi Lebar —‘);Readln(L);
Luas :_T*L;
WritelnflLuas Bujursangkar —‘,Luas:9:2)
End;
Readln;
End.}


{Prof - Pascal : Program Pilihan Then2, hal 36}
{Uses Crt;
Var pilih:integer;
Begin
Clrscr;
WritelnflDaftar Tabel Penjualan Barang’);
Writeln ( ‘‘)
WritelnflJika anda pilih 1 maka terdapat daftar harga
sabun’
WritelnflJika anda pilih 2 maka terdapat daftar harga
shampo’);
WritelnflJika anda pilih 0 maka tidak memilih daftar harga’);
Writeln ( ‘‘)
Writeln;
WritelnflPilihan anda 1,2,0 ‘);Readln(pilih);
If pilih—1 then
Begin
Writeln ( ‘Daftar Harga-harga Sabun’);
Writeln ( ‘‘
WritelnflSabun Citra Pp.800’);
WritelnflSabun Lifeboy Pp.450’);
WritelnflSabun Lux Pp.450’);
WritelnflSabun Prity Pp.300’); End;

If pilih—2 then
Begin
Writeln ( ‘Daftar Harga-harga Shampo’);
Writeln ( ‘
WritelnflShampo Sunsilk Rp.700’);
WritelnflShampo Brisk Rp.1100’);
WritelnflShampo Rejoice Rp.1000’);
WritelnflSabun IKao Rp.600’);
End;

If pilih—O then
Begin
WritelnflAnda tidak memilih daftar harga’);
End;
Readln;
End.}

{Prof - Pascal : Program Seleksi else1 hal 37}
{Uses Crt;
Var nilaiujian:Real;
Begin
Write (‘Nilai yang didapat’?’) ;Readln(nilaiujian); If nilaiujian>60 then
Writeln ( ‘Lulus’)
Else
Writeln ( ‘Tidak Lulus’)
Readln;
End.}


{Prof - Pascal : Program Seleksi else2, hal 37}
{Uses Crt;
Var nilai:integer;
Nama,nim: string; Begin
Clrscr;
Write ( ‘Nama anda ?‘) ;Readln (Nama);
Write(’NIM anda ?‘);Readln(nim);
Write(’Berapa nilai anda ?‘) ;Readln(nilai)
If (nilai<—100) and (nilai>—80) then
Begin
Writeln(’Anda mendapat nilai A’);
Writeln(’Poin yang anda peroleh — 4’);
End;
If (nilai<—79) and (nilai>—70) then
Begin
Writeln(’Anda mendapat nilai B’);
Writeln(’Poin yang anda peroleh — 3’);
End;
If (nilai<—69) and (nilai>—60) then
Begin
Writeln(’Anda mendapat nilai C’);
Writeln(’Poin yang anda peroleh — 2’);
End;
If (nilai<—59) and (nilai>—50) then
Begin
Writeln(’Anda mendapat nilai D’);
Writeln(’Poin yang anda peroleh — 1’);
End
Else



Prof - End

Dengan cara ini menjadikan mengetik program Pascal jadi lebih enjoy...
Rahasia mengetik Pascal ini tidak saya dapatkan dari Kampus atau Internet, melainkan coba-coba dan berhasil di Turbo Pascal 5.5 

Anda membutuhkan kode Pascal diatas? silahkan copy paste dengan cara yang saya sebutkan tadi  atau coba terapkan dengan program Pascal yang lain....  


SUMBER;http://joshaxis.blogspot.com/2009/10/pascal.html

Tidak ada komentar:

Posting Komentar