contoh program pascal Array


PROGRAM COBA;
USES CRT;
VAR
NM     : ARRAY[1..100] OF STRING[15];
NL    : ARRAY[1..100] OF INTEGER;
X, JD,JML,NMIN,NMAX     : INTEGER;
TANYA     : CHAR;
RATA    : REAL;


BEGIN
X:=0;
REPEAT
X:=X+1;
CLRSCR;
WRITELN('DATA KE                : ', X:3);
WRITE('NAMA SISWA             :');READLN(NM[X]);
WRITE('NILAI                  :');READLN(NL[X]);
WRITELN;
WRITE('MASIH ADA DATA Y/T: ');READLN(TANYA);
UNTIL TANYA='T';
JD:=X;
X:=0;
CLRSCR;
WRITELN('            DAFTAR NILAI');
WRITELN('========================================');
WRITELN(' NO      NAMA SISWA           NILAI');
WRITELN('----------------------------------------');
JML:=0;
NMIN:=NL[1];
NMAX:=NL[1];
REPEAT
X:=X+1;
IF NL[X]<NMIN THEN NMIN:=NL[X];
IF NL[X]>NMAX THEN NMAX:=NL[X];
WRITELN(X:3,NM[X]:15,NL[X]:15);
JML:=JML+NL[X];
UNTIL X=JD;
WRITELN('========================================');
RATA:=JML/JD;
WRITELN('RATA-RATA           : ', RATA:5:2);
WRITELN('NILAI TERTINGGI     : ', NMAX:3);
WRITELN('NILAI TERENDAH      : ', NMIN:3);


READLN;

END.


hasil program ketika dijalankan

 

dev c++ penghitungan kasir

#include <iostream>
#include <conio.h>

using namespace std;
 int KOP ()
{
    int  clrscr();
   cout<<" _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _"<<endl;
    cout<<"                                                                              "<<endl;
    cout<<"                                 PT LINE92                                    "<<endl;
    cout<<"                        Jl. Pankrock 37 Sukoharjo                              "<<endl;
    cout<<"                        iwanrdh@yahoo.co.id                                   "<<endl;
    cout<<"                                                                              "<<endl;
    cout<<" _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _"<<endl<<endl;

    cout<<endl;
    cout<<"           Maaf Barang Yang Sudah Dibeli Tidak Dapat Ditukar Kembali          "<<endl;
    cout<<"               Kecuali Ada Kesepakatan Antara Kedua Belah Pihak               "<<endl<<endl<<endl;
}


int Input ()
{
    int i;
   float n, jum, x;
   cout<<"                DAFTAR PEMBELIAN BARANG   "<<endl<<endl;
   cout<<"Banyaknya Barang Yang Dibeli : ";
   cin>>n;
   cout<<"  "<<endl;
   i=0;
   jum=0;
   do
       {
          i++;
         cout<<"Harga Barang ke-"<<i<<" : Rp ";
         cin>>x;
         jum=jum+x;
      }
   while (i<n);
   cout<<"           Jumlah : Rp "<<jum<<endl;
   cout<<"  "<<endl;
   cout<<"Tekan ENTER untuk Melakukan Pembayaran"<<endl;
   cout<<"  "<<endl;
   getch ();
}


void transaksi ()
{
    long menu,totalHarga,diskon,jmlhHarga;
   long UngPembyaran,Kembalian,hasil;
   char jawab;



   cout<<"                 MENU TRANSAKSI BARANG               "<<endl;
   cout<<"   1.Member    "<<endl;
   cout<<"   2.Bukan Member     "<<endl<<endl;
   cout<<"   Silahkan Pilih Menu 1-2 :";
   cin>>menu;
   cout<<"________________________________________"<<endl;
   cout<<"    "<<endl;


   if (menu==1)
       {
          cout<<"Selamat Anda Mendapatkan Tambahan diskon 2%"<<endl;
          cout<<"Masukan Total Harga   :Rp ";
          cin>>totalHarga;
         if (totalHarga >100000 && totalHarga<=200000)
             {
                 jmlhHarga =totalHarga-totalHarga*5/100;
               cout<<"Anda Mendapatkan Total diskon 5% dari tambahan diskon 2%"<<endl;
               cout<<"__________________________________"<<endl;
               cout<<"   "<<endl;
               cout<<"Jumlah Pembayaran     : Rp "<<jmlhHarga;
              }
          else if (totalHarga >200000 && totalHarga<=300000)
             {
               jmlhHarga =totalHarga-totalHarga*6/100;
               cout<<"Anda Mendapatkan Total diskon 6% dari tambahan diskon 2%"<<endl;
               cout<<"__________________________________"<<endl;
               cout<<"   "<<endl;
               cout<<"Jumlah Pembayaran     : Rp "<<jmlhHarga;
             }
           else if (totalHarga > 300000)
             {
                 jmlhHarga =totalHarga-totalHarga*7/100;
               cout<<"Anda Mendapatkan Total diskon 7% dari tambahan diskon 2%"<<endl;
               cout<<"__________________________________"<<endl;
               cout<<"   "<<endl;
               cout<<"Jumlah Pembayaran     : Rp "<<jmlhHarga;
             }
           else if(totalHarga<=100000)
                   {
                   cout<<"   "<<endl;
                   cout<<"_______________________________________________________"<<endl;
                   cout<<"| Maaf Anda tidak mendapatkan Diskon                  |"<<endl;
                   cout<<"| Dikarenakan Total Belanja Tidak Lebih dari Rp 100000|"<<endl;
                   cout<<"_______________________________________________________"<<endl;
                   cout<<"Total Harga           : Rp "<<totalHarga;
                   jmlhHarga=totalHarga;

                  }
         }

       else if(menu==2)
          {
             cout<<"Masukan Total Harga   : Rp ";
             cin>>totalHarga;
                 if (totalHarga >100000 && totalHarga<=200000)
                     {
                        jmlhHarga =totalHarga-totalHarga*1/100;
                           cout<<"Anda Mendapatkan diskon 1%"<<endl;
                           cout<<"__________________________________"<<endl;
                           cout<<"    "<<endl;
                           cout<<"Jumlah Pembayaran     : Rp "<<jmlhHarga;
                        }
               else if (totalHarga >200000 && totalHarga<=300000)
                     {
                         jmlhHarga =totalHarga-totalHarga*2/100;
                         cout<<"Anda Mendapatkan diskon 2%"<<endl;
                           cout<<"__________________________________"<<endl;
                           cout<<"   "<<endl;
                           cout<<"Jumlah Pembayaran     : Rp "<<jmlhHarga;
                        }
               else if (totalHarga > 300000)
                     {
                        jmlhHarga =totalHarga-totalHarga*3/100;
                           cout<<"Anda Mendapatkan diskon 3%"<<endl;
                           cout<<"__________________________________"<<endl;
                           cout<<"    "<<endl;
                           cout<<"Jumlah Pembayaran     : Rp "<<jmlhHarga;
                        }
               else if(totalHarga<=100000)
                       {
                           jmlhHarga=totalHarga;

                      }
           }
       else if(menu!=1 && menu!=2)
           {
             cout<<"Maaf Harusnya memilih angka 1 & 2";
           }

         cout<<"    "<<endl;

         cout<<"Uang Pembayaran       : Rp ";
         cin>>UngPembyaran;
         Kembalian=UngPembyaran-jmlhHarga;
         cout<<"__________________________________ -"<<endl;
         cout<<"Uang Kembalian        : Rp "<<Kembalian;
         cout<<"  "<<endl;

         if (UngPembyaran<jmlhHarga)
             {
                hasil=(Kembalian)*-1;
                cout<<"Pembayaran Anda Kurang: Rp "<<hasil;
            }


      getch();
}

 main ()
{
   char jawab;
   KOP ();

   Input ();
   cout<<"  "<<endl<<endl;
    transaksi ();
   cout<<"   "<<endl;

   cout<<"Apakah akan memlih menu transaksi lagi? (Y/T)";
         cin>>jawab;
         cout<<"  "<<endl<<endl;
   if (jawab=='y' || jawab=='Y')
      {
          do
         {
          Input ();
              cout<<"  "<<endl<<endl;
            transaksi ();
           cout<<"   "<<endl;
         cout<<"Apakah akan memlih menu transaksi lagi? (Y/T)";
         cin>>jawab;
         cout<<"  "<<endl<<endl;
         }
         while (jawab=='y' || jawab=='Y');
         getch ();
      }
   if (jawab=='t' || jawab=='T')
       {
         cout<<" . Terima Kasih Telah Berkunjung! ."<<endl;
         cout<<"                                                by:LINE92";
      }
   getch ();

}


