Program Pascal Linked List

Minggu, 19 April 2015 - Diposting oleh Unknown di 16.20

Contoh Program Pascal Linked List

Berikut source code program :

program pointer1;
uses crt;
type
Dmhs = ^Rmhs;
Rmhs = record

nm,nim,prd: string;end;
var
mhs: array [1..5] of Rmhs;
n, i : integer;
begin
clrscr;
write ('Masukkan banyak data : ');
readln (n);
writeln;
for i:= 1 to n do
begin
writeln('Masukkan Data ke-',i,'!');
write('Nama     : ');
readln(mhs[i].nm);
write('NIM      : ');
readln(mhs[i].nim);
write('Prodi    : ');
readln(mhs[i].prd);
writeln;end;clrscr;
for i := 1 to n do
begin
writeln('Data ke-',i);
writeln('Nama   : ',mhs[i].nm);
writeln('NIM    : ',mhs[i].nim);
writeln('Prodi : ',mhs[i].prd);
writeln;
end;readkey;
end.

Output Program:

1. Tampilan saat program dijalankan

2. Tampilan saat data diinput

3. Tampilan hasil akhir

0 komentar

Program Pointer Tidak Bertipe dengan Pascal

Minggu, 12 April 2015 - Diposting oleh Unknown di 15.47

Contoh Program Pointer Tidak Bertipe
dengan Pascal

Berikut source code program :

Program Pointer_tidak_bertipe;
Uses crt;
Var
    p : Pointer;
    q : ^Byte;
    r : array [0..100] of Byte;
    i,n : Byte;

Begin
     Clrscr;
     GetMem(p, 20);
     q := p;
     Write('Input angka : '); readln(n);
     Clrscr;
     For i := 0 to n do
     Begin
          r[i] := n - i;
          q^ := n - i;
          inc(q);
     End;
     q := p;
     For i := 0 to n do
     Begin
          Write('r[ ', i ,' ] = ', r[i], ': ');
          Writeln('p^ ke-', i ,' = ', q^);
          inc(q);
     End;
    Readln;
End.

Dan berikut output program diatas :

1. Tampilan saat program dijalankan

2. Tampilan saat angka diinputkan

3. Tampilan akhir program

0 komentar

Program Extreme Search (Nilai Maksimum & Minimum) dengan Pascal

Minggu, 05 April 2015 - Diposting oleh Unknown di 08.41

Contoh Program dengan Extreme Search
dengan Pascal

Berikut Source Code Program :

Program extreme_search;

Uses crt;

Type

  Arrint = array [1..100] of integer;

Var

  maks, minm, jlh, i   : integer;

  tabint : arrint;



Function maksimum(tabint : arrint; n : integer) : integer;

Var

    i,max : integer;

Begin

  For i:=1 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('Program Extreme Search');

  Writeln('======================');

  writeln;

  Write('Jumlah Data = '); readln(jlh);

  Writeln;

  Write('Inputkan Data = ');

  For i:= 1 to jlh do

    Begin

      Gotoxy(13+(i*4),6); readln(tabint[i]);

    End;

  Writeln;

  Maks:=maksimum(tabint, jlh);

  Minm:=minimum(tabint, jlh);

  Writeln('Nilai Terbesar = ',maks);

  Writeln('Nilai Terkecil = ',minm);

  Readln;

End.

Dan berikut adalah output program diatas:

1. Tampilan saat program dijalankan

2. Tampilan saat jumlah data yang diinginkan diinput

3. Tampilan saat data diinputkan

4. Tampilan saat data telah ditemukan maksimum dan minimumnya

0 komentar

Program dengan Heap Sort (Sorting) dengan Pascal

Minggu, 29 Maret 2015 - Diposting oleh Unknown di 09.18

Contoh program Heap Sort
dengan Pascal

Berikut source code program:

Program Heap_Sort;

uses crt;
type SArray = array [0..100] of string;
var n,i: integer;
A: SArray;

procedure swap ( var a, b: string );
var temp: string;
begin

temp := a;
a := b;
b := temp;
end;

procedure siftDown ( var A: SArray; start, akhir: integer );
var root, child: integer;
begin

root := start;
while ( root * 2 + 1 <= akhir ) do
begin
child := root * 2 + 1;
if ( child < akhir ) and ( A[child] < A[child + 1] ) then
child := child + 1;

if ( A[root] < A[child] ) then
begin
swap ( A[root], A[child] );
root := child;
end else
break;
end;
end;

procedure heapify ( var A: SArray; count: integer );
var start: integer;
begin

start := (count - 1) div 2;
while ( start >= 0 ) do
begin
siftDown (A, start, count-1);
start := start - 1;
end;
end;

procedure heapSort( var A: SArray; n: integer );
var akhir: integer;
begin
heapify ( A, n );
akhir:= n - 1;

while ( akhir > 0 ) do
begin
swap( A[akhir],A[1]);
akhir := akhir - 1;
siftDown (A, 0, akhir);
end;
end;

