Membuat Program Balik Nama Dari Pascal

07:35:00

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 :

0 komentar