Muhammad Ripani CS13

Dibawah ini adalah script codenya :
PROGRAM MINIMARKET_ILKOM;
USES CRT;
VAR
h1, h2, h3, h4, h5, j, stot1, stot2, stot3, stot4, stot5: longint;
d, total: real;

Begin
clrscr;
writeln('|-------------------MINIMARKET ILKOM-------------------|');
writeln('|------------------------------------------------------|');
writeln('|No|   Barang   |   Harga   |  Jumlah  |   Sub Total   |');
writeln('|1 |Sabun       |Rp         |          |Rp             |');
writeln('|2 |Bedak       |Rp         |          |Rp             |');
writeln('|3 |Telur       |Rp         |          |Rp             |');
writeln('|4 |Permen      |Rp         |          |Rp             |');
writeln('|5 |Gula        |Rp         |          |Rp             |');
writeln('|-------------------------------Diskon |Rp             |');
writeln('|-------------------------------Total  |Rp             |');

        Begin
        gotoxy(21,4); write(''); read(h1);
        gotoxy(34,4); write(''); read(j);
        gotoxy(45,4); stot1:=(h1*j); write(stot1);

        gotoxy(21,5); write(''); read(h2);
        gotoxy(34,5); write(''); read(j);
        gotoxy(45,5); stot2:=(h2*j); write(stot2);

        gotoxy(21,6); write(''); read(h3);
        gotoxy(34,6); write(''); read(j);
        gotoxy(45,6); stot3:=(h3*j); write(stot3);

        gotoxy(21,7); write(''); read(h4);
        gotoxy(34,7); write(''); read(j);
        gotoxy(45,7); stot4:=(h4*j); write(stot4);

        gotoxy(21,8); write(''); read(h5);
        gotoxy(34,8); write(''); read(j);
        gotoxy(45,8); stot5:=(h5*j); write(stot5);

        gotoxy(45,9); d:=0.1*(stot1+stot2+stot3+stot4+stot5);
        write(d:0:2,'-');
        gotoxy(45,10); total:=(stot1+stot2+stot3+stot4+stot5)-d;
        write(total:0:2,'-');
        Readkey;
        End;

End.

Dibawah ini adalah script codenya :
program prosedur;
uses wincrt;
CONST
K='r1p4n1';
L='R1P4N1';
VAR M: STRING;
    N: INTEGER;
    User : String;

PROCEDURE BENAR;
BEGIN
IF (M=K) OR (M=L) THEN
BEGIN
CLRSCR;
WRITELN('Selamat Datang ', User ,'!');
WRITELN('Silakan Tekan Enter Untuk Memulai Program');
N:=3;
READLN;
END;
END;

PROCEDURE SALAH;
BEGIN
IF (M<>K) AND (M<>L) THEN
BEGIN
WRITELN;
WRITELN('Password Yang Anda Masukkan Salah!!');
WRITELN('        Silakan coba lagi!!');
N:=N+1;
END;
END;

PROCEDURE PERINGATAN;
BEGIN
IF N=2 THEN
BEGIN
CLRSCR;
WRITELN('Password Yang Anda Masukkan Salah!!');
WRITE('Ini kesempatan ketiga anda! Jika Password yang anda masukan salah lagi');
WRITELN(' maka program akan tidak berjalan lagi. Dan cobalah beberapa saat lagi!!');

END;
END;

PROCEDURE password;
BEGIN
N:=0;
REPEAT
Writeln;
WRITE('Masukkan Nama Anda = '); READLN(USER);
WRITE('Masukkan Password  = '); READLN(M);
BENAR;
SALAH;
PERINGATAN;
UNTIL N = 3;
end;



procedure Program1;
var
   a,b:integer;
   i:integer;
begin
    clrscr;
writeln('   Program Perulangan For');
writeln('---------------------------');
writeln;
write('1. Masukan indeks 1 = ');
readln(a);
write('2. Masukan indeks 2 = ');
readln(b);
writeln;
if a>b then for i:=a downto b do write ('',i)
else for i:=a to b do  write(' ',i);                
readln;
end;

procedure program2;
var
  i:integer;
  begin

  clrscr;
writeln('  Program Perulangan While Do');
writeln('--------------------------------');
begin    
i:=1;
   while(i<=20) do

   begin
writeln('Perulangan ke-',i);
   i:=i+1;
end;
readln;
   end;
   end;

var
  menu:integer;
  begin
  clrscr;
