19-02-2020 08:57:09
Staff
791
Sekarang 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 ya.
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.
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.
Penjelasan algoritma dan script :
Pada program konversi kalimat di atas fungsi dari ord(kalimat[i] adalah untuk membaca setiap karakter yang diinputkan oleh user sesuai dengan nilai desimal ASCII sehingga jika karakter string yang diinputkan adalah huruf kecil maka program akan mengubah ke huruf besar dengan cara kode dari string dikurang 32 dan apabila kode string sama dengan 32 dalam hal ini SPASI maka program tidak akan mengubahnya dan yang terakhir jika karakter yang inputkan ternyata memiliki kode ASCII lebih dari 97 maka program akan mengubahnya dengan cara ditambah 32 sehingga huruf-huruf yang tadinya besar akan diubah menjadi huruf kecil.
Berikut tabel ASCII agar anda lebih mudah memahami penjelasan script ini.
Ok, saya rasa cuku sampai disini dan terima kasih.
Keyword: konversi kalimat pascal, program pascal
Baca Juga:
Postingan Sebelumnya:
Postingan Selanjutnya: