Program Mencari Nilai Maksimum dan Minimum pada pascal

Contoh program mencari nilai yang sudah kita inputkan serta mencari nilai maksimum dan nilai minimum

uses crt;

label awal;

const nmin = 1;
      nmax = 100;

type  arrint = array [nmin..nmax] of integer;
var tabint : arrint;
    x,n,i,indeks,max,min,maks : integer;

function seqsearch1(xx : integer): integer;
  var i : integer;
  begin
    i := 1;
    while ((i<n) and (tabint[i] <> xx)) do
      i:=i+1;
      if tabint[i] = xx then
        seqsearch1:=i
        else
        seqsearch1:=0;
  end;

function maksimum (tabint: arrint; n : integer) : integer;
  var i, max : integer;
  begin
   for i:=2 to n do
   if max<tabint[i] then
   max:=tabint[i];
   maksimum:=max;
  end;

function minimum (tabint: arrint; n : integer) : integer;
  var i, min : integer;
  begin
   for i:=1 to n do
   if min>tabint[i] then
   min:=tabint[i];
   minimum:=min;
  end;


begin
  clrscr;
  writeln;
  writeln('      Progaram Pencarian Nilai');
  writeln;
  writeln;
  writeln;
  write('Masukkan Jumlah Data = '); readln(n);
  writeln;
  writeln;
  for i:=1 to n do
    begin
       write('Data[',i,'] = '); readln(tabint[i]);
     end;
     clrscr;
    writeln;
    writeln;
        write ('  Nilai yang dicari : '); readln(x);
    indeks:=seqsearch1(x);
    writeln;
      if indeks <> 0 then
      write ('  Nilai : ',x,' ditemukan pada indeks ke-',indeks)
       else
      write('   Nilai : ',x,' tidak ditemukan !');

 begin
 writeln;
  maks:=maksimum(tabint,n);
  min:=minimum(tabint,n);
  writeln;
  writeln ('* Nilai maksimum : ',maks);
  writeln ('* Nilai minimum  : ',min );
  readln;
  end;
 end.

Read More

Contoh Proogram Selection Sort Data Mahasiswa pada Pascal

Berikut contoh program pengurutan nilai IPK pada data mahasiswa

uses crt;
type mhs= record
     Nama, NIM: string;
     IPK : real;
end;
var Data : array [1..100] of mhs;
    i, j, n, temp : integer;
    pilih : char;

procedure input;
begin
clrscr;
write('Masukkan jumlah mahasiswa : ');
readln(n);
for i := 1 to n do
begin
  writeln(' ___________________________________');
  writeln('|        Data Mahasiswa Ke-',i,'        |');
  writeln('|-----------------------------------|');
  writeln('| Nama    :                         |');
  writeln('| NIM     :                         |');
  writeln('| IPK     :                         |');
  writeln('|___________________________________|');
  gotoxy(13,5+(7*(i-1)));readln(Data[i].Nama);
  gotoxy(13,6+(7*(i-1)));readln(Data[i].NIM);
  gotoxy(13,7+(7*(i-1)));readln(Data[i].IPK);
  writeln;
 end;
end;

Procedure Table;
Begin
  writeln('|    |                          |           |           |');
  writeln('|____|__________________________|___________|___________|');
end;


procedure Tampil;
begin
clrscr;
 writeln(' _______________________________________________________');
 writeln('|                                                       |');
 writeln('|                 DATA NILAI MAHASISWA                  |');
 writeln('|_______________________________________________________|');
 writeln('|    |                          |           |           |');
 writeln('| No |         Nama             |    NIM    |    IPK    |');
 writeln('|____|__________________________|___________|___________|');
for i:=1 to n do
begin
 gotoxy(1,7+i);Table;
 gotoxy(3,7+i);writeln(i);
 gotoxy(8,7+i);writeln(Data[i].Nama);
 gotoxy(35,7+i);writeln(Data[i].NIM);
 gotoxy(50,7+i);writeln(Data[i].IPK:2:0);
 end;
readkey;
end;

procedure Selection;
var max: integer;
temp: mhs;
begin
 for i:=1 to n-1 do
  begin
   max:=i;
   for j:= i+1 to n do
    if Data[j].IPK< Data[max].IPK then
    max:=j;
    temp:= Data[max];
    Data[max]:= Data[i];
  Data[i]:= temp;
  end;
Tampil;
end;

begin
input;
Selection;
end.

Screenshot

Read More