password;
repeat
clrscr;
writeln('----------------------------------');
writeln('----------------------------------');
writeln('------- ////////////////// -------');
writeln('------- // MENU PROGRAM // -------');
writeln('------- ////////////////// -------');
writeln('----------------------------------');
writeln('----------------------------------');
writeln;
writeln('1. Program Perulangan For ');
writeln('2. Program Perulangan While Do');
writeln('3. Exit');
writeln;
write('Masukan Kode Menu (1,2,3)= ');readln(Menu);
case menu of
1: program1;
2: program2;
3: exit;
end;
until menu =3;
end.


               

Dibawah ini adalah source codenya :
PROGRAM Program_Representasi_Data;
USES wincrt;
VAR kode : Byte;
    enter, bin : String;
    a1 :real;
    Des : longint;
    d,sisa,biner,bil,f,n :longint;
    b,c,fak, I : longint;
Label Awal;


Begin
Awal: Clrscr;
Repeat;
writeln('|>>>         Masukan Kode Konversi yang Diinginkan           <<<|');
writeln('|                                                               |');
writeln('|== 1. Desimal ke Biner                                         |');
writeln('|== 2. Biner ke Desimal                                         |');
writeln('|== 3. Faktorial                                                |');
writeln('|== 4. Tentang Program                                          |');
writeln('|== 0. Exit                                                     |');
writeln('|                                                               |');
writeln('|Masukkan Kode:                                                 |');
writeln('|                                                               |');
writeln('|---------------------------------------------------------------|');
writeln('|------------------------------------------   Muhammad Ripani   |');
writeln('|------------------------------------------      J1F113021      |');
writeln('|------------------------------------------ Computer Science 13 |');
writeln('|_______________________________________________________________|');


gotoxy (17,9); write(''); read(kode);

    Case kode of
    1: Begin
clrscr;
writeln ('     Konversi Bilangan Desimal ke Biner     ');
writeln;
        writeln;
write ('Masukan Bilangan Desimal = '); ReadLn (Des);
Bin := '';
Repeat
Begin
 If   Des mod 2 = 0 Then Bin := '0' + Bin
 Else Bin := '1' + Bin;  Des := Des div 2;
 End;
Until Des = 0;
WriteLn ('Bilangan Biner = ',Bin);

writeln;
        writeln;
write('Tekan Enter untuk Kembali ');
        readln;
goto Awal;
End;


    2: Begin
clrscr;
writeln ('     Konversi Bilangan Biner Ke Desimal     ');
writeln;
        writeln;
des:=0;
b:=1;
write  ('Masukan Bilangan Biner = '); readln(biner);
    b:=1;
repeat
 sisa:=biner mod 10;
 biner:=biner div 10;
 des:=des+sisa*b;
 b:=b*2;
until biner=0;
write('Bilangan Desimal = ');writeln(des);

writeln;
        writeln;
write('Tekan Enter untuk Kembali ');
        readln;
goto Awal;
End;

    3: Begin
clrscr;
writeln('                 Faktorial                ');
writeln;
        writeln;
write('Masukkan Nilai yang difaktorialkan [B!] = '); readln(b);
write('Masukkan Nilai pembagi                  = '); readln(c);
fak:=1;
for I := 1 to b do
begin
fak:=fak * I;
end;
writeln('A= ',fak,'');
writeln('  ------');
writeln('    ',c,'');
a1:=fak/c;
writeln('A (Hasil Bagi)= ',a1:2:0,'');

writeln;
        writeln;
write('Tekan Enter untuk Kembali');
        readln;
goto awal;
        readln;
       End;
   
    4: Begin
clrscr;
write('     Program ini diberi nama Program Representasi Data. Pada program ini menggunakan Turbo Pascal For Windows 1.5. ');
write('Tujuan dari program ini dibuat agar lebih memudahkan mengkonversi bilangan desimal ke biner, mengkonversi ');
write('bilangan biner ke desimal dan memfaktorialkan bilangan. ');
        readkey;
writeln;
writeln;
write('    Untuk program tampilan awal menggunakan inputan kode menu, Dalam program iniTerdapat Lima Menu pilihan, ');
write('Menu Konversi Desimal Ke Biner, Menu Biner Ke Desimal, Menu Faktorial, Menu Tentang Program, Dan Menu Exit. ');
        readkey;
writeln;
writeln;
writeln;
write(' Tekan Enter untuk Kembali ');
readln(enter);
readln;
goto Awal;
        End;

    0: Begin
exit;
       End;

       End;
readln;
until (kode<-1) and (kode<5);
End.

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.