begin
clrscr;
gotoxy(17,1);writeln('Program Sorting Secara Ascending');
gotoxy(17,2);writeln(' Menggunakan Metode Heap Sort ');
writeln; writeln;

write ( 'Inputkan Jumlah Data : ' ); readln (n);
writeln;
for i := 0 to n-1 do
begin
write('Nama ke-',i+1:2,' : ');
readln(A[i]);
end;
writeln('---------------------------------------');

heapSort ( A, n );
writeln;
writeln('Data setelah diurutkan ');
writeln;
for i := 0 to n-1 do
begin
writeln ('Nama ke-',i+1:2,' : ',A[i]);
end;
readkey;
end.

Dan berikut adalah tamilan output program diatas:

1. Tampilan saat program dijalankan

2. Tampilan saat jumlah data yang diinginkan diinput

3. Tampilan saat data diinputkan

4. Tampilan saat semua data telah diinput dan diurutkan

0 komentar

Program Factorial (Rekursif) Dengan Pascal

Kamis, 19 Maret 2015 - Diposting oleh Unknown di 06.57

Contoh Program "Factorial dengan Rekursif"
dengan Pascal

Berikut Source Code Program:

Program Factorial;
uses crt;

var n:integer;

function factorial(n:integer):integer;
begin
if (n=0) then
factorial:=1
else
factorial:= n*factorial(n-1);
end;

begin
clrscr;
write('Masukkan Angka : ');readln(n);
writeln('Hasil ',n,'! : ',factorial(n));
readln;
end.

Dan berikut adalah output dari prorgam diatas:

1. Tampilan saat progam dijalankan

2. Tampilan saat angka yang ingin difaktorialkan dimasukkan

3. Tampilan hasil faktorial dari angka yang diinput

0 komentar

Program Data Mahasiswa Dengan Pascal

Sabtu, 14 Maret 2015 - Diposting oleh Unknown di 20.37

Contoh program "Data Mahasiswa"
dengan Pascal

Berikut Source Code program:

Program Data_Mahasiswa;
Uses crt;

Type Tabel_Mhs = Recor
Nama : String[10];
NIM : String[10];
Nilai : Integer;
Grade : String[10];
End;

Var

Mhs : Array[1..20] of Tabel_Mhs;
Angka: Real;
i, n: Integer;

Begin
clrscr;
write('Masukkan banyak data : ');readln(n);
for i:=1 to n do
begin
write('Nama Mahasiswa : ');readln(Mhs[i].Nama);
write('NIM Mahasiswa : ');readln(Mhs[i].NIM);
write('Nilai : ');readln(Mhs[i].Nilai);

if Mhs[i].Nilai >= 80 then
Mhs[i].Grade:= 'A'
Else if Mhs[i].Nilai >= 70 then
Mhs[i].Grade:= 'B'
Else if Mhs[i].Nilai >= 60 then
Mhs[i].Grade:= 'C'
Else if Mhs[i].Nilai >= 50 then
Mhs[i].Grade:= 'D'
Else if Mhs[i].Nilai < 50 then
Mhs[i].Grade:= 'E';
Writeln('Grade : ',Mhs[i].Grade);readkey;
End;

Begin
Clrscr;
gotoxy(1,2);Writeln('DATA REPORT':45);
gotoxy(1,4);Writeln('[----][-------------][---------------][-----------][-----------]');
gotoxy(1,5);Writeln('[ NO ][ Nama ][ NIM ][ Nilai ][ Grade ]');
gotoxy(1,6);Writeln('[----][-------------][---------------][-----------][-----------]');

For i:= 1 to n do
Begin
with Mhs[i] do
begin
gotoxy(1,6+i);Write('[ ][ ][ ][ ][ ]');
gotoxy(1,7+i);Write(' ---- ------------- --------------- ---------- ----------- ');
gotoxy(4,6+i);Write(i);
gotoxy(11,6+i);Write(Nama);
gotoxy(27,6+i);Write(NIM);
gotoxy(43,6+i);Write(Nilai);
gotoxy(57,6+i);Write(Grade);

End;
Readkey;

End;

End;

End.

Dan berikut adalah output dari program diatas.

1. Setelah semua data yang diinginkan telah diinput

2. Tabel hasil dari inputan diatas

0 komentar

Aplikasi Perkantoran Berbasis Cloud dan Google Apps

Rabu, 10 Desember 2014 - Diposting oleh Unknown di 07.08

A. Perkenalan Aplikasi Perkantoran Berbasis Cloud dan Google Apps!!

