Beranda » Algoritma » Pascal » MENGGUNAKAN KODE ASCI dan UPCASE

MENGGUNAKAN KODE ASCI dan UPCASE

Selamat Datang

بِسْمِاللَّهِ الرَّحْمَنِ الرَّحِيمِ

Hai sahabat ... Selamat datang di Wisnurat's blog. Sedikit tulisan dan komentar yang mungkin asal-asalan, tapi mudah - mudahan deh bisa bermanfaat. Sebagai salam silaturahmi dengan senang hati kalau bisa tukaran link. Siapa tahu temen-teman yang lain juga ingin mampir ke blog sahabat. Terimakasih telah berkunjung. Jangan lupa mampir lagi ya... :)

Semua tulisan pada blog ini juga diposting pada blog okeguru.com

Masukkan alamat e-mail Anda untuk berlangganan blog ini dan menerima pemberitahuan tulisan-tulisan baru melalui email.

Bergabunglah dengan 13 pengikut lainnya

Blog Stats

  • 201,058 hits

Tamu

free counters

Traffic

Google PageRank Checker

JS05

MENGGUNAKAN KODE ASCI dan UPCASE

ROUND adalah fungsi yang digunakan untuk membulatkan sebuah bilangan real ke bilangan bulat yang terdekat. Contoh : a:=Round(3.4) maka isi variabel a adalah 3.

UPCASE adalah fungsi yang digunakan untuk memperoleh huruf besar dari suatu abjad.

Fungsi ORD dipakai untuk menghasilkan kode desimal suatu karakter pada tabel ASCII (lihat lampiran).

Fungsi CHR dipakai untuk menghasilkan karakter ASCII dari suatu bilangan.

Contoh 01:

1. Program Fungsi_Round;

2. Uses Crt;

3. Var a,b,c : real;

4. Begin

5. Clrscr;

6. a := Round(2.2); {hasilnya 2}

7. b := Round(2.4); {hasilnya 2}

8. c := Round(2.5); {hasilnya 3}

9. Writeln;

10. Writeln(‘hasil ROUND 2.2 : ‘, a:5:1);

11. Writeln(‘hasil ROUND 2.4 : ‘, b:5:1);

12. Writeln(‘hasil ROUND 2.5 : ‘, c:5:1);

13. End.

Contoh 02:

1. Program Fungsi_UPCASE;

2. Uses Crt;

3. Var huruf1, huruf2, huruf3, huruf4 : Char;

4. Begin

5. Clrscr;

6. huruf1:=’a’;

7. huruf2:=Upcase(huruf1); {hasilnya ‘A’}

8. huruf3:=’Z’;

9. huruf4:=Upcase(huruf3); {hasilnya ‘Z’}

10. Writeln;

11. Writeln(‘hasil Upcase(”a”) : ‘, huruf2);

12. Writeln(‘hasil Upcase(”Z”) : ‘, huruf4);

13. End.

Contoh 03:

1. Program Ord_Chr;

2. Var a : integer;

3. b : char;

4. Begin

5. a:=ORD(‘A’); {hasilnya adalah 65}

6. b:=CHR(a+32); {CHR(97) adalah huruf ‘a’}

7. Writeln (‘ORD(”A”) hasilnya adalah : ‘,a);

8. Writeln (‘CHR(a + 32) hasilnya adalah: ‘,b);

9. End.


1 Komentar

  1. bogi mengatakan:

    yang upcase masih bingung bos,,,
    kalau bisa kasih contoh yang lebih gambalang biar paham

    kalau perlu penjelasane dikirim di email ya mas,,,,
    makasih

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

Selamat Datang

بِسْمِاللَّهِ الرَّحْمَنِ الرَّحِيمِ

Hai sahabat ... Selamat datang di Wisnurat's blog. Sedikit tulisan dan komentar yang mungkin asal-asalan, tapi mudah - mudahan deh bisa bermanfaat. Sebagai salam silaturahmi dengan senang hati kalau bisa tukaran link. Siapa tahu temen-teman yang lain juga ingin mampir ke blog sahabat. Terimakasih telah berkunjung. Jangan lupa mampir lagi ya... :)

Semua tulisan pada blog ini juga diposting pada blog okeguru.com

Masukkan alamat e-mail Anda untuk berlangganan blog ini dan menerima pemberitahuan tulisan-tulisan baru melalui email.

Bergabunglah dengan 13 pengikut lainnya

%d blogger menyukai ini: