1. Prosedur dengan parameter masukan/keluaran
ALGORITMIK
Prosedur :
Procedure TUKAR (input/output X, Y : integer)
/* Mempertukarkan nilai X dan Y */
/* K.Awal : Nilai X dan Y sudah terdefinisi */
/* K.Akhir : X berisi nilai Y yang lama, Y berisi nilai X yang lama*/
DEKLARASI
Temp : integer /* peubah Bantu */
DESKRIPSI
Temp <- x /* Simpan nilai X ke dalam temp */
X <- y /* isikan nilai Y ke dalam x */
Y <- temp /* isikan nilai temp ke dalam y */
Program Utama :
Algoritma TUKAR_A_B
/* Program utama untuk menukarkan nilai a dan B. Nilai A dan B dibaca dari piranti masukkan. */
DEKLARASI
A, B : integer
Procedure TUKAR (input/output X, Y : integer)
/* Mempertukarkan nilai X dan Y.*/
DESKRIPSI
Read (A,B)
Write(A,B) /* cetak nilai A dan B sebelum pertukaran */
TUKAR(A,B) /* cetak nilai A dan B dengan memanggil prosedur TUKAR*/
Write(A, B) /* cetak nilai A dan B setelah pertukaran */
Bahasa C
/* PROGRAM TUKAR_AB */
/* Program utama untuk mempertukarkan nilai A dan B. Nilai A dan B dibaca dari piranti masukan */
#include
void TUKAR (int *x, int *y)
{ Mempertukarkan nilai X dan Y }
main( )
{
/* DEKLARASI */
int A, B;
/* DESKRIPSI : PROGRAM UTAMA * /
printf(“A : ?”); scanf(“%d”,&A);
printf(“B : ?”); scanf(“%d”,&B);
/* Cetak nilai A dan B sebelum pertukaran * /
printf(“A= %d \n”,A);
printf(“B= %d \n”,B);
{ pertukarkan nilai A dan B dengan memanggil prosedur TUKAR }
TUKAR(&A,&B);
/* Cetak nilai A dan B sebelum pertukaran * /
printf(“A= %d \n”,A);
printf(“B= %d \n”,B);
}
void TUKAR (int *X, int *Y)
/* Mempertukarkan nilai X dan Y */
/* K. Awal : Harga X dan Y sudah terdefinisi. */
/* K. Akhir : X berisi harga Y, dan Y berisi harga Y semula. */
{
/* DEKLARASI */
int temp; /* peubah Bantu */
/* DESKRIPSI */
temp=*X; /* simpan harga X di dalam temp */
*X=*Y; /* isi X dengan harga Y */
*Y=temp; /* isi Y dengan harga temp */
}
