Membuat Program Pilih Tombol dengan Turbo Pascal

Assalamualaikum Wr. Wb.

Membuat Program Pilih Tombol dengan Turbo Pascal | Program ini adalah apa yang di ujiankan pada mata pelajaran Pemrograman Dasar di sekolah saya dan alhamdulillah sudah selesai hehe.

Pertama buka Turbo Pascalnya, jika belum punya lain kali akan saya share softwarenya, setelah itu paste script di bawah, anda juga bisa memodifikasinya sesuai kebutuhan anda, script dibawah adalah karangan saya, jadi silahkan di ganti kata-kata yang tidak sesuai

program ulangan;
uses wincrt;
  const
phi = 3.14;
  label
mulai;
  var
  jari, keliling, angka_1, angka_2, jumlah, kurang, bagi, spp_tahun, spp : real;
  nama, alamat, kelas : string;
  tombol, jawab : char;
begin
mulai:
clrscr;
       writeln('Silahkan Pilih Nomor 1-4');
       writeln('-----------------------------------');
       writeln;
       writeln('Tombol : ');
       writeln('1. Penghitungan Keliling Lingkaran');
       writeln('2. SPP');
       writeln('3. Pengurangan, Pembagian, Penjumlahan');
       writeln('4. Exit');
       writeln;
       readln(tombol);
case tombol of
'1' : begin
      clrscr;
      writeln('Program Penghitungan Keliling Lingkaran');
      writeln('------------------------------------');
      writeln('Masukkan Jari-jari : ');readln(jari);
      keliling := 2*phi*jari;
      writeln;
      writeln('Hasil : ',keliling:0:0);
      writeln('Mau Tekan Tombol yang lain ? [Y/T]');readln(jawab);
      if (jawab = 'Y') or (jawab = 'y') then
      goto mulai
      end;
'2' : begin
      clrscr;
      writeln('SPP');
      writeln('-----------------------------------');
      write('Masukkan Nama   : ');readln(nama);
      write('Masukkan Alamat : ');readln(alamat);
      write('Masukkan Kelas  : ');readln(kelas);
      write('Jumlah SPP      : ');readln(spp);
      clrscr;
      writeln('SPP');
      writeln('-----------------------------------');
      writeln('Nama   : ',nama);
      writeln('Alamat : ',alamat);
      writeln('Kelas  : ',kelas);
      writeln('SPP    : ',spp:0:0);
      spp_tahun:= (85000*12)-spp;
      writeln('SPP yang belum dibayar di tahun ini : ',spp_tahun:0:0);
      writeln;
      writeln('Mau Tekan Tombol yang lain ? [Y/T]');readln(jawab);
      if (jawab = 'Y') or (jawab = 'y') then
      goto mulai
      end;
'3' : begin
      clrscr;
      writeln('Penghitungan Penjumlahan, Pengurangan, dan Pembagian');
      writeln('--------------------------------------------------------------');
      write('Masukan angka pertama : ');readln(angka_1);
      write('Masukan angka kedua   : ');readln(angka_2);
      jumlah := angka_1+angka_2;
      bagi := angka_1/angka_2;
      kurang:= angka_1-angka_2;
      clrscr;
      writeln('Hasil Bagi   : ',bagi:0:0);
      writeln('Hasil Kurang : ',kurang:0:0);
      writeln('Hasil Tambah : ',jumlah:0:0);
      writeln;
      writeln('Mau Tekan Tombol yang lain ? [Y/T]');readln(jawab);
      if (jawab = 'Y') or (jawab = 'y') then
      goto mulai
      end;
'4' : begin
      clrscr;
      writeln('---------Not Responding--------------');
      writeln;
      writeln;
      writeln('Mau Coba tombol yang lain ? [Y/T]');readln(jawab);
      if (jawab='Y') or (jawab = 'y') then
      goto mulai
      end;
      end;
end.

Setelah itu coba run/jalankan programmnya, maka akan seperti ini

Sekian artikel kali ini, jika ada kesulitan silahkan berkomentar di bawah atau kirimkan ke email, facebook atau twitter kami.

Semoga Bermanfaat

Wassalamualaikum Wr. Wb.