Headers

  1. Home
  2. Informatika
    1. Internet   »
      1. YM Versi Web
      2. Membuat Tabel Scroll
      3. Menulis HTML
      4. Miliki Blogspot
      5. Penamaan Co Cc
      6. Pasang Blogumulus
    2. Computer   »
      1. PDF Reader
      2. Mengetik 10 Jari
      3. Membuat Daftar Isi
      4. Rahasia Mengetik Pascal
    3. Cellular
    4. Story   »
      1. The Blogger
      2. People   »
        1. Bill Gates
        2. Marco Calasan
        3. Matsushita
        4. Albert Einstein
        5. Bob Buford
      3. Harley Davidson
    5. Culture   »
      1. Jakarta
      2. Objek Wisata Pandeglang
    6. Josh Adventure   »
      1. Reinkarnasi
      2. Pulau Seribu
  3. Study
    1. Josh Info
    2. Jadwal Kuliah   »
      1. Jadwal Semester III
      2. Jadwal Semester IV
    3. Materi Kuliah   »
      1. Materi Semester III  »
        1. Matematika Diskrit   »
          1. 24 October 2009
          2. 7 November 2009
          3. 21 November 2009
          4. 5 December 2009
        2. Basis Data   »
          1. 25 October 2009
          2. 8 November 2009
          3. 22 November 2009
          4. 6 December 2009
          5. Answer 6 Dec 2009
        3. Statistik   »
          1. 25 October 2009
          2. 8 November 2009
          3. 22 November 2009
          4. 6 December 2009
        4. Pemrograman C++   »
          1. 31 October 2009
          2. 14 November 2009
          3. 28 November 2009
        5. Bahasa Rakitan   »
          1. 1 November 2009
          2. 15 November 2009
          3. Answer 15 Nov 2009
          4. 29 November 2009
          5. Answer 29 Nov 2009
        6. Sistem Informasi   »
          1. 1 November 2009
          2. 15 November 2009
          3. 29 November 2009
      2. Materi Semester IV   »
        1. Pengenalan HTML
        2. Pemrograman Web
        3. Asitektur Komputer
        4. Grafik Komputer
        5. Otomata
    4. Modul   »
      1. Basis Data
      2. Pemrograman C++
      3. Sistem Informasi
  4. Bisnis
    1. Attempt
    2. Internet Marketing
    3. Affiliasi E-book
    4. Axis Asix
  5. Oase
    1. Penulis
    2. Belantara
    3. Setetes Embun   »
      1. Miracle
      2. Matahari
    4. Harapan Indah   »
      1. Pagi Itu
      2. Sepantasnya
      3. Harapan
      4. Variasi
      5. Pemburu
      6. Cobra
    5. Rona Buana   »
      1. Los Fedilas
      2. The Email
      3. Anita Swaradewi
      4. Aurora Jelita Sukma
      5. Anjani Indah Prewani
      6. Burung Hantu
      7. Kata Sederhana
  6. Download
    1. Joshaxis Appication
    2. Joshedukasi YM
    3. Joshatext
    4. Joshappy
    5. Joshun
    6. Kamus HP
  7. Game
    1. Game Catur (Chess)
  8. Link
  9. Contact

Thursday 1 October 2009

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.... :)

RELATED POST
LIST


Silahkan berbagi dengan teman melalui tombol-tombol share ini...

  • Stumb
  • Icious
  • Tech
  • Twitt
  • F.B.
  • Redit
  • Google
  • Furl
  • Mixx
  • Design
  • B.Mark
  • B.List
  • Diigo
  Menea
This share facebook

1 komentar:

=))

  • :))
  • ;))
  • ;;)
  • :D
  • ;)
  • :p
  • :((
  • :)
  • :(
  • :X
  • =((
  • :-o
  • :-/
  • :-*
  • :|
  • 8-}
  • :)]
  • ~x(
  • :-t
  • b-(
  • :-L
  • x(
  • =))
  • :p
Post a Comment

U Comment I Follow
Thanks For Your Comment....

Recent Post

Recent Post
Enter your email :   

Spiders

Spiders
Load Counter

Blog Terbaik Versi Crypton97.us

Dofollow

Dofollow
U comment I follow
Dofollow merupakan attribute Spider Search Engine u/ memberi backlink komentar terindex google. Silahkan berkomentar...
Bisa sambil beriklan...
-----------
JOSHAXIS
-----------

Copyright © 2010 by JOSHAXIS - Seize The Day | Powered by BLOGGER

Thank You Visitted Joshaxis