Contoh script dasar pembuatan pada program delphi 7 (part 6)

sebelumnya saya sudah menjelaskan apa pengertian tentang procedure by reference dan procedure by value . sekarang saya akan memberikan contohnya...

1. procedure by reference
 program prosedur;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  x,y,z:integer;
Procedure tambah (var A,B,C:integer);
begin
  C:=A+B;
end;
begin
  write('Masukkan Nilai X = ');readln(x);
  write('Masukkan Nilai Y = ');readln(y);
  tambah(x,y,z);
  writeln('X + Y = ',z);
  readln;

end.

2. procedure by value
program prosedur;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  x,y:integer;
Procedure tambah (A,B:integer);
var
  c:integer;
begin
  c:=a+b;
  writeln('Hasil Penjumlahan ',c);
end;
begin
  write('Masukkan Nilai X = ');readln(x);
  write('Masukkan Nilai Y = ');readln(y);
  tambah(x,y);
  readln;
end.

contoh berikutnya:

program prosedur;

{$APPTYPE CONSOLE}

uses

  SysUtils;

Procedure tambah;

var

  a,b,c:integer;

begin

  write('Masukkan Nilai A = ');readln(a);

  write('Masukkan Nilai B = ');readln(b);

  c:=a+b;

  writeln('A + B = ',c);

end;

begin

  tambah;

  readln;

end.

 selamat mencoba dan good luck!!!!!!! :D

Pengertian by procedure reference dan procedure value

Sekarang kita akan belajar tentang procedur reference tetapi sebelum itu kita harus mengenal terlebih dahulu tentang apa itu procedure???!!!!

1. Procedure

Prosedure ini digunakan untuk aktivitas yang harus dilakukan lebih dari satu kali dan untuk menghindari penulisan teks program yang sama secara berulang kali. Prosedur ini cukup ditulis sebanyak satu kali namun dapat dipanggil dari bagian program utama. Pada dasarnya, struktur prosedur sama dengan struktur program yang sudah kita kenal, hanya saja bagian judul (header) ditulis PROSEDURE (bukan lagi PROGRAM)

contohnya:

Program menentukan_luas_keliling_lingkaran;

uses crt;

const

     phi=3.14;

var

   r:real;

Procedure Luas_lingkaran;

var

   luas:real;

begin

     luas:=phi*r*r;

     writeln('Luasliangkaran adalah ',luas:0:2);

     readln;

end;

{program utama}

begin

     clrscr;

     writeln('Program menghitung luas lingkaran');

     writeln(' ');

     write('input jari2 lingkaran ');

     read(r);

     writeln;

     Luas_lingkaran;

     readln;

end.

2. procedure by reference

Dengan menggunakan parameter pass by reference (secara acuan), maka proses – proses yang terjadi pada modul prosedur, akan mempengaruhi nilai pada parameter di program utama.

3.  procedure by value

          pada pengiriman nilai dengan pass by value maka nilai pada parameter di prosedur akan diisi dengan nilai pada parameter di program utama. Proses – proses yang terjadi di prosedur tidak akan mengubah nilai parameter di program utama. 

Contoh script dasar pembuatan program pada DELPHI 7 (part 5)

kali ini saya akan memberikan sebuah contoh tentang matrik berpola,langsung saja pertama kita buat dulu scriptnya..

contoh 1:

program project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  mat: array[1..10,1..10] of integer;
  x,y:integer;
begin
  for x :=1 to 5 do
   begin
    for y :=1 to 5 do
    begin
    mat[x,y] := 0;
    if x>= y then mat[x,y]:= x;
    write(mat[x,y]:5);
    end;
    writeln
    end;
    readln;
end.
maka hasilnya seperti ini;

contoh 2 :

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  mat: array[1..10,1..10] of integer;
  x,y:integer;
begin
  for x :=1 to 5 do
   begin
    for y :=1 to 5 do
    begin
    mat[x,y] := 0;
    if x+y=6 then mat[x,y]:= 1;
    write(mat[x,y]:5);
    end;
    writeln
    end;
    readln;
end.

maka hasilnya seperti ini;

selamat mencoba dan semoga sukses!!!!!

