PROGRAM PASCAL MENAMPILKAN BERAT IDEAL

PROGRAM PASCAL MENAMPILKAN BERAT IDEAL

 Berikut ini program pascal untuk menampilkan berat ideal dari tinggi badan yang diinputkan
1.Programnya

 program MenampilkanBeratIdeal;
uses crt;
var
   TB,BI  : real ;
begin
     clrscr;
     writeln('Program Menampilkan Berat Ideal');
     write('Input Tinggi Badan :');readln(TB);

      BI :=(TB-100)*0.9;
     Writeln('Berat Ideal(KG)   :',BI:0:0);
     readln;

end.

 2.Program dalam Pascal



3.Hasilnya





Komentar

Posting Komentar

Postingan populer dari blog ini

MENGHITUNG VOLUME TABUNG DENGAN PASCAL

Gambar
MENGHITUNG VOLUME TABUNG DENGAN PASCAL Berikut adalah cara menghitung volume tabung menggunakan pascal. 1.Programnya program volume_tabung; uses crt; const phi=3.14; var    r,t,v:real; begin      clrscr;      writeln('Program Hitung Volume Tabung');      write('Masukkan jari jari alas tabung=');readln(r);      write('Masukkan tinggi tabung=');readln(t);      V :=phi*r*r*t;      writeln('Volume tabung    =',V:2:2);      readln; end. 2.Gambarnya 3.Hasilnya
Baca selengkapnya

TABEL DISTRIBUSI FREKUENSI DATA JAMAK, NILAI MEAN, ,MEDIAN, MODUS, QUARTIL DAN DESIL

  TABEL DISTRIBUSI FREKUENSI DATA JAMAK, NILAI MEAN, ,MEDIAN, MODUS, QUARTIL DAN DESIL Cari Tabel Distribusi Frekuensi Data Jamak, Nilai Mean, Median, Modus, Quartil dan Desil dari Soal dibawah ini! Soal NPM Ganjil 37    35   39   25   18   16   33   38    52   59   67 79    82   78   82   43   26   29    77   19   18   23 53   67   24   76   45   44   46     77    70   85   82 34   49   79   38   33   39   32      39    29   45   51 21   20    44   48 37   36   59      75    54   43   33 Penyelesaiannya :  Lihat di PDF yak kawan-kawan:'))
Baca selengkapnya

MENCARI LUAS LAYANG LAYANG DENGAN MENGGUNAKAN KALIMAT DESKRIPTIF DAN PSEUDO-CODE

MENCARI LUAS LAYANG LAYANG DENGAN MENGGUNAKAN KALIMAT DESKRIPTIF DAN PSEUDO-CODE Berikut Kalimat Deskriptif dan Pseudo-code mencari Luas Layang- layang Kalimat Deskriptif               Mulai               Masukkan nilai d1               Masukkan nilai Luas =1/2*d1*d2               Tampilan nilai Luas               Selesai Pseudo-code              Start              Variabel                          d1        : Integer                          d2        : Integer                          Luas...
Baca selengkapnya