Cara Membuat Program Balik Nama Dari Pascal

Advertisement
Hello selamat sore untuk anda semuanya yang sekarang mungkin sedang membutuhkan informasi tentang Cara 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 kita sama-sama praktek, mungkin iuni saat yang tepat untuk mengshare bagaimana cara yang benar 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 :
Cara Membuat Program Balik Nama Dari Pascal

Cara Membuat Program Balik Nama Dari Pascal Rating: 4.5 Written By: Nur Hasan

No comments:

Post a Comment


Advertisement