TUTORIAL MEMBUAT PROGRAM PEMILIHAN IN PASCAL

Kali ini saya akan membuat tutorial program pemilihan di Pascal. Ya langsung saja kali ini saya akan menggunakan Turbo Pascal :

Step Pertama

Buka aplikasi Turbo Pascal pilih di file pojok kiri atas klik "New". Bila belum didownload bisa didownload Disini

Step Kedua

Ketik Code/Script dibawah ini

program tekanan_darah;
uses crt;
var
nama:string;
darah:longint;
begin
clrscr;
write('Program Check Tekanan Darah Tekan ENTER untuk Melanjutkan');readln;
write('Masukan Nama Anda : ');readln(nama);
write('Masukan Tekanan Darah Anda : ');readln(darah); 
if darah<=119 then
write('',nama,' Anda Mengalami Hipotensi')
else if darah<=120 then
write('',nama,' Anda Memiliki Tekanan Darah Normal')
else if darah<=139 then
write('',nama,' Anda Mengalami Pretensi')
else if darah<=159 then
write('',nama,' Anda Mengalami Hipertensi tahap 1')
else if darah<=179 then
write('',nama,' Anda Mengalami Hipertensi Tahap 2');
else
('Anda Mengalami Hipertensi Kritis');
readln;
end.

Step Ketiga

Save dengan mengklik File > Save As > Klik Save

Step Keempat

Compile dan Jalankan Program. Selesai

Penjelasan : 
Program Ini saya buat untuk mencheck tekanan darah seseorang.Dengan program pemilihan ketika menginput data akan otomatis terpilih item yang telah di tentukan.

Download Turbo Pascal