gambar program ketika dijalankan


 

MENCARI BERAT BADAN IDEAL

#include <iostream.h>
#include <conio.h>

using namespace std;

int main()
{
    float tinggi, hasil1, hasil2, hasil3;
    cout<<"Masukkan Tinggi badan"<<endl;
    cin>>tinggi;
    hasil1=tinggi-100;
    hasil2=hasil1*0.1;
    hasil3=hasil1-hasil2;
    cout<<"Berat Badan Idealnya adalah "<<hasil3<<endl;
    getch();
}


Tampilan program jika dijalankan


 

krs

tabel krs

SEKOLAH TINGGI ILMU MANAJEMEN INFORMATIKA DAN KOMPUTER

STMIK DUTA BANGSA SURAKARTA

Jl.Bhayangkara No.55 Telp. 0271-719552 web: http://www.stmikdb.ac.id

KARTU RENCANA STUDI


NIM : 120103144 Pengampu Akademik : Nurchim,S.Kom
NAMA : IWAN RUDI HARTO Semester : 2
Program Studi : Teknik Informatika Jenjang : S1
No Kode mata kuliah Mata Kuliah SMT SKS Paraf Pengawas Prestasi Akhir SKS x Prestasi Akhir
UTS UAS
1 MKB 302 Algroritma & Pemrograman 2 3
2 MKB 303 Pemrograman Web I 2 3
3 MKK 303 Fisika II 2 3
4 MKK 306 Bahasa Inggris II 2 2
5 MKK 311 Aljabar Linier 2 3
6 MKK 313 Statistik 2 3
7 MKK 323 Teknik Digital 2 3
8 MKK 330 Kalkulus I 2 2
9 MPK 307 Pendidikan Kewarganegaraan 2 2
10
11
12
Mengesahkan, Surakarta,8 Januari 2013
Jumlah SKS: 24
Pembimbing Akademik Mahasiswa
IPK:
Nurchim,S.Kom IWAN RUDI HARTO

NIM/NAMA : 120103144/ IWAN RUDI HARTO
No Nama Dosen Mata Kuliah Paraf Dosen
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
1 Joni Maulindar,S.Kom Algroritma & Pemrograman
2 Muslim H Kiswanto,S.Kom Pemrograman Web
3 Drs. Muh Alhan Fisika II
4 Marginingsih, S.Pd Bahasa Inggris II
5 wiwik Setyowati,S.Si Aljabar Linier
6 Nurtesti Handayani,S.Si Statistik
7 Nurchim,S.Kom Teknik Digital
8 Drs.Hernawadi kalkulus I
9 Drs.Budi Utomo Pendidikan Kewarganegaraan
10
11
12
 
 
Support : Creating Website | Johny Template | Mas Template
Copyright © 2011. ELEKTRONIK - All Rights Reserved
Template Created by Creating Website Published by Mas Template
Proudly powered by Blogger