Program Pascal Penghitung Mean, Varians, dan Standar Deviasi

PROGRAM statistik;
USES WINCRT;
VAR
 x:array[1..100] of real;
 rata,va: real;
 n,i: integer;
BEGIN
write ('masukkan banyaknya percobaan, n = ');
readln (n);
for i :=1 to n do
begin          
write ('n ke' ,i,' = ');
readln (x [i]);
end;
rata:=0;
for i:=1 to n do
rata:=rata + x [i]  ;
writeln('mean = ',rata/n:2:2);
va := 0 ;
for i:= 1 to n do
va := ( va + (sqr((x [i]) -( rata/n)))) / (n-1) ;
 writeln ('varians = ',va:2:2)    ;
writeln ( 'standar deviasi = ', sqrt (va):2:2)
end.

Contoh output program Pascal penghitung statistik deskriptif

Program Bilangan Prima

Program ini untuk menentukan apakah suatu bilangan yang diinputkan dapat dikatakan prima atau bukan, menggunakan bahasa Pascal. Cekidot!

Program bilangan_prima;
Uses wincrt;
Var
x:integer;
y:string;

Begin
write ('input bilangan : ');
readln(x);
if ((x mod 2=0) and (x<>2)) or (x=1) then
y:='bukan bilangan prima'
else if (x mod 3=0) and (x<>3) then
y:='bukan bilangan prima'
else if (x mod 5=0) and (x<>5) then
y:='bukan bilangan prima'
else if (x mod 7=0) and (x<>7) then
y:='bukan bilangan prima'
else y:='bilangan prima';
writeln(x,' adalah ',y);
end.

Daaaann . . . inilah hasilnya! Semoga bermanfaat, selamat mencoba! :)

Program Konversi Nilai Angka ke Nilai Huruf

Program ini untuk mengkonversikan nilai angka menjadi nilai huruf. Batas-batas nilai yang digunakan ini biasanya diterapkan di perguruan tinggi.

program menghitung_nilai;
uses wincrt;
var
a:integer;
begin
writeln('masukkan nilai!');
write('nilai angka = ');
readln(a);
case a of 81..100 : writeln ('nilai huruf = ','A');
 76..80 : writeln ('AB');
 71..75 : writeln ('B');
 61..70 : writeln ('BC');
 51..60 : writeln ('C');
 41..50 : writeln ('D');
 0..40 : writeln ('E');
else writeln ('input nilai salah');
end;
end.

Program Penghitung Rata-rata (Mean)

Mean (rata-rata) adalah hasil bagi dari jumlah data dengan banyaknya percobaan.
Berikut ini program Pascal untuk menghitung rata-rata sejumlah data tunggal.

program rata2;
uses wincrt;
var
i,n :integer ;
x,sum,mean : real;
begin
write ('banyaknya data, n = ')  ;
readln (n) ; sum:=0; i:=0;
repeat
      i:= i+1    ;
      write ('data ke ',i,' = ');
           readln (x);
           sum:= sum+x;
           until i=n;
           mean:= sum/n ;
           writeln ('rata-rata = ',mean:9:4);
           end.

Output program pascal penghitung mean

Program Permutasi dan Kombinasi

program permutasi_kombinasi;
uses wincrt;
var
a,b,a_k,kombinasi,permutasi:real;
i,n,k:longint;
begin
writeln('MENGHITUNG PERMUTASI (P) DAN KOMBINASI (C):'); writeln;
write('banyaknya percobaan, n = '); readln(n);
write('banyaknya kejadian yang diharapkan muncul, k = '); readln (k);
a:=1;
b:=1;
a_k:=1;
for i:=2 to n do
a := a*i;
for i:=2 to k do
b :=b*i;
for i :=2 to (n-k) do
a_k := a_k * i;
kombinasi := a/(b*a_k);
permutasi :=a/ (a_k);
writeln;
writeln ('permutasi ',k,' dari ',n,' = ',n,' P ',k,' = ', permutasi :0:0);
writeln ('kombinasi ',k,' dari ',n,' = ',n,' C ',k,' = ', kombinasi:0:0);
end.

Output program permutasi & kombinasi dalam Pascal

Program Faktorial

Program ini untuk menghitung faktorial dari bilangan yang dimasukkan. Selamat mencoba!

program faktorial;
uses wincrt;
var
i,n,f:integer;
begin
write('masukkan bilangan yang ingin difaktorialkan = ');

readln(n);
f:=1;
while i<n do
begin i:=i+1;
f:=f*i;
end;
write(n,'! = ',f);
end.

Output yang dihasilkan adalah sebagai berikut.

Contoh Program Sederhana dalam Pascal

Apabila Anda ingin belajar atau mencoba membuat progam Pascal secara langsung di komputer, maka Anda harus memiliki perangkat lunak (software)-nya dulu. Software pemrograman Pascal yang sering digunakan untuk keperluan akademi seperti di perguruan tinggi misalnya Turbo Pascal for Windows versi 1.5. Untuk mendownload software tersebut klik disini.

Jika sudah memiliki software tersebut, silakan buka program Turbo Pascal for Windows (TPW) yang sudah terinstall di komputer lalu ketikkan program sederhana berikut ini.

program sederhana;
uses wincrt;
begin writeln('belajar Pascal menyenangkan');
writeln('===========================');
writeln('selamat mencoba!');
end.

Setelah di run akan keluar output seperti di bawah ini.