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 di Jambiseru.com – Jambi Seru :
Program Mencari Luas Persegi Panjang Pakai Pascal
Penonton Film Spider-Man: No Way Home (2021) Jambi Puas
(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… (*)
Sumber: Jambiflash.com (Media network Jambiseru.com)
