Subscribe For Free Updates!

We'll not spam mate! We promise.

Saturday 21 December 2013

program mencari jumlah diagonal matriks

haii readers :D kali ini saya akan shareprogram untuk mencari jumlah diagonal-diagonal dari matriks dimana jumlah baris dan kolom ditentukan oleh user,, check this outtt ;;;;;;;;;;;;;;;;;;;;;;;;;;; :)

program diagonal_matriks;
uses crt;
type matrix = array[1..10, 1..10] of integer;
var i, j, n : integer;
a : matrix;
diag1, diag2, total : integer;

begin

writeln('===== Matriks n*n =====');
write('Besar kolom/baris Matriks : '); readln(n);
writeln;

diag1 := 0;
diag2 := 0;

clrscr;
for i:=1 to n do
for j:=1 to n do
begin
write('Nilai matriks A ',i,',',j,' : '); readln(a[i,j]);
end;

for i:=1 to n do
diag1:= diag1 + a[i,i];

j := 1;
for i:=n downto 1 do
begin
diag2:= diag2 + a[i,j];
j := j+1;
end;

clrscr;
for i:=1 to n do
begin
for j:=1 to n do
begin
write('[', a[i,j], '] ');
end;
writeln;
end;

total := diag1 + diag2;

writeln('Diagonal kiri-kanan = ', diag1);
writeln('Diagonal kanan-kiri = ', diag2);
writeln('TOTAL = ', total);

readln;
end.

haii readers :D kali ini saya akan shareprogram untuk mencari jumlah diagonal-diagonal dari matriks dimana jumlah baris dan kolom ditentukan oleh user,, check this outtt ;;;;;;;;;;;;;;;;;;;;;;;;;;; :)

program diagonal_matriks;
uses crt;
type matrix = array[1..10, 1..10] of integer;
var i, j, n : integer;
a : matrix;
diag1, diag2, total : integer;

begin

writeln('===== Matriks n*n =====');
write('Besar kolom/baris Matriks : '); readln(n);
writeln;

diag1 := 0;
diag2 := 0;

clrscr;
for i:=1 to n do
for j:=1 to n do
begin
write('Nilai matriks A ',i,',',j,' : '); readln(a[i,j]);
end;

for i:=1 to n do
diag1:= diag1 + a[i,i];

j := 1;
for i:=n downto 1 do
begin
diag2:= diag2 + a[i,j];
j := j+1;
end;

clrscr;
for i:=1 to n do
begin
for j:=1 to n do
begin
write('[', a[i,j], '] ');
end;
writeln;
end;

total := diag1 + diag2;

writeln('Diagonal kiri-kanan = ', diag1);
writeln('Diagonal kanan-kiri = ', diag2);
writeln('TOTAL = ', total);

readln;
end.

Tuesday 26 November 2013

PROGRAM JAJAR GENJANG

program jajargenjang;
uses crt; {kalau dev pascal menggunakan wincrt};
var i,j,k,l,n : integer;
begin
     write('input nilai n= ');
     readln(n);
     for i:=1 to n do
     begin
          for j:=i to n do
          begin
               write(' ');
          end;
          for k:=1 to n do
          begin
          write(' *');
          end;
          writeln;
     end;
     readkey;
end.

Tuesday 19 November 2013

program mencari faktorial


program faktorial;
uses crt;
var
a,b : integer;
c : int64;
begin
clrscr;
writeln('Program Faktorial by efelin');
writeln;
write('Masukkan angka = ');
readln(a);
c:=1;
if a=0 then
write(c)
else
begin
for b:=a downto 1 do
c:=b*c;
write('Hasil faktorial = ',c);
end;
readln;
end.

program jajargenjang


program mencetak_jajargenjang;
uses wincrt;
var i,j,k,l,n : integer;
begin
     write('input nilai n= ');
     readln(n);
     for i:=1 to n do
     begin
          for j:=i to n do
          begin
               write(' ');
          end;
          for k:=1 to n do
          begin
          write(' *');
          end;
          writeln;
     end;
     readkey;
end.

Friday 1 November 2013

PROGRAM BILANGAN GANJIL DAN BILANGAN BULAT

program untuk menampilkan apakah x bilangan ganjil atau bilangan genap, dengan syarat bilangan x diinput melalui keyboard

program bilganjil;
uses wincrt;
var x:integer;
begin
     write('input sebuah bilangan: ');
     readln(x);
     if x mod 2=0 then
        writeln('x adalah bilangan genap')
        else
             write('x adalah bilangan ganjil');
     readkey;
end.


contoh tampilan hail di layar

Thursday 31 October 2013

pemrograman

sebagai seorang mahasiswi ilmu komputer, tentu hidup saya sehari-harinya berhubungan dengan program,, yahhhhh sulit memang.. nah, bagi agan-agan sekalian yang mengalami hal serupa dgn saya, ini ada beberapa contoh program.. semoga bermanfaat ya,,, :)

struktur penulisan program pascal

 program (judul program)
uses (daftar unit)
(bagian deklarasi)
begin
   (statemen-statemen)
 end.

untuk contoh-contoh programnya nyusul d postingan berikutnya ya :)

Friday 11 October 2013

Matriks 4x4

well,, ini adalah postingan perdana saya. kali ini ttg matrix 4x4. check this out.



1.    Tentukan determinan matriks B = 
Penyelesaian :
dengan menggunakan kolom pertama pada matriks B sebagai kofaktor dan berdasarkan Teorema diatas dengan mengambil i = 1, 2, 3, 4 dan j = 1 maka diperoleh.
det(B) = 
= a11C11 + a21C21 + a31C31 – a41C41
= a11(-1)1+1M11 + a21(-1)2+1M21 + a31(-1)3+1M31 + a41(-1)4+1M41
= a11M11 – a21M21 + a31M31 + a41M41
= 2  – 1  + 0  – 0
hitung lagi determinan untuk matriks 3×3 nya
= 2[ambil i = 1 dan j = 1, 2, 3] – 1[ambil i = 1, 2, 3 dan j = 3] {untuk matriks ketiga dan keempat tidak perlu dihitung karena koefesiennya 0, sehingga apabila dikali, hasilnya akan tetap = 0}
= 2[a11C11 + a12C12 + a13C13] – 1[a13C13 + a23C23 + a33C33] + 0 – 0
= 2[a11(-1)1+1M11 + a12(-1)1+2M12 + a13(-1)1+3M13] -  1[a13(-1)1+3M13 + a23(-1)2+3M23 + a33(-1)3+3M33]
= 2[a11M11 – a12M12 + a13M13] – 1[a13M13 + a23M23 + a33M33]
= 2(0  – 1  + 1 ) – 1(1  – 0  + 3 )
= 2(0[1(3)-2(0)] – 1[2(3)-1(0)] + 1[2(2)-1(1)]) – 1(1[2(2)-1(1)] – 0[1(2)-1(3)] + 3[1(1)-2(3)])
= 2(0 – 6 + 3) – 1(3 – 0 + 3(-5))
= -6 + 12
= 6