Alpro - Pascal Standar Deviasi

Bismillah.

Program SimpanganBaku;

Var

A,B,C,D,E:byte;

Rerata,Q,S:real;

Begin

Writeln(‘A= ‘);Readln(A);

Writeln(‘B= ‘);Readln(B);

Writeln(‘C= ‘);Readln(C);

Writeln(‘D= ‘);Readln(D);

Writeln(‘E= ‘);Readln(E);

Rerata:=0.2*(A+B+C+D+E);{0.2=1/n}

Q:=sqr(A-Rerata)+sqr(B-Rerata)+sqr(C-Rerata)+sqr(D-Rerata)+sqr(E-Rerata);

S:=sqrt(0.25*Q);{0.25=1/(n-1)}

Writeln(‘Standar Deviasi=’,S);

End.

Tampilan Turbo Pascal Standar Deviasi Untuk 5 data dengan jangkauan Byte:

Tampilan Program:

Algoritma Pemrograman - Bilangan Fibonacci

a. Algoritma dengan Bahasa Indonesia

Algoritma Bilangan Fibonacci

1.       Mulai

2.       Agar hasil berhingga berilah batas nilai n contoh 50

3.       Baca n, n adalah integer

4.       Jika n= 1 maka Fibonacci(n)=0

5.       Jika n=2 maka Fibonacci(n)=1

6.       Jika n>2 maka Fibonacci(n)=Fibonacci(n-2)+Fibonacci(n-1)

7.       Cetak Fibonacci(n)

8.       Lanjutkan sampai n=50

b.      Algoritma dengan Pseudocode

Algoritma Bilangan Fibonacci

1.       Start

2.       For n =1 to 50

3.       Input (n)

4.       ‘If’ n=1 ‘then’

Fibonacci(n)=0

‘if’ n=2 ‘then’

Fibonacci(n)=1

‘if’ n>2 ‘then’

Fibonacci(n)=Fibonacci(n-2)+Fibonacci(n-1)

5.       Write Fibonacci(n)

6.       Next

7.   End

c.       Algoritma dengan Flowchart

Bantu koreksi ya ._.v