FREE PASCAL BERAT BADAN

 CARA MENGUKUR BERAT BADAN MENGGUNAKAN FREE PASCAL

 

 Assalamualaikum Wr.Wb..

Hai kawan, di sini saya bakalan kasih cara menghitung berat badan ideal menggunakan bahasa pemrograman PASCAL.

Untuk caranya silahkan dilihat saja

👇

uses crt;
label 7;
var
NM:STRING;
BB,TB:INTEGER;
BI:REAL;
KET:STRING;
JAWAB:CHAR;

BEGIN
CLRSCR;
WRITELN('PENGUKURAN BERAT BADAN IDEAL');
writeln(' ');
7: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.

DIATAS INI ADALAH CODENYA👆


PERTAMA TAMA MASUKKAN CODE/HURUF DAN TANDA SEPRTI DIATAS,INGAT JANGAN SAMPAI ADA TANDA YANG TERTINGGAL KARENA NANTI TIDAK AKAN BISA DIJALANKAN.SETELAH SUDAH MASUKKAN CODE TEKAN IKON BERTULISKAN *RUN* SETELAH DI *RUN* AKAN MUNCUL GAMBAR SEPERTI YG DIBAWAH INI

SETELAH DI *RUN* AKAN MUNCUL GAMBAR SEPERTI DIATAS👆MASUKAN NAMA ANDA,KEMUDIAN AKAN MUNCUL LAGI SPERTI GAMBAR DIBAWAH

LALU MASUKKAN BERAT BADAN ANDA SPERTI CONTAH DI ATAS^

KEMUDIAN MASUKKAN TINGGI BADAN ANDA SEPERTI CONTOH DIATAS^

SETELAH ITU AKAN ADA KETERANGAN SEPERTI APA KEADAAN TUBUH ANDA.

 BAIKLAH MUNGKIN CUKUP SEKIAN DARI SAYA UNTUK CARA MENGGUNAKAN FREE PASCAL UNTUK MENGUKUR BERAT BADAN.



              SEMOGA BERMANFAAT YA KAWAN😋😋😋

      JANGAN LUPA YA GAESS NONTON VIDEO TUTORIAL MEMBUAT SANGGAR DI alungtkj2.blogspot.com ,,jangan lupa makan ya gaes jaga kesehatan saya mohon pamit undur diri dadaaaaaaa✋✋✋✋ 
      

WASSALAMUALAIKUM WR.WB