(CKT) Program Pascal Menampilkan hasil perkalian yang Diinputkan Menggunakan Perulangan For Next

Program Pascal Menampilkan hasil perkalian yang Diinputkan Menggunakan Perulangan For Next

Nahhh ini adalah salah satu contoh program pascal untuk Menampilkan hasil perkalian yang Diinputkan Menggunakan Perulangan For Next

1. Programnya

program fornext;
uses crt;
var
   i,y  :integer;
begin
     clrscr;
     Write('Input nilai y :');readln(y);
     for  i := 1 to 10 do
     begin
          Writeln(i,'x',y,' =', i*y);
     end;
     readln;
end.

2. Tampilan Program dalam Pascal

3. Hasil Program

 
   

(CKT) Pascal "Menentukan Discount dan Harga Pembayaran Menggunakan Perulangan While end While"

Program Pascal Menentukan Discount dan Harga Pembayaran Menggunakan Perulangan While end While

Nahhh ini adalah salah satu program pascal untuk Menentukan Discount dan Harga Pembayaran menggunakan Perulangan While end While

1. Programnya

Program MenghitungHargaPembayaran;
uses crt;
var
   TP,P,HP,Discount :real;
   lg               :char;
begin
     lg :='Y';
     While Upcase(lg)='Y'do
     begin
     clrscr;
     Writeln('Program Menghitung Harga Pembayaran');
     Write('Input Total Pembelian   Rp: ');readln(TP);

     Discount :=0.1;
     if TP >1500000 then
        P :=TP * Discount
     else
          P:=0;

     HP :=TP-P;

     Writeln('Mendapat Harga Potongan Rp:  ',P:0:0);
     Writeln('____________________________________ -');
     Writeln('Harga Pembayaran        Rp: ',HP:0:0);
     Writeln('----------------------------------------');
     Write('Masih Ingin Menghitung [Y/T]:');readln(lg);
     end;
     readln;
end.

2. Tampilan Program dalam Pascal

3. Hasil Program

    ketika mengetik "Y"

         Kita akan bisa menginput ulang data atau menghitung lagi seperi gambar dibawah

      sedangkan ketika mengetik huruf "T" maka akan kembali ke tampilan program awal yang artinya tidak ingin menghitung lagi.

(CKT) Pascal "Program Pascal Cek Kelulusan Menggunakan Perulangan Repeat Until"

Program Pascal Cek Kelulusan Menggunakan Perulangan Repeat Until

Nahhh ini adalah salah satu program pascal untuk Cek Kelulusan menggunakan Perulangan Repeat Until

Programnya

program Cek_Kelulusan;
uses crt;
var
   N         :Byte;
   ket       :String;
   lg        :char;
begin
     lg :='Y';
     repeat
     begin
          clrscr;
          writeln('Program Cek Kelulusan');
          write('Input Nilai Anda : ');readln(N);

          if N >=60 then
               ket:='lulus'
          else
               ket:='gagal';

          writeln('Anda             :',ket);
          Writeln('----------------------------------');
          write('Cek Kelulusan Lagi [Y/T]:');readln(lg);
          end;
          until lg <>'Y';
          readln;
     end.

hasil dari program

ketika menekan y

ketika kita menekan atau memasukkan huruf y maka akan mengulang kembali untuk mengecek kelulusan

(CKT) 3 JENIS PERULANGAN PASCAL

3 JENIS PERULANGAN PASCAL

Perulangan merupakan suatu perintah yang di gunakan pada computer yang bertujuan untuk mengulang pertanyaan atau blok pertanyaan. Blok pertanyaan merupakan kumpulan kumpulan dari pernyataan-pernyataan.

            Struktur yang terdapat pada suatu perulangan terdiri atas kondisi perulangan dan blok/badan pernyataan yang akan diulang. Di dalam algoritma/pemrograman terdapat beberapa struktur perulangan, yaitu:

1.      For…Next

2.      While…End While

3.      Repeat…Until

Jadi, ketiga perulangan diatas adalah perulangan yang dapat digunakan dalam membuat sebuah program didalam Pascal.

(CKT) Pascal "Program Memberikan Keterangan Nilai"

Pascal "Program Memberikan Keterangan Nilai"

pada program pascal ini, saya saya akan memberikan contoh program pascal yang dimana memberikan keterangan suatu nilai dengan ketentuan :

