Menghitung Determinan Matrik Ordo 4x4 dengan Pascal

Ini dia untuk penghitungan determinan matrik berordo 4x4, silahkan dicoba... :D

program determinan_ordo4x4;

uses crt;

var

mat:array[1..4,1..4]of integer;

i,j,det:integer;

begin

clrscr;

for i:=1 to 4 do

begin

for j:=1 to 4 do

begin

write('masukkan angka (',i,',',j,') ');

readln(mat[i,j]);

end;

end;

writeln('matriks');

for i:=1 to 4 do

begin

writeln;

for j:=1 to 4 do

write(mat[i,j]:3);

end;

readln;

det:=(((mat[1,1]*mat[2,2]*mat[3,3]*mat[4,4])+ (mat[1,2]*mat[2,3]*mat[3,4]*mat[4,1])+ (mat[1,3]*mat[2,4]*mat[3,1]*mat[4,2]))-((mat[4,1]*mat[3,2]*mat[2,3]*mat[1,4])- (mat[4,2]*mat[3,3]*mat[2,4]*mat[1,1])- (mat[4,3]*mat[3,4]*mat[2,1]*mat[1,2])));

writeln('determinan ',det);

readln;

end.

Semoga bermanfaat sob

Jangan lupa jempolnya

Sekalian kunjungi Facebook ku ya :D

Terimakasih :)

Contoh Program Record

Program Record Mengisi Biodata Mahasiswa

uses crt;

type mhs=record

nama,nrm : string[20];

umur: integer;

end;

larik = array[1..100] of mhs;

var x:larik;

i,j, n : integer;

procedure bacadata(var x:larik;var n:integer);

begin

clrscr;

write('banyak data : ');readln(n);

for i:=1 to n do begin

write('nama : ');readln(x[i].nama);

write('nrm : ');readln(x[i].nrm);

write('umur : ');readln(x[i].umur);

end;

end;

procedure sort(var X:larik;n:integer); {mengurutkan data }

var t:mhs;

begin

for i:=1 to n-1 do

for j:=i+1 to n do

if x[i].nama>x[j].nama then begin

t:=x[i];x[i]:=x[j];x[j]:=t;

end;

end;

procedure cetak(x:larik;n:integer);

begin

clrscr;

writeln('datanya : ');

for i:=1 to n do begin

if (x[i].umur>=19) and (x[i].umur<=56) then

writeln(x[i].nama,' ', x[i].nrm,' ',x[i].umur);

end;

end;

begin {program utama}

bacadata(x,n);

sort(x,n);

cetak(x,n);

end.

Semoga bermanfaat

Kasih jempol dan komentar ya :D

Jangan lupa kunjungi facebook ku :)

Terimakasih :)

Download Film

Buat yang hobbi nonton film luar negeri maupun dalam negeri, nih ada link buat anda yang pastinya tak akan kecewa. Masuk aja ke link ini http://www.icinema3satu.com/

Semoga bermanfaat teman :D

Kasih jempol atau komen ya :D

Jangan lupa kunjungi juga facebook ku :)

Terimakasih

Program Mengurutkan Data dan Melihat data Duplikasi dengan Pascal

USES CRT;

VAR X:ARRAY[1..1000] OF INTEGER;

N,I,J,MAX,MIN,C,f : INTEGER;

BEGIN CLRSCR;

WRITE('BANYAK DATA : ');READLN(N);randomize;

FOR I:=1 TO N DO BEGIN

X[I]:=RANDOM(100)+1;

WRITE(X[I],' ');

IF I MOD 10=0 THEN WRITELN;

END;

WRITELN;

FOR I:=1 TO N-1 DO

FOR J:=I+1 TO N DO

IF X[I]>X[J] THEN BEGIN

C:=X[I];X[I]:=X[J];X[J]:=C;END;

FOR I:=1 TO N DO begin

WRITE(X[I],' ');

IF I MOD 15=0 THEN WRITELN;

end;

writeln;x[n+1]:=x[n]+1;

WRITELN('DATA DUPLIKASI :');

f:=1;max:=0;

FOR I:=1 TO N DO

IF X[I]=X[i+1] THEN inc(f) else begin

WRITE(X[I]:2,' ',f,'|');

if f>max then max:=f;

f:=1;inc(j);

IF j MOD 10=0 THEN WRITELN;

end;

writeln;

READLN;

END.

Semoga bermanfaat :)

Kasih jempol atau komentar ya :D

Jangan lupa kunjungi Facebook ku ya :D

Program Menghitung Determinan Matrik Ordo 2x2 dan 3x3 dengan Pascal

program determinanmatrix;

uses crt;

type t = object

data1 : array [1..2,1..2] of integer;

data2 : array [1..3,1..3] of integer;

procedure input;

procedure deter;

procedure tampil;

end;

var m :t;

x, y, z, pil, det1, det2 : integer;

procedure t.input;

begin

clrscr;

writeln ('Input Matrix Berordo 2x2');

for x:= 1 to 2 do

begin

for y:= 1 to 2 do

begin

write ('Elemen [',x,',',y,']: ');

readln (data1[x,y]);

end;

end;

gotoxy (25,1); writeln('Input Matrix Berordo 3x3');z:=2;

