Membuat Program Balik Nama Dari Pascal

Cara Cepat Belajar Pacal : Membuat Program Balik Nama Dari Pascal

      Ada yang Tau Program Pascal Tidak, Kalo ada yang belum tau coba cek Disini dan Download Disini. Kalo Sudah mengerti mari Check It Out, Kali ini ane mau share cara membuat program balik nama di Pascal versi 1.5. Karena Pascal 1.5 adalah mungkin salah satu versi dasar dari program pascal itu sendiri. 

Oke ini Coding nya yah dan hasil output nya bisa dilihat dibawah juga :

Program Balik Nama

Program Pembalikan_Nama_Brema; Uses winCrt; Const Vokal = ['A','I','U','E','O','a','i','u','e','o']; Var Huruf : char; Pesan : string; i,CcHuruf,CcVokal : integer; label a; Begin clrscr; a: Writeln('Program Sederhana Brema : ');  Writeln('======================================= '); Write('Nama Anda : '); Readln(Pesan); CcHuruf := Ord(Pesan[0]); CcVokal := 0; For i := 1 to CcHuruf Do Begin Huruf := Pesan[i]; If Huruf in Vokal then CcVokal := CcVokal + 1; End;      Writeln('======================================= '); Writeln('Nama Anda Jika Di Balik :'); For i := CcHuruf downto 1 do write(Pesan[i]); Writeln; Writeln('======================================= '); Write('Nama Anda Mengandung Huruf Vocal Sebanyak : ',CcVokal,' Buah Huruf Vocal'); Writeln; Writeln('======================================= ');                        writeln; write('Ingin ulang lagi?');readln(Huruf); clrscr; if Huruf = 'y' then goto a else writeln('Terima Kasih Telah Menggunakan Program Saya'); Readln; End.

Hasil Program :