Contoh Program Input Output(Tugas IMK) Pake Pascal

Teman2 yang mungkin Punya Tugas IMK disuruh membuat contoh Program Input Output, ini sya bagi..

Contoh Program Input Output

Listing :

program Hitung_Pembayaran_Orderan_Gas_LPG_3stngah_KG;

uses crt;

const

  x =16000;

  var

  jmlhtbg,byr:longint;

begin

  clrscr;

  writeln('TUGAS IMK');

  writeln('-----------------------------------------------');

  writeln('-----------------------------------------------');

  writeln('Program Hitung PembayaranOrderanGasLPG 3,5 KG');

  writeln('-----------------------------------------------');

  writeln('  (Ket: @ = Rp.16000)');

  writeln('-----------------------------------------------');

  write('JUMLAH PESANAN TABUNG = ');

  readln(jmlhtbg);

  byr:=x*jmlhtbg;

  write('HARGA KESELURUHAN PEMBELIAN GAS = Rp. ',byr);

  readln;

end.

Tampilan Input Data:

 

 

Untuk Tampilan Output (Hasil Perhitungan Programnya):

 

 

Prose Terhadap input adalah “  byr:=x*jmlhtbg;” Sesuai listing keseluruhan Program

(Ket: Programnya admin bikin Pake PASCAL ”BAHASA PEMPROGRAMAN PASCAL”)

Terimakasasih, semoga membantu.