Friday 9 October 2015

Membuat Program Sederhana Menggunakan Turbo Pascal

1. Kalkulator Penghitung Berat Badan

CARA PENULISAN SYNTAX :
program beratbadan_ideal;
uses crt;
var
   bb,tb,bi,tr,nk:real;
const
     pembatas='*********************************************';
begin
clrscr;
       writeln('SELAMAT DATANG DI PROGRAM ANALISA BERAT BADAN');
       writeln('BY RENDI ADIANSA G41151090');
       writeln('Golongan C Prodi Rekam Medik');
       writeln(pembatas);
       writeln;
       write('Masukkan tinggi tubuh Anda [cm] : '); readln(tb);
       write('Masukkan berat badan Anda  [kg] : '); readln(bb);
       bi:=tb-110;
       write('Berdasarkan perhitungan umum, maka berat badan anda dinyatakan ');
       if bb>bi then
          begin
          writeln('BERLEBIHAN');
          write('Seharusnya, berat badan anda : ');
          writeln(bi:2:0);
          tr:=bb-bi;
          write('Anda kami sarankan untuk menurunkan berat badan anda seberat : ');
          write(tr:0:0);
          end
       Else
           if bb
           begin
           writeln('KURANG');
           write('Seharusnya berat badan anda : ');
           writeln(bi:2:0);
           write('Anda kami sarankan untuk meningkatkan berat badan anda seberat : ');
           nk:=bi-bb;
           write(nk:0:0);
           end
           else
           write('IDEAL, pertahankan!');
readln;

end.



HASIL PROGRAM

PENJELASAN
Program ini menggunakan fungsi IF THE ELSE.
Pertama kita membuat kuisioner pada program yaitu dengan input Tinggi badan dan berat badan. Lalu kita hitung dengan rumus berat ideal = tinggi badan-110. Setelah itu kita masukkan pada logika apakah berat badan > berati ideal? jika ya berarti berat badan dinyatakan berlebihan. Jika tidak apakah berat badan < berat ideal? jika ya berat badan dinyatakan kurang. Jika tidak maka dinyatakan ideal.

Tulisan ini terinspirasi dari tugas mata kuliah saya saat ini yaitu Pemrograman Dasar di prodi Rekam Medik POLITEKNIK NEGERI JEMBER.

Terimakasih kepada :
Dosen Pembimbing, Ibu Sustin Farlinda, S.Kom, M.Kom.



No comments:

Post a Comment