Contoh Program Pascal Ukur Berat Badan Ideal


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 jambiserucom@gmail.com.

Semoga bermanfaat...(*)

Baca juga : Ini Spesifikasi Apple Watch 7 yang Baru

- Jambiflash : Berita, nonton, download, ulasan, film, korea, jepang, korea, thailand, india, france, rusia - World Best Search Engine : - google network www google com www google sg / www google com sg www google co id www google jp - bing network www bing com www yahoo com www yahoo jp -

----- Jambi Flash : Berita, Jambi, Film, Amerika, Korea, India, Barat, India, Thailand, Jepang, Aksi, France, Romantis, Sedih, Opini, Internasional, Terbaru, Terkini, Lawas -----