unit fortodo;

interface

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

type
  TForm1 = class(TForm)
    fortodo: TButton;
    fordowntodo: TButton;
    whiledo: TButton;
    repeatuntil: TButton;
    Button5: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label7: TLabel;
    Edit3: TEdit;
    bt_keluar: TButton;
    Label8: TLabel;
    Label9: TLabel;
    procedure fortodoClick(Sender: TObject);
    procedure fordowntodoClick(Sender: TObject);
    procedure whiledoClick(Sender: TObject);
    procedure repeatuntilClick(Sender: TObject);
    procedure bt_keluarClick(Sender: TObject);
    procedure Button5Click(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+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

program kombinasi_herman;

uses
    WinCrt;

Procedure Fak(Var F,Hasil:integer);
Var
I:integer;

begin
     Hasil:=1;
     For I:=2 to F do Hasil:=Hasil*I;
end;

Var
R,N,NR,F1,F2,F3:integer;
C:real;

Begin

                           
  clrscr;
  writeln('-----------------------------------------');
  WRITEln('              Program kombinasi');
  writeln('         <=Silakan inputkan Data !=> ');
  writeln('-----------------------------------------');
  Write('Banyaknya Data Yang Dikombinasi = ');Readln(N);
  Write('Banyaknya Kombinasi = ');Readln(R);
  NR:=N-R;  
  Fak(N,F1);
  Fak(NR,F2);
  Fak(R,F3);

  C:=F1/(F2*F3);

  Writeln;
  Writeln('Kombinasi yang terjadi = ',c:10:0);
end.

Tampilannya .......

Tugas struktur RINCIAN UANG & KEMBALIAN

program kasir_herman;
uses WinCrt;

const
nilai_rupiah:array [1..9] of longint = (200,500,1000,2000,5000,10000,20000,50000,100000);

var
f,g,h,i,Kembalian:integer;
kata,grs,nama :string;
x:byte;

begin

clrscr;
grs:='==================================================================';
kata:='Program kasir';
x:=round ((78-length(kata))/2);
gotoxy(x,2) ;writeln(kata);
x:=round ((78-length(grs))/2);
gotoxy(x,3) ;write(grs);
{-------------------------------------------}

begin
writeln;
write ('Harga : Rp. '); readln (h);
write ('Bayar : Rp. '); readln (f);
Kembalian:=f-h;
writeln('Kembalian : Rp.',Kembalian);
writeln;

g:=f-h;

  for i:=9 downto 0 do
  begin

    if g div nilai_rupiah[i]>0 then
    begin
      writeln(g div nilai_rupiah[i],' lembar uang Rp. ',nilai_rupiah[i]);
      g:=g mod nilai_rupiah[i];
    end;
  end;
 end;
end.








Tampilannya :

Program Matrik

Program matriks1_herman;
uses wincrt;
var
a,f,k:array[1..10,1..10] of integer;
b,c,i,j,l,z:integer;
m,n,d,e,g,h:byte;
begin clrscr;
write(' Program Perkalian 2 Matriks');readln;writeln;
writeln('Masukkan data untuk matriks pertama (M1)');
write('banyaknya baris M1:'); readln(b);
write('banyaknya kolom M1: '); readln(c);
for d:= 1 to b do
 begin
 for e:= 1 to c do
  begin
  write('entri baris ke-',d,' kolom ke-',e,': '); readln(a[d,e]);
  for d:= 1 to b do
  end;
 end;
begin
for e:= 1 to c do
begin
write(a[d,e]:10);
end;writeln;
end;writeln;
writeln('Masukkan data untuk matriks kedua (M2)');
write('banyaknya baris M2:'); readln(g);
write('banyaknya kolom M2:'); readln(h);
for i:= 1 to g do
begin
for j:=1 to h do
begin
write('entri baris ke-',i,' kolom ke ',j,': '); readln(f[i,j]);
end;
end;
begin
for i:= 1 to g do
begin
for j:= 1 to h do
begin
write(f[i,j]:10);
end;writeln;
end;writeln;
end;writeln;
if c=i then
begin
writeln('M1 x M2:');
writeln;
for d:= 1 to b do
end;
begin
for l:=1 to h do
end;
begin
for e:= 1 to c do
end;
begin
for j:= l to h do
end;
begin
for i:=e to g do
end;
begin
k[d,j]:=k[d,j]+a[d,e]*f[i,j];
if c=e then
end;
begin
write(k[d,j]:10);
end;
end.

program matrik2_herman;
uses
WinCrt;
var
x,y:integer;
Mat:array[1..10,1..10]of integer;
begin
  for x:=1 to 5 do
  begin
    for y:=1 to 5 do
    begin
       Mat[x,y]:=0;
       if x+y=6 then Mat[x,y]:=1;
       write (Mat[x,y]:4);
    end;
    writeln;
  end;
end.

Add caption

STRUKTUR DATA

Dalam istilah ilmu komputer, sebuah struktur data adalah cara penyimpanan, penyusunan dan pengaturan data di dalam media penyimpanan komputer sehingga data tersebut dapat digunakan secara efisien.
Dalam teknik pemrograman, struktur data berarti tata letak data yang berisi kolom-kolom data, baik itu kolom yang tampak oleh pengguna (user) atau pun kolom yang hanya digunakan untuk keperluan pemrograman yang tidak tampak oleh pengguna. Setiap baris dari kumpulan kolom-kolom tersebut dinamakan catatan (record). Lebar kolom untuk data dapat berubah dan bervariasi. Ada kolom yang lebarnya berubah secara dinamis sesuai masukan dari pengguna, dan juga ada kolom yang lebarnya tetap. Dengan sifatnya ini, sebuah struktur data dapat diterapkan untuk pengolahan database (misalnya untuk keperluan data keuangan) atau untuk pengolah kata (word processor) yang kolomnya berubah secara dinamis. Contoh struktur data dapat dilihat pada berkas-berkas lembar-sebar (spreadsheet), pangkal-data (database), pengolahan kata, citra yang dipampat (dikompres), juga pemampatan berkas dengan teknik tertentu yang memanfaatkan struktur data.