Praktikum 2 - Alpro 1 - Seleksi

Dibawah ini merupakan source codenya :

PROGRAM Diagnosa_Penyakit_Maag;
USES Wincrt;
VAR kode : Byte;
    u : Integer;
    enter : String;
    a, b, c, d, e, f, g, h, i, j: char;
    ha, hb, hc, hd, he, hf, hg, hh, hi, hj, hu: real;
Label Awal;
   

Begin

Awal: Clrscr;

writeln('==+==+==+==+==+== |<=><=><=><=><=><=><=><=><=>| ==+==+==+==+==+==');
writeln('==+==+==+==+==+== |       SELAMAT DATANG      | ==+==+==+==+==+==');
writeln('==+==+==+==+==+== |              di           | ==+==+==+==+==+==');
writeln('==+==+==+==+==+== | RUMAH SAKIT HASANUDIN HST | ==+==+==+==+==+==');
writeln('==+==+==+==+==+== |<=><=><=><=><=><=><=><=><=>| ==+==+==+==+==+==');
writeln('-----------------------------------------------------------------');
writeln('------------------------------  Created by     : Muhammad Ripani ');
writeln('------------------------------  NIM            : J1F113021       ');
writeln('------------------------------  Hak cipta dilindungi oleh  CS_13 ');
writeln('-----------------------------------------------------------------');
writeln('-----------------------------------------------------------------');
writeln('|<>=<>=<>=<>=<>=<>=<>        DIAGNOSIS         <>=<>=<>=<>=<>=<>|');
writeln('|<>=<>=<>=<>=<>=<>=<>      PENYAKIT MAAG       <>=<>=<>=<>=<>=<>|');
writeln('|---------------------------------------------------------------|');
writeln('|-------------------         Kode Menu          ----------------|');
writeln('|---------------------------------------------------------------|');
writeln('| 1. Diskripsi Penyakit Maag                                    |');
writeln('| 2. Diagnosa Penyakit                                          |');
writeln('| 3. Exit                                                       |');
writeln('|---------------------------------------------------------------|');
writeln('|                                                               |');
writeln('| Masukkan Kode Menu :                                          |');
writeln('|                                                               |');
writeln('|---------------------------------------------------------------|');

    gotoxy(24,22); write(''); read(kode);

    Case kode of
    1: Begin
        clrscr;
writeln('                             Diskripsi Penyakit Maag                             ');
writeln;
write('       Penyakit maag atau juga yang biasa dikenal nama gastritis merupakan suatu keadaan kesehatan');
write(' dimana terjadi pembengkakan, peradangan atau iritasi pada lapisan lambung. Penyakit ini biasanya');
write(' menyerang tiba-tiba dan berlangsung singkat, namun ada saatnya juga merupakan bagian penyakit kesehatan');
write(' yang serius dan berlangsung cukup lama.');
writeln;
write('      Penyakit maag adalah penyakit yang ditimbulkan oleh kelebihan asam yang diproduksi oleh lambung');
write(' yang menyebabkan iritasi di selaput lendir lambung, dalam kondisi normal asam diperlukan untuk membantu');
write(' pencernaan dalam mengolah makanan yang kita makan, selain dari kelebihan asam lambung sakit maag atau');
write(' radang lambung atau tukak lambung adalah gejala penyakit yang menyerang lambung dikarenakan terjadi luka');
write(' atau peradangan pada lambung yang menyebabkan sakit, mulas, dan perih pada perut selain akibat dari');
write(' radang lambung.');
writeln;
writeln;
        writeln;
writeln('Sumber: http://artikesehatan.wordpress.com/maag/ciri-ciri-maag/');
writeln('Sumber: http://penyakitmaag.net/');
writeln;
writeln;
write('Tekan Enter untuk Kembali');
        readln(enter);
readln;
        goto Awal;
       End;

    2: Begin
    clrscr;
writeln('                 Diagnosa Penyakit                      ');
writeln('');
        writeln('');
writeln('============================================================');
        writeln('|          Tolong Jawab Pertanyaan Berikut ini             |');
writeln('|                     untuk Mengetahui                     |');
writeln('|       Apakah Anda Terkena Penyakit Maag atau Tidak       |');
writeln('============================================================');
write  ('Usia Anda : ');
readln(u);
write  ('1. Apakah anda sering merasa lapar (Y/N)                : ');
readln(a);
write  ('2. Apakah anda makan secara teratur (Y/N)               : ');
readln(b);
write  ('3. Apakah anda sering mual dan muntah (Y/N)             : ');
readln(c);
write  ('4. Apakah anda mengkonsumsi obat/alkohol/rokok (Y/N)    : ');
readln(d);
write  ('5. Apakah anda merasa nyeri pada bagian dada/perut (Y/N): ');
readln(e);
write  ('6. Apakah anda merasa sakit saat buang air besar (Y/N)  : ');
readln(f);
write  ('7. Apakah anda sering bersendawa (Y/N)                  : ');
readln(g);
write  ('8. Apakah perut anda terasa kembung (Y/N)               : ');
readln(h);
write  ('9. Apakah pola tidur anda kurang teratur (Y/N)          : ');
readln(i);
write  ('10.Apakah anda sering dalam kondisi stress (Y/N)        : ');
readln(j);

if u<=60 then hu:=1
        else hu:=0;
if (a='Y') or (a='y') then ha:=1
      else ha:=0;
      if (b='Y') or (b='y') then hb:=0
    else hb:=1;
      if (c='Y') or (c='y') then hc:=1
      else hc:=0;
      if (d='Y') or (d='y') then hd:=1
      else hd:=0;
      if (e='Y') or (e='y') then he:=1
      else he:=0;
      if (f='Y') or (f='y') then hf:=1
      else hf:=0;
      if (g='Y') or (g='y') then hg:=1
      else hg:=0;
      if (h='Y') or (h='y') then hh:=1
else hh:=0;
if (i='Y') or (i='y') then hi:=1
else hi:=0;
if (j='Y') or (i='y') then hj:=1
else hj:=0;
writeln;
        writeln;
writeln('Kemungkinan anda mengidap penyakit Maag adalah ',(ha+hb+hc+hd+he+hf+hg+hh+hi+hj+hu)/11*100:0:0, '%');
        writeln('__________________________________________________________________________');
writeln('Jika persentasi anda mengidap Maag berkisar  1-50% tergolong tahap ringan ');
writeln('Jika persentasi anda mengidap Maag berkisar 51-75% tergolong tahap sedang ');
writeln('Jika persentasi anda mengidap Maag berkisar 76-100% tergolong tahap kronis');
writeln;
writeln('Obat-obatan yang bisa digunakan: ');
writeln('1. Antasida (Menetralisir asam lambung dan menghilangkan rasa nyeri)');
writeln('2. Obat anti sekretorik (Mampu menekan sekresi asam)');
writeln('3. Pankreatin (Membantu pencernaan lemak, karbohidrat, protein)');
writeln('4. Ranitidin (Mengobati tukak lambung)');
writeln('5. Simetidin (Mengobati dispepsia)');
writeln;
writeln;
writeln('http://id.wikipedia.org/wiki/Maag');
writeln;
        writeln;
write(' Tekan Enter untuk Kembali ');
        readln;
goto Awal;
End;

    3: Begin
clrscr;
writeln('=<>= Terima Kasih Anda Telah Mengunjungi Rumah Sakit Hasanudin HST =<>=');
writeln;
writeln;
        readln;
       End;

       End;

Readkey;
end.