Apasih Google Apps? Mungkin sebagian dari kalian banyak yang belum mengenal apa itu Google Apps? Tetapi mungkin Ayah, Ibu, Kakak atau kerabat kalian yang sudah bekerja di sebuah perkantiran atau perusahaan mungkin mengenal atau mungkin sering engguakannya. Ya benar, Google Apps adalah aplikasi perkantoran, tepatnya aplikasi perkantoran yang berbasis jaringan(cloud), cloud? Ya cloud itu artinya awan. Eits… awan yang dimaksud bukan awan yang ada dilangit ya, tapi awan itu sebagai nama lain untuk sebutan online. Jadi kesimpulannya Google Apps adalah aplikasi perkantoran yang berbasis jaringan/online dan memungkinkan google dapan digunakan sesuai seperti situs pribadi kita.

Aplikasi perkantoran berbasis jaringan bukan hanya ada Google Apps loh, tapi ada juga yang dikenal dengan nama Office 365 serta Zoho. Sebagai sedikit pengenalan saya akan menuliskan sedikit perbandingan dari ketiganya dari fungsi dan tampilannya.

B. Fungsi dan Tampilan

Dari pengamatan yang dilakukan Google Apps memang menyediakan berbagai macam tools pengolahan dokumen yang dapat digunakan. Namun, dari sisi tampilan Google Apps terlihat sangat sederhana dan kaku. Selain itu fungsi-fungsi dan formatting yang disediakan sangat terbatas. Office 365, menyuguhkan formatting dan fungsi yang cukup beragam dari pada oogle Apps. Office 365 lebih memungkinkan penyesuaian fungsi-fungsi formatting bagi para pengguna Microsoft office versi deskop agar tampilannya tetap sama saat diakses melalui Office 365. Sedangkan Zoho, untuk tampilan seta fungsi-fungsi formatting sama seperti Gogle Apps yaitu masih sangat sederhana dan terbatas. Namun Zoho memiliki fitur-fitur yang cukup inovatif dan memungkinkan pengguna melakukan formatting dokumen lebih cepat dari pada Google Apps.

Tapi disini saya sebagai penulis akan membahas tentang Google Apps saja, Office 365 dan Zohonya kapan-kapan yah…. Oke, Google Apps diawal saya sudah menjelaskan tentang apa itu Google Apps secara sederhananya. Saya akan menjelaskan lebih lengkapnya lagi sekarang.

Goggle Apps diluncurkan pertama kali pada Februari 2007 dengan nama Google Apps Premier. Dan pada Maret 2007 pihak Google menandatangani kesepakan untuk memberi akses ke Google Apps Education pada 70.000 mahasiswa di Kenya dan Rwanda. Pada Google Apps banyak pilihan aplikasi-aplikasi yang bisa anda gunakan, dan sebaiknya pemilihan aplikasi yang akan digunakan sesuai dengan kebutuhan, contoh untuk bisnis dan media belajar. Mungkin bisa menggunakan Gmail dan Docs atau produk-produk google lainnya.

C. 3 Pilihan Google Apps

Karena sudah dijelaskan bahwa Google Apps merupakan sekumpulan aplikasi berbasis cloud, maka Google Apps memiliki beberapa bagian inti yaitu meliputi Google Apps Email, Kalender,Drive,DocsSites, serta Vault(pengarsipan). Dan saat ini Google Apps terdapat 3 pilihan yaitu Google Apps-Free, Google Apps for Business, dan Google Apps for Business With Vault. Saya akan sedikit mengenalkan pada pembaca tentang 3 pilihan Google Apps tadi, penjelasannya sebagai berikut:

1. Google Apps-Free, aplikasi ini dapat digunakan secara cuma-cuma serta diperuntukkan untuk pengguna personal atau kelompok. Dan untuk kelompok maksimal 10 orang pengguna didalamnya dan setiap pengguna masing-masing mendapat jatah penyimpanan email 10 GB.

2. Google Apps for Business, dalam aplikasi ini jumlah penggunanya tidak dibatasi dan masing-masing pengguna akan mendapat kapasitas penyimpanan email sampai 25 GB, jaminan waktu oprasionalnya 99,9%,penggunaan perangkat seluler,penonaktifan iklandukungan 24 jam sehari. Aplikasi ini adalah aplikasi yang berbayar ,bayarannya adalah 5 USD per bulannya dengan masa uji selama 30 hati (1 bulan) gratis.

3. Google Apps for Business with Vault, aplikasi ini dasarnya sama dengan Google Apps for Busisness namun memiliki kelebihan yaitu dapat melakukan pengarsipan email dan kebijakan retensi. Untuk dapat menggunakan aplikasi ini pengguna akan dikenakan biaya perbulannya sebesar 10 USD.

Nah, bagaimana tadi perkenalan saja terhadap 3 pilihan pada Google Apps? Saya hanya dapat menjelaskan secara rinci penggunaan, kegunaan, dan biayanya saja. Didalam pilihan-pilihan tadi terdapat banyak pilihan aplikasi yang dapat anda gunakan sesuai dengan kebutuhan anda dalam bidangnya, dan aplikasi-aplikasi itu bisa didapat mulai dari yang gratis hingga berbayar setiap bulannya.

0 komentar