progam khs pascal

uses wincrt;
var
NIM      :STRING[7];
NAMA     :STRING[7];
PS       :STRING;
SMSTR    :STRING;
MK       :ARRAY[1..10] OF STRING;
NILAIA   :ARRAY[1..10] OF BYTE;
NILAIH   :ARRAY[1..10] OF STRING;
SKS      :ARRAY[1..10] OF BYTE;
BOBOT    :ARRAY[1..10] OF BYTE;
TOTALA   :REAL;
TOTALS   :REAL;
IP       :REAL;
JSYDS    :INTEGER;
I        :INTEGER;

BEGIN
    
          
            WRITE('INPUTKAN NIM: ')          ;READLN(NIM);
            WRITE('INPUTKAN NAMA: ')         ;READLN(NAMA);
            WRITE('INPUTKAN PROGRAM STUDY: ');READLN(PS);
            WRITE('INPUTKAN SEMESTER: ')     ;READLN(SMSTR);
            WRITELN('============================================================================');
            WRITE('BERAPA BANYAK DATA YANG DIBUTUHKAN: ');READLN(I);

            FOR I := 1 TO I DO
            BEGIN
            WRITE('INPUTKAN MATA KULIAH: ')  ;READLN(MK[I]);
            WRITE('INPUTKAN JUMLAH SKS: ')   ;READLN(SKS[I]);
            WRITE('INPUTKAN NILAI ANGKA: ')  ;READLN(NILAIA[I]);
            WRITELN('============================================================================');
                 IF       NILAIA[I] >= 4 THEN

                    BEGIN
                         NILAIH[I]  := 'A';
                         BOBOT[I]   := SKS[I]*NILAIA[I];
                    END

                 ELSE IF  NILAIA[I] >=3  THEN

                    BEGIN
                         NILAIH[I]  :='B';
                         BOBOT[I]   :=SKS[I]*NILAIA[I];
                    END

                 ELSE IF NILAIA[I]  >=2 THEN

                    BEGIN
                         NILAIH[I]  :='C';
                         BOBOT[I]   :=SKS[I]*NILAIA[I];
                    END

                 ELSE IF NILAIA[I]  >=1 THEN

                    BEGIN
                         NILAIH[I]  :='D';
                         BOBOT[I]   :=SKS[I]*NILAIA[I];
                    END

                 ELSE   
                    BEGIN
                         NILAIH[I]   :='E';
                         BOBOT[I]    :=SKS[I]*NILAIA[I];
                    END;
              
               TOTALA := TOTALA + BOBOT[I];
               TOTALS := TOTALS + SKS[I]  ;
              
              
            END;



            WRITELN('         SEKOLAH TINGGI MANAJEMEN INFORMATIKA & KOMPUTER                 ');
            WRITELN('                        STMIK DUMAI                                      ');
            WRITELN('_________________________________________________________________________');
            WRITELN('NIM          : ',NIM);                                                    
            WRITELN('NAMA         : ',NAMA);
            WRITELN('PROGRAM STUDI: ',PS);
            WRITELN('SEMESTER     : ',SMSTR);
            WRITELN('===========================================================================');
            WRITELN(' NO         MATA KULIAH           SKS         NILAI        BOBOT           ');
                   FOR I := 1 TO I DO
                   BEGIN
                   WRITELN(I:3,MK[I]:20,SKS[I]:13,NILAIA[I]:13,NILAIH[I]:13);
                   END;
           WRITELN('============================================================================');

           WRITELN('TOTAL SKS   ANDA: ',TOTALS:12:0);
           WRITELN('TOTAL NILAI ANDA: ',TOTALA:12:0);
           IP:= TOTALA/TOTALS;
           WRITELN('IP ANDA ADALAH: ',IP:12:0);

           IF       IP <= 4 THEN

                    BEGIN
                         JSYDS  := 12*2;
                    END

           ELSE IF  IP <=3  THEN

                    BEGIN
                         JSYDS  :=10+11;
                       
                    END

           ELSE IF  IP <=2 THEN

                    BEGIN
                       JSYDS  :=9*2;
                        
                    END

           ELSE   

                    BEGIN
                         JSYDS  :=8*2;
                        
                    END;

               

         WRITELN('JUMLAH SKS MAK SMSTER Y.A.D : ',JSYDS);

END.










                                                                                                         

moga bermanfaat.........

PROGRAM PASCAL GAJI KARYAWAN

