Algoritma Membandingkan Data Karakter dalam Prog Pascal

Proses membandingkan data karakter  dalam pemrograman dilakukan untuk mengurutkan data berdasarkan karakter pertama, apakah urutan secara ascending (naik) atau descending (turun). Urutan ascending dimulai dari huruf A atau a hingga Z atau z sedangkan urutan descending dimulai dari huruf   Z atau z  hingga A atau a. Karakter A dan a adalah huruf terkecil sedangkan Z dan  z  adalah huruf terbesar.

Contoh :

Buatlah program untuk membandingkan  2 buah data karakter yang di input dari keybord. Output program akan memberikan informasi bahwa karakter1 lebih besar dari karakter2 atau sebaliknya. Misalnya data karakter yang diinput adalah A dan K, maka program akan menampilkan informasi “ A lebih kecil dari K” atau K lebih besar dari A. 

Algoritma :

1.Mulai
2.Deklarasikan variabek k1 dan k2
3.Input data k1 dan k2
4.Bandingkan k1 dan k2
   Jika k1> k2 maka k1 lebih besar daripada k2
   Jika k2> k1 maka k2 lebih besar daripada k1
5.Tampilkan informasi perbandingan
6.Selesai

Flowchart


 Program

{ Program Membandingkan Data Karakter 
* File : Banding1.pas                  
* ====================================  }

uses crt;

var k1,k2 : char;

begin
   clrscr;
   write('Input Huruf pertama : ');
   readln(k1);
   write('Input Huruf kedua   : ');
   readln(k2);writeln;
   if k1
      writeln(k1,' lebih kecil daripada ', k2)
   else
      writeln(k1,' lebih besar daripada ', k2);
   readln;
end

Hasil Program :

Input Huruf pertama :  a
Input Huruf kedua    :  b

a lebih kecil daripada  b


Semoga bermanfaat.

Tidak ada komentar:

Posting Komentar

Silakan memberikan komentar dan pertanyaan yang sifatnya positif.