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

Semoga bermanfaat...(*)

Baca juga : Ini Spesifikasi Apple Watch 7 yang Baru

Contoh Program Pascal Ukur Berat Badan Ideal Contoh Program Pascal Ukur Berat Badan Ideal Reviewed by Co-Writer2 on 19.19 Rating: 5

JAMBI SERU NEWS NETWORK

Portal Jambi Seru : 1. Sepak Bola / Football - 2. Selebriti / Celebrity - 3. Lirik Lagu / Song Lyrics - 4. Film / Movie - 5. Teknologi / Technology - 6. Batanghari - 7. Merangin - 8. Muaro Jambi - 9. Tungkal  10. Tebo - 11. Kerinci - Sungai Penuh Network : 1. Jambi - 2. Jambi Flash  - 3. Koran Jambi - 4. Angso Duo - 5. Thehok 6. Seru TV

-----

Diberdayakan oleh Blogger.