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.

Pernyataan Input dan Output pada Pascal

Dalam bahasa Pascal pernyataan input adalah pernyataan yang digunakan untuk memasukkan data. Pernyataan input yang ada di Pascal adalah READ dan READLN. Sedangkan pernyataan output adalah pernyataan yang digunakan untuk menampilkan hasil. Ada dua pernyataan output yaitu WRITE dan WRITELN. Berikut ini contoh program Pascal tentang cara melakukan input nama dan NRP (nomor induk mahasiswa).

program nama_nrp;

uses wincrt;

var nama: char;

nrp: longint; 

begin write('Nama : '); 

readln(nama);

 write('NRP  : '); 

readln(nrp); 

end.

Setelah program tersebut di running, maka akan keluar output sebagai berikut.

Program Segitiga Berpangkat

Program ini untuk membuat deret bilangan pangkat yang disusun secara urut dari pangkat 1, pangkat 2, pangkat 3, dan seterusnya. Kemudian deret tersebut dimuat dalam beberapa baris dimana setiap baris berisi suku sebanyak besarnya bilangan pokok yang dipangkatkan. Hal ini mengakibatkan deret tersebut membentuk segitiga. Untuk lebih jelasnya, silakan aktifkan software TPW yang sudah terinstall di komputer Anda lalu copy-paste program di bawah ini. Setelah itu jangan lupa klik RUN untuk melihat output/hasilnya.

program segitiga_pangkat;
uses wincrt;
var i,n,j,r:integer;  k:longint;
begin
write ('masukkan tingkat yang diinginkan!'); readln (n);
for i:=1 to n do
begin
for j:=1 to i do
k:=1;
for r:=1 to j do
begin
k:=j*k;
write (k); write(' ');
end;
writeln(' ');
end;
end.

Berikut gambaran outputnya jika angka yang dimasukkan = 4.

Selamat mencoba dan semoga berhasil ^_^