Program Konversi Kalimat Pascal

Malam guys, kali ini saya akan membagikan program mengonversikan kalimat di pascal dimana dalam satu kali input kalimat akan dikonversikan dari kata-kata dari huruf kecil diubah ke besar dan kata-kata dari huruf besar diubah ke huruf kecil. program ini mengunakkan kode desimal dari huruf sesuai dengan ASCII ( American Standar Code For Information Interchange). Langsung aja cek source code y.

Program Konversikalimat;
Uses Crt;
Var
      i : integer
      kalimat : string;
Begin
       Clrscr;
       Write('Masukkan Kalimat Anda : ');
       Readln(kalimat);
       For i := 1 to Length(kalimat) do
       if ord(kalimat[i]) > 96 then
       begin
       kalimat[i] :=chr(ord(kalimat[i]) - 32);
       end
            else if ord(kalimat[i]) = 32 then
            begin
            kalimat[i] := chr(32);
            end
                   else if ord(kalimat[i]) < 96 then
                   begin
                   kalimat[i] := chr(ord(kalimat[i]) + 32 );
                   end;
      Write('Hasil Konversi Adalah ' ,kalimat);
       Readln;
End.

Tampilan Output Akan Jadi Seperti Dibawah ini tergantung Kalimat yang Anda Masukkan.

Program Konversi Kalimat Pascal

Jika anda ingin langsung mencoba program ini silahkan download file program yang sudah saya kompilasi dan upload di ziddu. silahkan klik link biru di bawah ini.

Download Program Pascal Konversi Kalimat Pascal via ziddu 

Penjelasan algoritma dan script :

Tabel ASCII

Ok, saya rasa cuku sampai disini dan terima kasih. Diposting oleh Tutorial Programming Simple