Membuat Porgram Sederhana "Deteksi Ibukota" menggunakan Turbo Pascal

Membuat Program Sederhana

Semangat sore sahabat [ww]-Share ,, sore-sore gak ada kerjaan dibalut liburan hampir 3 bulan,, ya apa boleh buat,, walau jarang ngePost,, (maaph yakh,, jarang bisa posting) penyakit malas melanda. 

Kali ini [ww]-Share (wibawa wean share) akan berbagi mengenai program sederhana Deteksi Ibukota, program ini menggunakan Turbo Pascal jadi sahabat [ww] yang sudah mahir dalam hal ini, silahkan bisa klik tombol close, hehe :p , tapi kalo mau terus baca juga gk masalah,, 

oke biar tidak berPanjang lebar, dan bertele-tele,, kita langsung aja menuju tkp.

Program Berbasis Teks, menggunakan Turbo Pascal ||Program Deteksi Ibukota Provinsi di Indonesia|| 

 Caranya sebagai berikut:

1. Buka Program Turbo Pascal.

      

2.  klik FILE lalu pilih NEW, untuk membuat lembar kerja baru. 

    

3. Silahkan masukkan kode berikut

program ibukota;
uses crt;
var
i :byte;
ibk : string[33];
nama : string;
Ch : Char;
label 1;
begin
1:
clrscr;

writeln('=================================================================');
writeln(' Program Deteksi Ibukota Provinsi Di Indonesia ');
writeln('=================================================================');
write('Nama Anda  : '); readln(nama);
writeln('-----------------------------------------------------------------');
write('ketikkan nama provinsi di Indonesia (huruf tidak kapital): '); readln(ibk);
writeln('-----------------------------------------------------------------');
if ibk='nanggro aceh darusalam' then
writeln('Ibukotanya adalah BANDA ACEH');
if ibk='sumatera utara' then
writeln('Ibukotanya adalah MEDAN');
if ibk='sumatera barat' then
writeln('Ibukotanya adalah PADANG');
if ibk='sumatera selatan' then
writeln('Ibukotanya adalah PALEMBANG');
if ibk='riau' then
writeln('Ibukotanya adalah TANJUNG PINANG ');
if ibk='jambi' then
writeln('Ibukotanya adalah JAMBI');
if ibk='bangka belitung' then
writeln('Ibukotanya adalah PANGKAL PINANG ');
if ibk='bengkulu' then
writeln('Ibukotanya adalah BENGKULU');
if ibk='lampung' then
writeln('Ibukotanya adalah BANDAR LAMPUNG');
if ibk='jakarta' then
writeln('Ibukotanya adalah JAKARTA');
if ibk='jawa barat' then
writeln('Ibukotanya adalah BANDUNG');
if ibk='banten' then
writeln('Ibukotanya adalah SERANG');
if ibk='jawa tengah' then
writeln('Ibukotanya adalah SEMARANG');
if ibk='yogyakarta' then
writeln('Ibukotanya adalah YOGYAKARTA');
if ibk='jawa timur' then
writeln('Ibukotanya adalah SURABAYA');
if ibk='bali' then
writeln('Ibukotanya adalah DENPASAR');
if ibk='nusa tenggara barat' then
writeln('Ibukotanya adalah MATARAM');
if ibk='nusa tenggara timur' then
writeln('Ibukotanya adalah KUPANG');
if ibk='kalimatan barat' then
writeln('Ibukotanya adalah PONTIANAK');
if ibk='kalimantan tengah' then
writeln('Ibukotanya adalah PALANGKARAYA');
if ibk='kalimantan selatan' then
writeln('Ibukotanya adalah BANJARMASIN');
if ibk='kalimantan timur' then
writeln('Ibukotanya adalah SAMARINDA');
if ibk='sulawesi utara' then
writeln('Ibukotanya adalah MANADO');
if ibk='sulawesi barat' then
writeln('Ibukotanya adalah KOTA MAMUJU');
if ibk='sulawesi tengah' then
writeln('Ibukotanya adalah PALU');
if ibk='sulawesi tenggara' then
writeln('Ibukotanya adalah KENDARI');
if ibk='sulawesi selatan' then
writeln('Ibukotanya adalah MAKASAR');
if ibk='gorontalo' then
writeln('Ibukotanya adalah GORONTALO');
if ibk='maluku' then
writeln('Ibukotanya adalah AMBON');
if ibk='maluku utara' then
writeln('Ibukotanya adalah TERNATE');
if ibk='papua barat' then
writeln('Ibukotanya adalah KOTA MANOKWARI');
if ibk='papua' then
writeln('Ibukotanya adalah JAYAPURA');
if ibk='' then
writeln('Masukkan Nama Provinsi di Indonesia');
{endif}
{endif}
{endif}
{endif}
{endif}
writeln;
write('Masukkan Data Lagi? (Y/N)');
 Ch:=Readkey; if (Ch ='y') or (Ch='Y') then goto 1;

end.

4. Selanjutnya klik "COMPILE" dan pilih "COMPILE"
    

5. Lalu klik sekali lagi pada kotak dialog "Compiling"
    

6. Kemudian Klik "RUN" dan pilih "RUN"
   

7. Dan LIHAT HASILNYA.


tag: turbo pascal, free download program sederhana turbo pascal, mmbuat program sederhana turbo pascal, cara membuat program di turbo pascal, script code turbo pascal, free download tutorial sederhana turbopascal, tutorial membuat program menggunakan turbo pascal.

Artikel terkait :