Tugas Delphi dari M. Ali Rusdi
Berikut adalah listing program dari for to do, for down to do, while do, repeat until.
Ini adalah listingnya :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    fortodo: TButton;
    fordowntodo: TButton;
    whiledo: TButton;
    repeatuntil: TButton;
    btpangkat: TButton;
    keluar: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure fortodoClick(Sender: TObject);
    procedure fordowntodoClick(Sender: TObject);
    procedure whiledoClick(Sender: TObject);
    procedure repeatuntilClick(Sender: TObject);
    procedure btpangkatClick(Sender: TObject);
    procedure keluarClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.fortodoClick(Sender: TObject);
var
i,j:integer;b:string;
begin
b:='';j:=2;
for i:=1 to 10 do
begin
b:=b+inttostr(j)+' ';
j:=j+2;
end;
label1.Caption:=b;
end;

procedure TForm1.fordowntodoClick(Sender: TObject);
var
i,j:integer;
b:string;
begin
b:='';j:=2;
for i:=10 downto 1 do
begin
b:=b+inttostr(i)+' ';
j:=j+2;
end;
label2.Caption:=b;
end;

procedure TForm1.whiledoClick(Sender: TObject);
var
i,j:integer;
b:string;
begin
i:=1;
b:='';
while i<=10 do
begin
b:=b+inttostr(i)+' ';
i:=i+1;
end;
label3.Caption:=b;
end;

procedure TForm1.repeatuntilClick(Sender: TObject);
var
i,j:integer;
b:string;
begin
i:=1;
b:='';
repeat
b:=b+inttostr(i)+' ';
i:=i*1;
until i>10;
label4.Caption:=b;
end;

procedure TForm1.btpangkatClick(Sender: TObject);
var
bil,hasil,pangkat,a:integer;
begin
bil:=strtoint(edit1.Text);
hasil:=bil;
pangkat:=strtoint(edit2.Text);
if edit2.text='0'then edit3.Text:='1'else
if edit2.text='1'then edit3.Text:=edit1.Text else
begin
for a:=2 to pangkat do
hasil:=hasil*bil;
edit3.Text:=inttostr(hasil);
end;
end;
procedure TForm1.keluarClick(Sender: TObject);
begin
close;
end;

end.



ini adalah lay out dari listing program di atas :

Terima Kasih.......

Tugas Faktorial

Berikut ini adalah script pascal dari suatu faktorial.
script ini digunakan untuk rumus N!/(N-R)!*R!
ini scriptnya....

Program menghitung_faktorial;
uses wincrt;

var
   hasil,fak,c,n,nr,r,f1,f2,f3:real;
   i:integer;

   procedure faktorial(var fak,hasil:real);
   begin
        i:=1;
        hasil:=1;
        while i<= fak do
        begin
             hasil:= hasil*i;
             i:=i+1;
        end;
        writeln(hasil:10:0);
   end;

   begin
        gotoxy(15,1);
        writeln('Program perhitungan Kombinasi pada Faktorial');
        gotoxy(30,2);
        writeln('M. Ali Rusdi');
        gotoxy(5,3);
        write('masukkan nilai N = ');readln(n);
        gotoxy(5,4);
        write('masukkan nilai R = ');readln(r);
        nr:= n-r;
        gotoxy(5,5);
        writeln('NR adalah = ',nr:0:0);

        gotoxy(5,7);
        write('faktorial dari N =');
        faktorial(n,f1);
        gotoxy(5,8);
        write('faktorial dari R =');
        faktorial(r,f2);
        gotoxy(5,9);
        write('faktorial dari N-R =');
        faktorial(nr,f3);
        c:=f1/(f3*f2);
        gotoxy(8,10);
        write('N!');
        gotoxy(5,11);
        write('_________ =',c:10:0);
        gotoxy(5,12);
        write('(N-R)!*R!');
   end.

dan ini adalah lay out dari script di atas:

MATRIKS INVERS ORDO 2 X 2

1.    Invers Matriks Persegi

Definisi Invers Matriks 1:

Misalkan A dan B adalah dua matriks yang berordo 2 × 2 dan memenuhi

persamaan AB = BA = I2 maka matriks A adalah matriks invers dari matriks

B atau matriks B adalah matriks invers dari matriks A.

Definisi Invers Matriks 2:

 Untuk membuat program INVERS MATRIKS 2 x 2 di atas,berikut adalah script untuk membuatnya :

Program Invers_Matriks_2_x_2;
uses wincrt;
var
m1:array[1..10,1..10] of integer;
x1,y1:integer;
p,q,r,s,invers,a,b,c,d,i:real;

