Buat PROGRAM Menghitung Simpangan Baku !

PROGRAM Menghitung

{Program untuk menghitung simpangan baku}

DEKLARASI

x : array [1..100] of real

j, a, b, c, d, e, f : real

i, n : integer

ALGORITMA

Read (n) {tentukan jumlah elemen larik yang akan digunakan}

For i<-1 do="" n="" span="" to="">
Read (x[i]) {tentukan elemen larik A yang akan digunakan}
j <- 0="" span="">
j <- i="" j="" span="" x="">
a <- j="" span="">
b <- j="" n="" span="">
c <- -="" a="" b="" span="">
d <- c="" span="" sqr="">
e <- d="" n="" span="">
f <- e="" span="" sqrt="">
Write (d) {cetak nilai simpangan baku}
Enfor

Oleh : http://adf.ly/5Dve9

Buat PROGRAM Membalikkan Elemen Larik !

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

Oleh : http://adf.ly/5Dve9

Buat PROGRAM Mempertukarkan 2 Buah Larik !

PROGRAM Mempertukarkan;

{Program untuk mempertukarkan dua buah larik pada indeks yang bersesuaian}

DEKLARASI

A : Array[1..200] of Integer

B : Array[1..200] of Integer

C : Array[1..200] of Integer

i, N, tmp, mak : integer

ALGORITMA

Read (N) {tentukan jumlah elemen larik yang akan digunakan}

For i <- 1="" do="" n="" span="" to="">
Read (A[i]) {tentukan elemen larik A yang akan digunakan}
Endfor
For i <- do="" n="" span="" to="">
Read (B[i]) {tentukan elemen larik B yang akan digunakan}
Endfor
For i <- do="" n="" span="" to="">
C[i] <- b="" i="" span="">
B[i] <- a="" i="" span="">
A[i] <- c="" i="" span="">
Endfor
For i <- 1="" do="" n="" span="" to="">
Write (A[i]) {cetak data larik A setelah saling tukar}
For i <- 1="" do="" n="" span="" to="">
Write (B[i]) {cetak data larik B setelah saling tukar}
Endfor

Oleh : http://adf.ly/5Dve9

Buat Program Intan !

*

* * *

* * * * *

* * *

*

PROGRAM Intan

{Untuk mencetak intan dengan jari-jari = N}

DEKLARASI

Baris, Kolom, N : Integer

ALGORITMA:

Read (N)

Baris <- 1="" span="">
While Baris ≤ N do
Write ('*' : N + 1 - Baris)
Kolom <- 2="" span="">
While Kolom <- -="" 1="" baris="" do="" span="">
Write ('*')
Kolom <- kolom="" span="">
Endwhile
Writeln ( )
Baris <- baris="" span="">
Endwhile
Baris <- baris-2="" span="">
While Baris ≥ 1
Write ( '*' : N + 1 - Baris)
Kolom <- 2="" span="">
While Kolom ≤ (2 * Baris - 1) do
Write ('*')
Kolom <-kolom 1="" span="">
Endwhile
Writeln ( )
Baris <- -="" 1="" baris="" span="">
Endwhile

Oleh : http://adf.ly/5Dve9

Buat Program Bintang !

*

**

***

**

*

Program Bintang

Untuk mencetak N bintang}

DEKLARASI

N, I, J, K : Integer

ALGORITMA:

Read (N)

For I <- 1="" do="" downto="" n="" span="">
For J <- -="" 1="" do="" i="" span="" to="">
Write (' ')
K <- n="" span="">
Repeat
Write ('*')
K <- -="" 1="" k="" span="">
until (K <>
Writeln ( )
Endfor
Endfor
For I <- -="" 1="" do="" downto="" n="" span="">
K <- -="" 1="" n="" span="">
Repeat
Write(' ')
K <- -="" 1="" k="" span="">
until (K <>
For J <- 1="" do="" downto="" i="" span="">
Write ('*')
Writeln ( )
Endfor
Endfor

Oleh : http://adf.ly/5Dve9

Buat Program Tukar Kata !

Program Tukar_Kata

{Untuk mencetak kata menjadi terbalik}

DEKLARASI

Kata, Hasil, Temp : String

I : Integer

ALGORITMA:

Read (Kata)

Hasil <- span="">
For I <- 1="" ata="" do="" downto="" length="" span="">
Temp <- 1="" ata="" copy="" i="" span="">
Hasil <- hasil="" span="" temp="">
Endfor
Write (Hasil)

Oleh : http://adf.ly/5Dve9