Contoh Program Rekursif pada pascal

uses crt;
function kali(a,b:integer):longint;
begin
if b>1 then
begin
        kali:= kali(a,b-1)+a;
end else
kali:=a;
end;

procedure  Volume;
var a,b,c:integer;
    v:real;
begin clrscr;
      write('Panjang Limas  : '); readln(a);
      write('Lebar Limas    : '); readln(b);
      write('Tinggi Limas   : '); readln(c);
      v:=1/3*kali(a,b)*c;
      writeln('Volume Limas : ',v:2:0); readln;
end;

procedure Luas;
var a,b,c :integer;
        l :real;
begin
clrscr;
      write('Panjang Limas  : '); readln(a);
      write('Lebar Limas    : '); readln(b);
      write('Tinggi Limas   : '); readln(c);
      l:=kali(a,b)+1/2*kali(b,c)*4;
      writeln('Luas Limas   : ',l:2:0);  readln;
end;

var Pilih : char;
begin
repeat
clrscr;
writeln(' 1. Volume Limas Segi Empat');
writeln(' 2. Luas Limas Segi Empat');
writeln(' 3. Keluar');
writeln;
write('Pilih  : ');readln(Pilih);
case Pilih of
'1' : Volume;
'2' : Luas;
'3' : exit;
end;
until Pilih = '3';
end.

Read More

Array dan Record dalam Bahasa Pascal

1. Array 
     Array adalah sekumpulan variabel yang memiliki tipe data yang sama dan dinyatakan dengan nama yang sama. Array merupakan konsep yang penting dalam pemrograman.

2. Record

    Record adalah sebuah tipe data yang mengumpulkan beberapa item data di mana masing-masing tipe data dari item data ini berbeda-beda. Masing-masing item data ini bisa disebut dengan field.

Contoh Program Matrik 2 Dimensi dan Record
 Program Biodata_Mahasiswa;
 uses crt;
 Type Rec  = Record
      Nama : String[10];
      NIM  : String[10];
      Umur : Longint;
 end;
 var Data  : array[1..50] of Rec;
     n,i   : integer;
     Pilih : char;

 Procedure Input;
 Begin
  clrscr;
  n:=0;
  repeat
  clrscr;
  inc(n);
  writeln(' __________________________');
  writeln('|      BIODATA MAHASISWA     |');
  writeln('|__________________________|');
  writeln('| Data ke-',n,'                            |');
  writeln('|__________________________|');
  with Data[n] do
  begin
  writeln(' __________________________');
  writeln('| Nama :                                        |');
  writeln('| NIM  :                                         |');
  writeln('| Umur :     Tahun                           |');
  writeln('|__________________________|');
  gotoxy(10,7);readln(Nama);
  gotoxy(10,8);readln(NIM);
  gotoxy(10,9);readln(Umur);
  end;
  writeln;
  write('Input Data Lagi? [Y/N] : ');readln(Pilih);
  Until ((Pilih='n') or (Pilih='N'));
 end;

 Procedure Kolom;
 Begin
 writeln('|                                              |                    |              Tahun |');
 writeln('|_______________________|__________|____________|');
 end;

 Procedure Output;
 Begin
 clrscr;
 writeln(' _______________________________________________');
 writeln('|                             BIODATA MAHASISWA                        |');
 writeln('|_______________________________________________|');
 writeln('|                    Nama                 |      NIM      |          Umur        |');
 writeln('|_______________________|__________|_____________|');
 writeln('|                                               |                   |                          |');
 for i:=1 to n do
  begin
   with Data[i] do
    begin
     gotoxy(1,6+i);Kolom;
     gotoxy(3,6+i);writeln(Nama);
     gotoxy(27,6+i);writeln(NIM);
     gotoxy(38,6+i);writeln(Umur);
    end;
  end;
 readkey;
end;

Begin
repeat
clrscr;
  writeln(' ______________________');
  writeln('|            Menu Utama            |');
  writeln('|  1. Masukkan Data              |');
  writeln('|  2. Lihat Data                      |');
  writeln('|  3. Keluar                           |');
  writeln('|______________________|');
  writeln('|                                            |');
  writeln('| Masukkan Pilihan :              |');
  writeln('|______________________|');
  gotoxy(22,8);readln(Pilih);
  case Pilih of
  '1' : Input;
  '2' : Output;
  '3' : Exit;
end;
Until (Pilih)='3';
end.




Contoh Screenshoot Program pada saat dijalankan

Read More