begin
write('Invers matriks berordo 2 x 2');
writeln;
for x1:= 1 to 2 do
begin
for y1:= 1 to 2 do
begin
write('masukkan data[',x1,':',y1,']='); readln(m1[x1,y1]);
end;
end;
writeln('matriks 1');
for x1:= 1 to 2 do
begin
for y1:= 1 to 2 do
begin
write(m1[x1,y1]:7);

end;writeln;
end;writeln;

begin
a:=m1[1,1];
b:=m1[1,2];
c:=m1[2,1];
d:=m1[2,2];
i:=(a*d)-(b*c);

end;

if not(i=0) then
begin
invers:=1/((a*d)-(b*c));
p:=d*invers;
q:=-b*invers;
r:=-c*invers;
s:=a*invers;
writeln('Hasil invers matriksnya adalah');
gotoxy(5,13);write(p:0:2);
gotoxy(13,13);write(q:0:2);
gotoxy(5,14);write(r:0:2);
gotoxy(13,14);write(s:0:2);
end else
begin
writeln('Maaf operasi invers matriks tidak bisa dikerjakan');
end;
end.

Berikut adalah lay out programnya.....

Untuk mendownload script di atas click Download Disini

Tugas Pascal 2012 Identitas

Nama : M. Ali Rusdi
NIM : 111221075

Berikut adalah script membuat matriks identitas namun terbalik.

program MAtrik_identitas_terbalik;

uses
  WinCrt;
  var
  A,B,C:array[1..10,1..10] of integer;
  X,Y,Z,KOL,BAR:integer;

begin
  for X:=1 to 5 do
  begin
  for y:=1 to 5 do
  begin
  C[X,Y]:=0;
  if X+Y=6 then C[X,Y]:=1;
  write(C[X,Y]:4);
  end;
  writeln;
  end;     
end.

Berikut adalah contoh layoutnya.

Untuk mendownload script lengkapnya download di sini

Tugas Pascal 2012 perkalian

Nama : M. Ali Rusdi
NIM : 111221075

Turbo Pascal : menghitung perkalian dua matriks.
berikut ini adalah script pascal menghitung perkalian dua matriks.

Berikut script untuk matriks 1 :

Program Perkalian_Matriks;
uses wincrt;
var
m1,m2,mh:array[1..10,1..10] of integer;
b1,k1,x1,y1,a,b2,k2,x2,y2:longint;
begin;

write('masukkan jumlah baris matriks 1: '); readln(b1);
write('masukkan jumlah kolom matriks 1: '); readln(k1);
for x1:= 1 to b1 do
begin
for y1:= 1 to k1 do
begin
write('[',x1,':',y1,']='); readln(m1[x1,y1]);
end;
end;
writeln('matriks 1');
for x1:= 1 to b1 do
begin
for y1:= 1 to k1 do
begin
write(m1[x1,y1]:7);
end;writeln;
end;writeln;

ini adalah hasil matriks 1

Berikut script matriks 2 :

write('masukkan jumlah baris matriks 2: '); readln(b2);
write('masukkan jumlah kolom matriks 2: '); readln(k2);
for x2:= 1 to b2 do
begin
for y2:=1 to k2 do
begin
write('[',x2,':',y2,']='); readln(m2[x2,y2]);
end;
end;
writeln('matriks 2');
for x2:= 1 to b2 do
begin
for y2:= 1 to k2 do
begin
write(m2[x2,y2]:7);
end;writeln;
end;writeln; 


ini adalah hasil matriks 2

Berikut adalah script perkalian kedua matriks di atas :

if k1=x2 then begin
writeln('Hasil perkalian matriksnya adalah');
for x1:= 1 to b1 do
begin
for a:=1 to k2 do
begin
for y1:= 1 to k1 do
begin
for y2:= a to k2 do
begin
for x2:=y1 to b2 do
begin
mh[x1,y2]:=mh[x1,y2]+m1[x1,y1]*m2[x2,y2];
if k1=y1 then
begin
write(mh[x1,y2]:7);
end;
x2:=b2;
end;
y2:=k2;
end;
end;
end;
writeln;
end;
end else
begin
writeln('Maaf operasi perkalian matriks tidak bisa dikerjakan karena');
writeln('karena kolom matriks1 (',k1,' kolom) tidak sama dengan baris matriks 2 (',x2,' baris)');
end;
end.

ini adalah hasil perkalian dua matriks di atas

terima kasih sudah membaca tutorial ini.
semoga bermanfaat bagi saudara-saudaraku semuanya.
amin.

untuk mendownload script lengkap di atas, download disini