CONTOH SCRIPT MATRIK (PART 4)

SCRIPT MATRIK PADA PROGRAM DELPHI 7

·         nah selanjutnya saya akan memberikan contoh tentang coding matriks

·         rumus: 

•        Statement penulisan coding matrik

        

·          

·            program membuat_matrik_bil_ganjil;

·         {$APPTYPE CONSOLE}

·          

·         uses

·           SysUtils;

·           VAR

·          A,B,C:ARRAY[1..10,1..10]OF INTEGER;

·          X,Y,KOL,BAR:INTEGER;

·         begin

·           WRITE('MASUKKAN JUMLAH KOLOM= ');READLN(KOL);

·           WRITE('MASUKKAN JUMLAH BARIS= ');READLN(BAR);

·           WRITELN;

·           WRITELN('MASUKKAN DATA MATRIK A');

·           FOR X := 1 TO BAR DO

·           BEGIN

·           FOR Y := 1 TO KOL DO

·           BEGIN

·           WRITE('MATRIK A[',X,':',Y,']=');

·           READLN(A[X,Y]);

·           END;

·           END;

·          

·            WRITELN;

·            WRITELN('MASUKKAN DATA MATRIK B');

·           FOR X := 1 TO BAR DO

·           BEGIN

·           FOR Y := 1 TO KOL DO

·           BEGIN

·           WRITE('MATRIK B[',X,':',Y,']=');

·           READLN(B[X,Y]);

·           END;

·           END;

·          

·           FOR X := 1 TO BAR DO

·           BEGIN

·           FOR Y := 1 TO KOL DO

·           BEGIN

·           C[X,Y]:=A[X,Y]+B[X,Y];

·           END;

·           END;

·          

·           FOR X := 1 TO BAR DO

·           BEGIN

·           FOR Y := 1 TO KOL DO

·           BEGIN

·           WRITE(C[X,Y]:6);

·           END;

·           WRITELN;

·           END;

·          

·           READLN;

·         end.

·          

·         dan inilah hasilnya:

·       
          

PENGERTIAN MATRIK

Pengertian Matrix

Matriks adalah struktur penyimpanan data di dalam memori utama yang individu elemennya diacu dengan menggunakan dua buah indeks (yang biasanya dikonotasikan dengan baris dan kolom). Karena matriks sebenarnya adalah larik, maka konsep umum dari larik jugaberlaku untuk matriks, yaitu:

• Kumpulan elemen yang bertipe sama. Tipe elemen matriks dapat berupatipe dasar (integer, real, boolean, char dan string), atau tipe terstrukturseperti record.

• Setiap elemen data dapat diakses secara langsung jika indeksnya (baris dankolom) diketahui, yang dalam hal ini indeks menyatakan posisi relatif didalam kumpulannya.

• Merupakan struktur data yang statik, artinya jumlah elemennya sudah dideklarasi terlebih dahulu di dalam bagian kamus dan tidak bisa diubahselama pelaksanaan program.

PENGERTIAN ARRAY

      >Array adalah sekumpulan variabel yang memiliki tipe data yang sama dan dinyatakan dengan nama yang sama. Array merupakan konsep yang penting dalam pemrograman, karna array memungkinkan untuk menyimpan data maupun referensi objek dalam jumlah banyak dan terindeks. Array menggunakan indeks integer untuk menentukan urutan elemen-elemennya, dimana elemen pertamanya dimulai dari indeks 0,elemen kedua memiliki indeks 1, dan seterusnya.

.   

   > Mendeklarasikan Variabel Array

·         Mendeklarasikan variabel array dengan tipe data yang diinginkan dengan cara yang hampir sama dengan variabel biasa.

Jadi perbedaan utama pendeklarasian variabel array dengan variabel biasa adalah adanya tanda kurung [ ] di akhir tipe data atau di akhir nama variabel array. Pada tahap pendeklarasian variabel array ini belum ada alokasi memory untuk menyimpan data.

>Mendefenisikan Array

·         Setelah mendeklarasikan array, kita perlu mendefenisikan array, dalam arti menentukan besar array yang diinginkan.