Cloud Computing di Perkantoran

                                                                            Cloud

Perkembangan suatu tekhnologi informasi dalam bidang tekhnologi cloud computing dikemukakan oleh perusahan perusahan ternama seperti Microsoft, Yahoo, Telkomcloud, Google dan mungkin masih banyak lagi yang lainnya. Keuntungan dari tekhnologi ini sangat banyak, mungkin diantaranya adalah memudahkan mengakses suatu data atau file tanpa harus menggunakan penyimpanan data seperti flashdisk ataupun harddisk.selain itu kita juga tidak perlu menginstal suatu aplikasi di PC ataupun laptop untuk mengolah suatu data karena penyedia jasa sudah disediakan server. Tekhnolog ini sangat bisa diandalkan dalam instansi pemerintah dalam hal menganalisa dan mengaji ulang sebelum beralih tekhnologi. Dalam hal kerahasiaan maupun keamanan tekhnologi ini patut diacungi jempol. Efek samping mungkin Karena semakin banyak yang memakai penyedia ini, semakin banyak pekerjaan yang terjadi.

                Cloud computing atau biasa yang disebut komputasi awan adalah suatu perpaduan dari suatu pemanfaatan tekhnologi computer dengan suatu pengembangan yang mempunyai basis internet. Komputasi awan ini adalah suatu konsep tekhnologi internet atau layanan internet terbaru. Cloud ini sangat tergantung pada koneksi internet. Sebagai contoh adalah aplikasi perkantoran umum yang dapat di akses dengan aplikasi penjelajah internet seperti Internet Explorer ataupun Mozilla firefox, aplikasi ini adalah windows live. Selain windows live, skydrive juga bentuk dari pengembangan dari tekhnologi komputasi awan tersebut. Ada beberapa pembagian cloud yaitu yang pertama adalah sebuah layanan aplikasi yang dapat digunakan setelah user berlangganan, seperti Microsoft office 365 atau yang lainnya. Yang kedua adalah sebuah layanan yang fungsinya untuk mengembangkan sebuah aplikasi seperti sebuah game yang ada didalam ruang lingkup facebook. Dan yang terakhir adalah sebuah layanan yang menyediakan sewa menyewa sebuah perangkat untuk menggunakan aplikasi yang meliputi sebuah media penyimpanan, system operasi maupun yang lainnya.

                Dalam cloud computing ini terdapat keuntungan dan kerugian. Keuntungan yang pertama adalah memudahkan layanan untuk masyarakat. Hal ini karena semua sumber daya telah disediakan.

Selain itu dalam hal informasi cloud ini sangat mudah diakses dari semua kalangan atau semua umat didunia ini  jika kalangan atau umat tersebut menggunakan cloud computing ini. Dalam hal tanggung jawab, tidak bisa diragukan lagi pihak cloud computing ini, yaitu bertanggung jawab atas semua kegiatan atau aktifitas yang dianggap membahayakan. Dalam hal kecepatan tidak bisa diragukan lagi dalam hal akses mengakses suatu data. 

                Dalam hal kekurangan sangat jelas memerlukan suatu koneksi internet. Diindonesia saja belum tentu semua wilayah memiliki koneksi ke jaringan internet. Selain itu juga kurang memadai dan tidak stabil. informasi cloud ini mudah diakses, tetapi dalam hal kerahasiaan informasi tidak atau belum tentu dapat terjaga walaupun sudah disimpan de server tersebut. Untuk meyakinkan pengguna, pihak cloud memberikan sebuah kesepakatan bersama. Kekurangan selanjutnya adalah sebuah iinstansi pemerintah akan merugi apabila pihak cloud tidak mengurusnya. Memang pihak cloud bertanggung jawab  tetapi dalam keamanaan informasi apalagi informasi Negara belum yakin bisa terjaga baik karena banyak khalayak jail atau biasa disebut hacker yang ilmunya dalam hal curi mencuri tidak bisa diragukan lagi. Jadi pemerintah harus sering mengontrol. Kekurangan yang sangat jelas terlihat adlah dalam hal koneksi internet. Jika belum stabil jelas akan sering terjadi buffer dalam hal akses mengakses kedalam server yang menyediakan jasa tersebut.

                Jadi pada intinya apabila kita ingin menggunakan tekhnologi cloud ini kita harus bisa menyesuaikan dengan kebutuhan kita ataupun kebutuhan dari suatu instansi, baik pemerintah maupun yang lainnya.

Read More