Tugas 2D delphi

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+2;

  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.bt_keluarClick(Sender: TObject);

begin

close;

end;

procedure TForm1.Button5Click(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;

end.

Program Kombinasi_angka;
uses wincrt;
var
   f1,f2,f3:longint;
   n,r,w:integer;
   c: real;
Procedure fak( n:integer; var f:longint);
var
   i:integer;
begin
     f:=1;
     for i:=1 to n do
     f:= f * i;
end;
Begin                                                                                           
     clrscr;
     writeln('Mencari kombinasi dari suatu nilai');
     writeln;
     writeln('Nilai r harus lebih kecil/sama dengan n');
     write('1. Masukkan nilai n :',' ');readln(n);
     write('2. Masukkan nilai r :',' ');readln(r);                             
     fak(n,f1);
     fak(r,f2);
     w:=(n-r);
     fak(w,f3);
     c:= f1/(f2*f3);
     write('Hasilnya :',' ',c:2:0);
     readln;
end.

Program rincian_uang_kembali;
uses wincrt;

var
uang,bayar,kembali : longint;

begin
write('Jumlah Bayar : ');readln(bayar);
write('Jumlah Uang : ');readln(uang);
kembali:=uang-bayar;
writeln('Total Kembali : ',kembali);

if kembali div 100000 > 0 then begin
writeln(kembali div 100000, ' lembar seratus ribuan ');
kembali := kembali mod 100000;
end;

if kembali div 50000 > 0 then begin
writeln(kembali div 50000, ' lembar lima puluh ribuan ');
kembali := kembali mod 50000;
end;

if kembali div 20000 > 0 then begin
writeln(kembali div 20000, ' lembar dua puluh ribuan');
kembali := kembali mod 20000;
end;

if kembali div 10000 > 0 then begin
writeln(kembali div 10000, ' lembar sepuluh ribuan');
kembali := kembali mod 10000;
end;

if kembali div 5000 > 0 then begin
writeln(kembali div 5000, ' lembar lima ribuan');
kembali := kembali mod 5000;
end;

if kembali div 1000 > 0 then begin
writeln(kembali div 1000, ' lembar seribuan');
kembali := kembali mod 1000;
end;

if kembali div 500 > 0 then begin
writeln(kembali div 500, ' keping lima ratusan');
kembali := kembali mod 500;
end;

if kembali div 200 > 0 then begin
writeln(kembali div 200, ' keping dua ratusan');
kembali := kembali mod 200;
end;


if kembali div 100 > 0 then begin
writeln(kembali div 100, ' keping seratusan');
kembali := kembali mod 100;
end;

end.

PROGRAM PERKALIAN 2 MATRIK

program Perkalian_Matrik;

uses wincrt;

var

   a,b,c:array[1..30,1..30] of integer;

   o,p,q,x,y,z:integer;

begin

     clrscr;

     writeln('Ordo Matrik A');

     write('Baris :');readln(x);

     write('Kolom:');readln(y);

     writeln;

     for o:=1 to x do

     for p:=1 to y do

     begin

          write('Isi Matrik A[',o,',',p,']:');readln(a[o,p]);

     end;

     writeln;

     writeln('Ordo Matrik B');

     writeln('Baris:',y);

     write('Kolom:');readln(z);

     writeln;

     for o:=1 to y do

     for p:=1 to z do

     begin

          write('Isi Matrik B[',o,',',p,']:');readln(b[o,p]);

     end;

     for o:=1 to x do

     for p:=1 to z do

     for q:=1 to y do

     c[o,p]:=c[o,p]+a[o,q]*b[q,p];

     writeln;

     writeln;

     writeln('Hasil perkalian dari Matrik A dengan Matrik B adalah :');

     writeln;

     for o:=1 to x do

     begin

          for p:=1 to z do

           write(c[o,p]:4);

           writeln;

     end;

     writeln;

     readln;

end.

MATRIK IDENTITAS

program Matrik_Identitas;

uses wincrt;

var

   a,b,c:array[1..10,1..10] of integer;

   x,y,z:integer;

begin

     writeln('Matrik Identitas');

     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]);

          end;

     writeln;

     end;

end.