Contoh Program Pascal Ukur Berat Badan Ideal

Oleh Co-Writer2 November 01, 2021

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

Baca juga : D21 run Pengganti Situs Lk21 Terbaru

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

(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 [email protected].

Semoga bermanfaat...(*)