for x:= 1 to 3 do

begin

for y:= 1 to 3 do

begin

gotoxy (25,z);inc (z);

write ('Elemen [',x,',',y,']: ');

readln (data2[x,y]);

end;

end;

end;

procedure t.tampil;

begin

writeln;

writeln(' Matrix Berordo 2x2 ');

writeln (data1[1,1]:5,data1[1,2]:5);

writeln (data1[2,1]:5,data1[2,2]:5);

gotoxy (25,19);writeln(' Matrix Berordo 3x3 ');

gotoxy (25,20);writeln (data2[1,1]:5,data2[1,2]:5,data2[1,3]:5);

gotoxy (25,21);writeln (data2[2,1]:5,data2[2,2]:5,data2[2,3]:5);

gotoxy (25,22);writeln (data2[3,1]:5,data2[3,2]:5,data2[3,3]:5);

readln;

end;

procedure t.deter;

begin

det1 := (data1[1,1]*data1[2,2])-(data1[1,2]*data1[2,1]);

det2 := ((data2[1,1]*data2[2,2]*data2[3,3])+(data2[1,2]*data2[2,3]*data2[3,1])+(data2[1,3]*data2[2,1]*data2[3,2]))-((data2[3,1]*data2[2,2]*data2[1,3])+(data2[3,2]*data2[2,3]*data2[1,1])+(data2[3,3]*data2[2,1]*data2[1,2]));

writeln;

writeln ('Determinan Matrix Berordo 2x2 = ',det1);

writeln ('Determinan Matrix Berordo 3x3 = ',det2);

readln;

end;

begin

repeat

clrscr;

gotoxy(27,1);writeln ('MENU MATRIK');

gotoxy(27,2);writeln ('1. Input Matrix');

gotoxy(27,3);writeln ('2. Determinan Matrix');

gotoxy(27,4);writeln ('3. Keluar');

gotoxy(27,7);write ('Pilihannya adalah: ');

readln(pil);

case pil of

1 : begin

m.input;

m.tampil;

end;

2 : m.deter;

end;

until (pil)=3

end.

Setelah di Run pilih nomor 1 kemudian pilih nomor 2.

Semoga bermanfaat :D

Kasih jempol atau komentar ya :D

Jangan lupa kunjungi Facebook ku ya :D

Program Konversi Bilangan Desimal Go To Biner, Hexadesimal, Oktal dengan Pascal

Program Konversi;

uses crt;

var

des , desi : integer;

jawaban : char;

procedure biner(des, desi : integer);

var bin : string;

begin

bin:='';

repeat

if(des mod 2 = 0) then bin:='0'+bin

else bin:='1' + bin;

des:=des div 2;

until des=0;

writeln;

writeln('(',desi,') desimal = ',bin,' (Biner)');

end;

procedure heksa(des, desi : integer);

var heks : string;

h : integer;

begin

Heks:='';

repeat

h:=des mod 16;

case h of

0: heks:= '0' + Heks;

1: heks:= '1' + Heks;

2: heks:= '2' + Heks;

3: heks:= '3' + Heks;

4: heks:= '4' + Heks;

5: heks:= '5' + Heks;

6: heks:= '6' + Heks;

7: heks:= '7' + Heks;

8: heks:= '8' + Heks;

9: heks:= '9' + Heks;

10: heks:= 'A' + Heks;

11: heks:= 'B' + Heks;

12: heks:= 'C' + Heks;

13: heks:= 'D' + Heks;

14: heks:= 'E' + Heks;

15: heks:= 'F' + Heks;

end;

des:=des div 16;

until des=0;

writeln('(',desi,') desimal = ',Heks,' (Heksadesimal)');

end;

procedure oktal(des, desi : integer);

var oktal : string;

o : integer;

begin

oktal:='';

repeat

o:=des mod 8;

case o of

0: oktal:='0'+oktal;

1: oktal:='1'+oktal;

2: oktal:='2'+oktal;

3: oktal:='3'+oktal;

4: oktal:='4'+oktal;

5: oktal:='5'+oktal;

6: oktal:='6'+oktal;

7: oktal:='7'+oktal;

end;

des:= des div 8;

until des=0;

writeln('(',desi,') desimal = ',oktal,' (Oktal)');

end;

begin clrscr;

repeat

writeln('* Program Konversi Desimal ke Heksadesimal, Biner dan Oktal * ');

writeln;

Write('Masukkan Suatu Bilangan Desimal : ');Readln(des);

desi:=des;

biner(des,desi);

heksa(des,desi);

oktal(des,desi);

writeln;writeln;

write('Mau coba lagi [Y/T]? : ');readln(jawaban);

until upcase(jawaban)<>'Y';

end.

Semoga bermanfaat :D

Kasih jempol atau komentar ya :D

Jangan Lupa kunjungi Facebook ku ya :D

Attention !! Please Read

Good Day Friends...

This is my blog and i try to be perfect blogger with this contents :D

In this blog, I upload some program with pascal language. You can used that programs with FREE PASCAL application, if you don't understand about it please comment in my blog. I'm so sorry if this blog was little content.I wish I can make it to be excellent blog.

Thank for visit my blog :D