Algoritma Menentukan Rentang Berat Badan Ideal - Tugas Soal No.9 Halaman 154

Algoritma Menentukan Rentang Berat Badan Ideal - Tugas Soal No.9 Halaman 154

Soal :

Tinjau kembali soal latihan Bab 5 nomor 10 untuk menentukan berat badan ideal. Dibaca berat badan dan tinggi badan seseorang. Tulislah pesan"ideal" jika berat badan orang tersebut hanya berselisih +2 kg dari berat badan ideal, atau pesan "tidak ideal" jika tidak berselisih +2 kg dari berat badan ideal. Tulislah algoritmanya.

Source Code :

PROGRAM Soal_No9_Hal_154;

USES CRT;

VAR
   tinggi_badan    : REAL;
   berat_ideal     : REAL;
   berat_badan     : REAL;
   berat_ideal_max : REAL;
   berat_ideal_min : REAL;

BEGIN
     WRITE('tinggi badan : ');READLN(tinggi_badan);
     WRITE('berat badan  : ');READLN(berat_badan);

     berat_ideal:=(tinggi_badan-100) - ((tinggi_badan - 100)*0.1);
     berat_ideal_max:= berat_ideal + 2;
     berat_ideal_min:= berat_ideal - 2;

     WRITELN('Berat Idealnya adalah ',berat_ideal_min:4:2,' <--> ',berat_ideal_max:4:2);
     WRITELN('------------------------------------');
     WRITELN('Hasil : ');

     IF(berat_badan <= berat_ideal_max) AND (berat_badan >= berat_ideal_min) THEN
        BEGIN
             WRITELN('IDEAL');
        END
     ELSE
        BEGIN
             WRITELN('TIDAK IDEAL');
        END;
     READLN;
END.

Tampilan program ketika di jalankan :

Algoritma Menentukan Berat Badan Ideal - Tugas Soal No.9 Halaman 154