PROGRAM Membalikkan
{Program untuk membalikkan elemen-elemen larik}
DEKLARASI
i, j, n : integer
temp : string
x : array [1..100] of string
ALGORITMA
Read (n) {tentukan jumlah elemen larik yang akan digunakan}
For i <- do="" n="" span="" to="">
Read (x[i]) {tentukan elemen larik x yang akan digunakan}
Endfor
i <- 1="" span="">
j <- n="" span="">
While (i≤j) do
temp <- i="" span="" x="">
x[i] <- j="" span="" x="">
x[j] <- span="" temp="">
i <- i="" span="">
j <- j-1="" span="">
temp <- i="" span="" x="">
x[i] <- j="" span="" x="">
x[j] <- span="" temp="">
For i <- 1="" do="" n="" span="" to="">
Write (x[i]) {cetak data larik x setelah saling balik}
Endhile
Endfor->->->->->->->->->->->->
Read (x[i]) {tentukan elemen larik x yang akan digunakan}
Endfor
i <- 1="" span="">
j <- n="" span="">
While (i≤j) do
temp <- i="" span="" x="">
x[i] <- j="" span="" x="">
x[j] <- span="" temp="">
i <- i="" span="">
j <- j-1="" span="">
temp <- i="" span="" x="">
x[i] <- j="" span="" x="">
x[j] <- span="" temp="">
For i <- 1="" do="" n="" span="" to="">
Write (x[i]) {cetak data larik x setelah saling balik}
Endhile
Endfor->->->->->->->->->->->->
Oleh : http://adf.ly/5Dve9
0 comment:
Post a Comment