program ARRAY determinan

Bila anda belum menemkan pekerjaan yang sesuai dengan bakat anda, bakatilah apapun pekerjaan anda sekarang. Anda akan tampil secemerlang yang berbakat " ^__-

program PASCAL-determinan

program determinan;
uses wincrt;
var A : array[1..2,1..2] of integer;
j,k,D : integer;
begin
For j:=1 to 2 do
begin
write('Entrikan baris ',j,' matriks A : ');
readln(A[j,1] , A[j,2]);
end;
For j:=1 to 2 do
begin
For k:=1 to 2 do write(A[j,k] : 5);
writeln;
end;
writeln;writeln;writeln;
D := A[1,1]*A[2,2] - A[1,2]*A[2,1];
writeln('Det(A) = ',D);
end.

program input nilai

elieve you can get your dreams!! ^__-

program PASCAL-input nilai

PROGRAM INPUT OUTPUT

program input_nilai;
uses wincrt;
var
a:integer;
begin
readln(a);
case a of 81..100:writeln ('A');
76..80 :writeln ('AB');
70..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 kombinasi permutasi

Salah satu pengkerdilan terkejam dalam hidup adalah membiarkan pikiran yang cemerlang menjadi budak bagi tubuh yang malas, yang mendahulukan istirahat sebelum lelah ^__-

program PASCAL-kombinasi-permutasi

program permutasi_dan_kombinasi;
uses wincrt;
var
a,b,a_k,kombinasi,permutasi:real;
i,n,k:integer;
begin
writeln('MENGHITUNG PERMUTASI DAN KOMBINASI');
write('Masukkan bilangan n = ');readln(n);
write('Masukkan bilangan 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(n,'kombinasi',k,'=',kombinasi);
writeln(n,'permutasi',k,'=',permutasi);
end.

program binomial;
uses wincrt;
var n,i,x,s,j,q:integer;
a,b,c, kombinasi,r,p,hasil,hasil2, z:real;
begin
writeln('masukkan nilai n='); readln(n);
writeln('masukkan nilai x='); readln(x);
a:=1; b:=1; c:=1;
for i:=2 to n do
a:=a*i;
for i:=2 to x do
b:=b*i;
for i:=2 to (n-x) do
c:=c*i;
kombinasi:=a/(b*c);
writeln (kombinasi);
writeln ('p pangkat x');
writeln ('masukkan p=');readln(p);
hasil:=1; for i:=1 to x do
hasil:=p*hasil;
writeln('hasil'); writeln(hasil);
begin
writeln ('r pangkat q');
writeln ('masukkan r=');readln(r);
writeln ('masukkan q=');readln(q);
hasil2:=1; for j:=1 to q do
hasil2:=r*hasil2;
writeln ('hasil',hasil2);
end;
begin
z:=kombinasi*hasil*hasil2;
writeln('binomial',z);
end;
end.

program pascal penjumlahan perpangkatan

Jika kamu Berani Mencoba jangan takut Gagal, tapi percayalah bahwa kamu Pasti Bisa!! ^__-

penjumlahan-perpangkatan

PROGRAM PENJUMLAHAN BILANGAN GANJIL

program input_output_penjumlahan_ganjil;
uses wincrt;
var i,n :integer;
begin
read (n);
if n=1 then write (1);
if n>1 then
begin
for i:=n downto 2 do
write (2*i-1,'+');
write (1,'=');
write (sqr(n));
end;
end.

program perpangkatan;
uses wincrt;
var i,o,p:longint;
hasil:real;
begin writeln('a pangkat b');
writeln('masukkan a=');readln(o);
writeln('masukkan b=');readln(p);
hasil:=1;
for i:=1 to abs(p) do
hasil:=o * hasil;
if (p<0) then
begin
write('hasil=');
write(1/hasil);
end
else
begin
write('hasil= ');
write(hasil);
end;
end.

program pascal biner

Alhamdulillah,,, akhirnya final juga tugas UAS PIK ^__-

Pacu prestasimu!!

program PASCAL-Bilangan Biner

PROGRAM UBAH BINER-DESIMAL dan DESIMAL-BINER

program biner_ke_desimal;
uses wincrt;
var
biner,desimal,sisa,b :longint;
begin
desimal:=0;b:=1;
write(' angka biner ');readln(biner);
b:=1;
repeat
sisa:=biner mod 10;
biner:=biner div 10;
desimal:=desimal+sisa*b;
b:=b*2;
until biner=0;
write(' angka desimal ');writeln(desimal);
end.

program konversi_biner;
uses wincrt;
var desimal,d,sisa,biner:integer;
begin
write('angka desimal='); readln(desimal);
d:=0;
repeat
sisa:=desimal mod 2;
desimal:=desimal div 2;
if(d=0) then
d:=1
else
d:=d*10;
biner:=biner+sisa*d;
until desimal=0;
write('biner=',biner);
end.

program pascal hitung umur

Alhamdulillah,,, akhirnya final juga tugas UAS PIK ^__-

Ayo Belajar!!

program PASCAL-hitung umur

program hitung_umur;
uses wincrt;
var
nama:string;
umur,tahun:integer;
begin
writeln('masukkan nama:');readln(nama);
writeln('masukkan tahun lahir:');readln(tahun);
umur:=2011-tahun;
write('umur:');writeln(umur);readln(umur);
end.

program pascal huruf

Alhamdulillah,,, akhirnya final juga tugas UAS PIK ^__-

Ayo Belajar!!

program PASCAL-huruf vokal

program huruf_vokal;
uses wincrt;
var
data:char;
begin
readln(data);
case data of
'A','I','U','E','O':writeln('huruf besar vokal');
'a','i','u','e','o':writeln('huruf kecil vokal');
else writeln ('bukan huruf vokal');
end;
end.