Program Konversi Kalimat Pascal
Malam guys, kali ini aku akan membagikan kegiatan mengonversikan kalimat di pascal dimana dalam satu kali input kalimat akan dikonversikan dari kata-kata dari abjad kecil diubah ke besar dan kata-kata dari abjad besar diubah ke abjad kecil. kegiatan ini mengunakkan isyarat desimal dari abjad 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 Makara Seperti Dibawah ini tergantung Kalimat yang Anda Masukkan.
Program Konversi Kalimat Pascal |
Jika anda ingin eksklusif mencoba kegiatan ini silahkan download file kegiatan yang sudah aku 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, aku rasa cuku hingga disini dan terima kasih.