Contoh Program Pascal Ukur Berat Badan Ideal

  • Whatsapp
Contoh Program Pascal Ukur Berat Badan Ideal
Contoh Program Pascal Ukur Berat Badan Ideal. Foto: Jambiseru.com

Jambiseru.com – Ini adalah contoh program Pascal mengukur berat badan ideal. Seperti diketahui, sampai saat ini, program pascal masih dipakai sebagai dasar mata kuliah pemograman.

Berikut syntax salah satu contoh pemograman pascal mencari berat badan ideal menggunakan variabel, char, integer dan if else :

Baca Juga : Program Mencari Luas Persegi Panjang Pakai Pascal

(Catatan : jangan sampai typo atau salah ketik, karena itu akan membuat program ini tidak akan jalan / run)

uses crt;

label 7;

var

NM:STRING;

BB,TB:INTEGER;

BI:REAL;

KET:STRING;

JAWAB:CHAR;

BEGIN

7:CLRSCR;

WRITELN(‘UKUR BERAT BADAN IDEAL’);

writeln(‘ ‘);

WRITE(‘Masukkan Nama Anda= ‘);readln(NM);

WRITE(‘Masukkan Berat Badan Anda= ‘);readln(BB);

WRITE(‘Masukkan Tinggi Badan Anda= ‘);readln(TB);

BI:=(TB-110);

if BB<BI then KET:=’KURUS’

else if BB>BI then KET:=’GEMUK’

else if BB=BI then KET:=’IDEAL’;

writeln(‘Keterangan= ‘,KET);

WRITE(‘Coba Lagi? (Y/T)’);readln(JAWAB);

IF (JAWAB=’Y’)or(JAWAB=’y’) then goto 7;

readln;

end.

Itu lah contoh program mengukur berat badan ideal seseorang. Semoga langsung bisa jalan. Ingat ya, jangan sampai typo. Kalaupun error, tolong kasih tau redaksi ya…. kirim ke email jambiserucom@gmail.com.

Semoga bermanfaat… (*)

Sumber: Jambiflash.com (Media network Jambiseru.com)

Pos terkait