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.