1. jika nilai >=60 maka keterangan "Lulus"

2. jika nilai <=59 maka keterangan "Gagal"

jadi diatas merupakan contoh dari pascal yang memberikan sebuah keterangan nilai.

(CKT) Pascal "Rata-Rata Penjualan"

Pascal "Rata-Rata Penjualan"

Buatlah program pascal untuk menampilkan rata-rata penjualan harian, dari 5 hari penjualan yang diinputkan

Input   : Penjualan hari 1        : 150.000

              Penjualan hari 2        : 250.000

              Penjualan hari 3        : 175.000

              Penjualan hari 4        : 220.000

              Penjualan hari 5        : 245.000

Output : Rata-Rata Penjualan : 208.000

Nah, contoh diatas merupakan salah satu input dan outputnya dan nilainya bias diganti tergantung dengan input yang diinginkan teman-teman.

Untuk koding programnya silahkan copas teks dibawah.

(CKT) Pascal "Program Pembayaran Cicilan Uang Kuliah"

Pascal (Program Pembayaran Uang Kuliah STMIK Budi Darma 2019)

Nah, untuk kali ini saya akan membagikan cara membuat program pembayaran uang kuliah di pascal dan untuk contohnya saya menggunakkan kampus STMIK Budi Darma, yang merupakan kampus saya sendiri…

Pada kasus kali ini ada beberapa ketentuan yaitu

Input :

1.      NAMA MAHASISWA

2.      NPM

3.      KODE

4.      JURUSAN

5.      PEMBAYARAN KE

Kode	Jurusan	Pembayaran Awal Rp	Jumlah Cicilan	Besar Cicilan Rp.
SI	Sistem Informasi	1.000.000	6	900.000
TI	Teknik Informatika	1.000.000	6	900.000
KA	Komputer Akuntansi	1.000.000	6	900.000
MI	Manajemen Informatika	1.000.000	6	900.000

Proses :

1.      Uang Kuliah = Pembayaran+(Jumlah Cicilan X Besar Cicilan)

2.      Uang Kuliah Terbayar = Pembayaran Awal + (Pembayaran Ke X Besar Cicilan)

3.      Sisa Uang Kuliah = Uang Kuliah – Uang Kuliah Terbayar

Output :

1.      Pembayaran Awal Rp

2.      Jumlah Cicilan Rp

3.      Besar Cicilan Rp

4.      Uang Kuliah Rp

5.      Uang Kuliah Terbayar Rp

6.      Sisa Uang Kuliah Rp

Jadi, diatas merupakan ketentuan untuk membuat programnya dan sekarang untuk langkah selanjutnya yaitu membuat programnya di pascal.

Untuk koding programnya silahkan ketikkan seperti yang tertera di gambar

jika sudah memgetik koding diatas maka coba jalankan dan hasilnya akan seperti pada gambar dibawah.

(CKT) Pascal "daftar barang"

Pascal

"Membuat Program Daftar Barang"

Nah, kali ini saya akan memberikan bagaimana caranya untuk membuat sebuah program daftar barang didalam pascal. yang dimana ketika mengtikkan kode barang maka nama barang dan harga barang akan muncul dengan sendirinya serta membrikan jumlah total harga dari jumlah barang yang dibeli.

untuk membuat programnya silahkan buat seperti pada gambar dibawah ini.

diatas merupakan koding untuk membuat programnya, jadi silahkan mencoba dan semoga berhasil.

(CKT) PROGRAM PASCAL JADWAL PENERBANGAN PESAWAT

PROGRAM PASCAL

JADWAL PENERBANGAN PESAWAT

NO	KODE	NAMA PESAWAT	TUJUAN	HARGA
1	G01M	GARUDA	MALAYSIA	1.500.000
2	W02C	WINGS AIR	CHINA	1.000.000
3	L03K	LION AIR	KAMBOJA	1.300.000

Jadi diatas merupakan salah contoh jadwal penerbangan pesawat

Disini kita akan membuat program untuk membuat jadwal penerbangan didalam pascal, dengan ketentuan sebagai berikut :

Input   : kode

Output : nama pesawat

              Tujuan

              Harga

Untuk koding programnya silahkan lihat gambar dibawah

Jika sudah mengetikkan koding diatas didalam program pascal maka silahkan jalankan dengan menekan tombol ctrl+f9, dan hasilnya akan seperti gambar dibawah.