Array memiliki ukuran yang tetap dalam arti tidak dapat membesar atau mengecil ukurannya setelah didefenisikan. Setelah didefenisikan, maka variabel dengan nama bilangan dapat menyimpan 5 nilai integer yang dapat diakses melalui indeks 0 sampai indeks 4.

.  > Array Dua Dimensi

      Pada java juga menyediakan fasilitas untuk membuat array dua dimensi yang dapat membantu dalam pemrograman apabila array datu dimensi tidak mencukupi dalam menghasilkan suatu solusi. Array dua dimensi sebenarnya adalah array yang berisi array.

>Array Multidimensi

        Selain array satu dimensi dan array dua dimensi, dapat juga membuat array multi dimensi pada java. Array multidimensi merupakan array yang terdiri dari array yang tidak terbatas hanya dua dimensi saja.

CONTOH DASAR PEMBUATAN SCRIPT PADA DELPHI 7(part 3)

Statement penulisan cooding looping

Perulangan pada bahasa pemrograman Java terdapat 3 macam yang memiliki sintaks dan penggunaan yang berbeda-beda. Ketiganya adalah FOR, WHILE, DO WHILE :

1.  Perulangan FOR digunakan untuk melakukan perulangan dengan jumlah yang sudah diketahui pasti.

2.  Perulangan WHILE digunakan untuk melakukan perulangan dengan jumlah yang belum diketahui pasti. Pernyataan pada WHILE akan dieksekusi setelah pengecekan kondisi pada WHILE bernilai TRUE.

3. Perulangan Repeat Until struktur pengulangandimana aksi dilakukan hingga kondisi     (persyaratan ) berhenti terpenuhi.

1. langsung saja kita ke lembar kerja yang pertama yaitu tentang perulangan FOR

contoh rumus sebagai berikut:

program for_to_do;

{$APPTYPE CONSOLE}

uses  SysUtils;

var

 i:integer;

Begin

for i:= 1 to 10 do;

writeln(i,'yadika');

readln;

end.

maka hasilnya akan seperti ini:

2. perulangan WHILE

  contoh rumus sebagai berikut:

program Project1_while;

{$APPTYPE CONSOLE}

uses         

  SysUtils;

Var

      tot,i,jum:integer;

      rata:real;

      nilai:array[1..10]of integer;

begin

  i:=1;tot:=0;

  write('Masukkan Jumlah Data = ');

  readln(jum);

  while i<=jum do

begin

  write('Masukkan nilai ke ' ,i,':');

  readln(nilai[i]);

  tot:=tot+nilai[i];

  i:=i+1;

end;

  rata:=tot/jum;

  writeln('Rata-Rata nilai = ' ,rata:6:1);

  writeln('');

readln;

end.

  maka seperti ini hasilnya:

3. REPEAT UNTIL

contoh rumus sebagai berikut:

program repeat_until;

{$APPTYPE CONSOLE}

uses  SysUtils;

var

 i:integer;

Begin

i:= 1;

repeat;

writeln(i,'yadika');

i:= i+1;

until i>10;

readln;

end.

maka hasilnya seperti ini:

semoga berhasil dan tetap semangat ^_^

CONTOH DASAR PEMBUATAN SCRIP PADA DELPHI 7 (PART 2)

Saya akan memberikan contoh script coding IF...ELSE...IF

Pertama kita tulis dulu scriptnya
contohnya:

program seleksi_hansip

{$APPTYPE CONSOLE}

uses  SysUtils;

var

    tinggi:integer;

begin

write('Masukkan Tinggi Badan Anda = '); readln(t);

If tinggi > 169 then

begin

  writeln('Tinggi Anda',t,'cm');

  writeln('Anda Layak Bekerja di Kantor Kami...!!!');

  writeln('SELAMAT ANDA DITERIMA...!!!');

end;

else

begin

  writeln('Tinggi Anda',t,'cm');

  writeln('Maaf Tinggi Badan Anda Kurang Mencukupi Persyaratan Kami...!!!');

  writeln('MOHON MAAF ANDA TIDAK DITERIMA...!!!');

end;

  readln;

end.

 setelah itu klik F9 maka akan muncul seperti ini

Selamat mencoba^_^