Contoh Program Pascal Ukur Berat Badan Ideal
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...(*)
Baca juga : Ini Spesifikasi Apple Watch 7 yang Baru