Program Diagnosa Penyakit HIV menggunakan aplikasi pascal

Pas awal2 kuliah terutama yang erat kaitannya dengan komputer kita pasti sering diberi tugas bikin program pascal. sedikit repot memang tapi ane mau sedikit bantu ,oke gan ane akan memberikan contoh program pascal buatan ane sendiri, programnya sederhana banget semoga dapat bermanfaat
cekidot..

program penyakit;

uses crt;

var menu : integer ;

    a,b,c,d,e,f : char ;

    aa,bb,cc,dd,ee,ff,x : real;

    begin

    clrscr;

    textcolor (12);

    writeln ('Program Analisis Penyakit HIV/Aids');

    Textcolor (14);

    writeln;

    writeln ('|-----------Kode Menu---------|');

    writeln ('|-----------------------------------|');

    writeln ('| 1. Diagnosa Penyakit          |');

    writeln ('| 2. Penyebab Penyakit         |');

    writeln ('| 3. Pencegahan Penyakit     |');

     writeln ('| 4.Orang yg BeresikoTinggi|');

    writeln ('| 5. Tentang Program            |');

    writeln ('|     6. Exit                               |');

    writeln ('|                                               |');

    writeln ('|-----------------------------------|');

    writeln;

    write('Masukkan Kode Menu (1,2,3,4,5) : ');

    readln (menu);

    case menu of

    1: begin

       clrscr;

       textcolor (10);

       writeln('----Diagnosa Penyakit------');

       readln;

       writeln('Jawablah Pertanyaan dibawah ini');

       writeln;

       writeln('UntukMenganalisis kemungkinan anda terkena HIV/AIDS');

       writeln('Tekan Enter');

       readln;

       textcolor (6);

       writeln('Apakah anda mengalami demam tinggi berkepanjangan (Y/N) : ');

       readln (a);

       write ('Apakah berat badan anda menurun Drastis (Y/N) :');

       readln (b);

       write ('Apakah anda mual serta diare (Y/N) :');

       readln (c);

       write ('Apakah ketika malam anda berkeringat berlebih (Y/N) :');

       readln (d);

       write ('Apakah kulit anda kering dan terdapat bercak-bercak (Y/N) :');

       readln (e);

       write ('Apakah anda mengalami nafas pendek, batuk, nyeri dada dan demam (Y/N) :');

       readln (f);

       if (a='Y') or (a='y') then aa:=1

       else aa:=0;

       if (b='Y') or (b='y') then bb:=1

       else bb:=0;

       if (c='Y') or (c='y') then cc:=1

       else cc:=0;

       if (d='Y') or (d='y') then dd:=1

       else dd:=0;

       if (e='Y') or (e='y') then ee:=1

       else ee:=0;

       if (f='Y') or (f='y') then ff:=1

       else ff:=0;

       x:= (aa+bb+cc+dd+ee+ff)/6*100;

       writeln;

       textcolor (4);

       writeln('Kemungkinan anda mengidap penyakit Aids adalah ',x:0:0,'%');

       writeln;

       if x>=50 then Writeln('Segera periksa ke dokter untuk lebih memastikan')

       else

       writeln('Kemungkinan anda terkena HIV/Aids Rendah');

       readln;

       end;

    2: Begin

       clrscr;

       textcolor (13);

       writeln ('----Penyebab penyakit----');

       textcolor (7);

       writeln;

       writeln ('  HIV/AIDS adalah infeksi oleh virus HIV yang menyerang sistem kekebalan tubuh ');

       writeln ('sehingga sel sel pertahanan tubuh makin lama makin banyak yang rusak. ');

       writeln ('Penderita HIV menjadi sangat rentan terhadap semua bentuk infeksi. ');

       writeln;

       writeln ('  Pada akhirnya penderita tidak kebal terhadap kuman secara normal. ');

       writeln ('Infeksi tidak bisa ditularkan lewat kontak sosial biasa, makanan atau alat   ');

       writeln ('alat makan, toilet, kolam renang, serta gigitan nyamuk.');

       writeln;

       readln;

       end;

    3: Begin

       clrscr;

       textcolor (12);

       writeln ('----Pencegahan Penyakit------');

       writeln;

       textcolor (5);

       writeln ('1.Jangan melakukan hubungan seksual diluar nikah');

       writeln ('2.Menghindari hubungan seksual dengan orang yang mempunyai banyak pasangan seksual');

       writeln ('3.Hindari kontak langsung dengan penderita hiv');

       writeln  ('4.Menggunakan alat konstrasepsi');

       writeln ('5.Mengggunakan alat medis dan non medis yang steril');

       writeln ('6.Jangan bergonta-ganti pasangan');

       writeln;

       writeln;

       textcolor (3);

       readln;

       end;

    4: Begin

       clrscr;

       textcolor (3);

       writeln ('--Orang yang Beresiko Tinggi----');

       writeln;

       textcolor (4);

       writeln ('1. Orang-orang yang memakai narkoba suntik');

       writeln ('2. Orang yang membuat tato atau tindik');

     writeln ('3. Orang yang melakukan seks  sesama jenis');

       writeln ('4. Orang yg tinggal atau bepergian ke daerah dengan angka HIV tinggi');

       writeln ('5. Orang yang melakukan seks dengan pemakai narkoba');

       writeln ('6. Orang yang terkena infeksi penyakit seksual lain');

       readln;

       end;

    5: Begin

       clrscr;

       textcolor (9);

       writeln ('---------Tentang Program----------');

       writeln;

       textcolor (4);

writeln('Program ini dibuat dengan turbo pascal untuk mendiagnosa ');

       writeln('Penyakit HIV/Aids dengan memberi pertanyaan seputar gejala HIV/Aids ');

       writeln('Setelah menjawab Pertanyaan maka akan keluar hasil berapa persen ');

       writeln('Kemungkinan terkena penyakit HIV/Aids ');

       writeln;

       writeln('HIV(Human Immunodeficiency Virus) merupakan virus mematikan  penyebab infeksi ');

writeln('Seseorang yg terkena atau terinfeksi HIV/Aids sistem kekebalan tubuhnya ');

writeln('akan menurun drastis Virus Aids menyerang sel darah putih khusus yang disebut ');

       writeln('Tanda pertama penderita HIV biasanya akan mengalami demam ');

       writeln('selama 3 sampai 6 minggu tergantung daqya tahan tubuh. Setelah kondisi membaik orang ');

       writeln('Yang terinfeksi HIV akan tetap sehat dalam beberapa tahun dan secara perlahan kekebalan tubuhnya ');

writeln('Akan menurun karena serangan demam yang berulang.');

writeln;

writeln;

textcolor (15);

writeln('----Create by Melani Silva Irawan---');

readln;

end;

    6: Begin

        end;

        end;

end.

oke sekedar tambahan berikut tampilan programnya ketika di running