{JAMIAH}
USES WINCRT;
VAR
NAMAPEGAWAI :ARRAY[1..100] OF STRING[25];
GOLONGAN    :ARRAY[1..100] OF STRING[1];
GAJIPOKOK   :ARRAY[1..100] OF REAL;
TUNJAGAN    :ARRAY[1..100] OF REAL;
PAJAK       :ARRAY[1..100] OF REAL;
GAJIBERSIH  :ARRAY[1..100] OF REAL;
BULAN       :STRING;
I,JD           :INTEGER;

BEGIN
WRITE('BULAN :  ');READLN(BULAN);
WRITELN('BANYAK DATA YANG DIBUTUHKAN:  ');READLN(JD);
FOR I := 1 TO JD DO
       BEGIN
            WRITELN('DATA KE:',I);
            WRITELN('INPUTKAN NAMA KARYAWAN:  ');READLN(NAMAPEGAWAI[I]);
            WRITELN('INPUTKAN GOLONGAN     :'  );READLN(GOLONGAN[I]);
            WRITELN('================================================');
       if GOLONGAN[I]= 'A' then
          begin
            GAJIPOKOK[I] := 1000000;
            PAJAK[I]     :=0.1 * GAJIPOKOK[I];
            GAJIBERSIH[I]:=(GAJIPOKOK[I]+TUNJAGAN[I])-PAJAK[I];
          end
        else if GOLONGAN[I]= 'B' then
          begin
           GAJIPOKOK[I] := 1500000;
           PAJAK[I]     :=0.15 * GAJIPOKOK[I];
           GAJIBERSIH[I]:=(GAJIPOKOK[I]+TUNJAGAN[I])-PAJAK[I];
        end
        else
          begin
          GAJIPOKOK[I]  := 2000000;
          PAJAK[I]      :=0.2 * GAJIPOKOK[I];
          GAJIBERSIH[I] :=(GAJIPOKOK[I]+TUNJAGAN[I])-PAJAK[I];
          end;
         END;

         WRITELN('                LAPORAN DATA GAJI MAHASISWA                            ');
         WRITELN('================================================================================');
         WRITELN('NO    NAMA      GOLONGAN    GAJI POKOK   TUNJAGAN   PAJAK   GAJI BERSIH');
         WRITELN('=======================================================================');
                 FOR I := 1 TO I DO
                 BEGIN
                 WRITELN(I:3,NAMAPEGAWAI[I]:10,GOLONGAN[I]:2,GAJIPOKOK[I]:10,TUNJAGAN[I]:12:0,PAJAK[I]:12:0,GAJIBERSIH[I]:12:0)
                 END;
       WRITELN('=========================================================================');

  END.

PROGRAM PASCAL EOQ

hai,,,udah lama g posting listing program,,,,, sorry coz blog nya g bisa dibuka,,,, kini qu kembali lagi.... moga bermanfaat,,,,,
:) :) :)


uses wincrt;
var
A,B,C,D,E,F,Q,REC,PES,PEST,HARI,G,TCC,TOC,SAF,TIC:REAL;
BEGIN
WRITE('PENJUALAN PERTAHUN  : ');READLN(A);
WRITE('BIAYA PEMESANAN  : ');READLN(B);
WRITE('BIAYA PENYIMPANAN  : ');READLN(C);
WRITE('HARGA BELI  : ');READLN(D);
WRITE('PERSEDIAAN : ');READLN(E);
WRITE('WAKTU KIRIM  : ');READLN(F);

Q:=sqrt((2*B*A)/(C*D));
REC:=A/52;
PES:=(F*REC)+E;
PEST:=365/(A/Q);
HARI:=A/365;
G:=Q/2;
TCC:=C*D*G;
TOC:=B*(A/Q);
SAF:=C*D*E;
TIC:=TCC+TOC+SAF;

WRITELN('==================================');
WRITELN('EOQ= ',Q:12:2);
WRITELN('RECORDER POINT= ',REC:12:2);
WRITELN('PESAN ULANG= ',PES:12:2);
WRITELN('PESANAN DLM 1 TAHUN= ',PEST:12:2);
WRITELN('PEMAKAIAN PERHARI= ',HARI:12:2);
WRITELN('TCC= ',TCC:12:2);
WRITELN('TOC= ',TOC:12:2);
WRITELN('SAFETY STOCK= ',SAF:12:2);
WRITELN('TIC= ',TIC:12:2);
END.