Tugas 4 (Form 1 Borland Delphi 7)

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, jpeg;
type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Button2: TButton;
    Label3: TLabel;
    Button3: TButton;
    Label4: TLabel;
    Button4: TButton;
    Button5: TButton;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Button6: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label8: TLabel;
    Image1: TImage;
    procedure Button5Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button5Click(Sender: TObject);
begin
close;
end;
procedure TForm1.Button1Click(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.Button2Click(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.Button3Click(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.Button4Click(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.Button6Click(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.

Print Screen :

Tugas 3 (struktur data)

Program Kombinasi_Nisa;

Uses

    WinCrt;

Procedure Fak(Var F,Hasil:Integer);

Var

   I:Integer;

   T:String;

Begin

     Hasil:=1;

     For I:=2 to F do

     Hasil:=Hasil*I;

End;

Var

   R,N,NR,F1,F2,F3:Integer;

   C:Real;

  

Begin

     Writeln('Selamat Datang Di Program Kombinasi');

     Writeln;

     Write('Masukkan N = ');Readln(N);

     Write('Masukkan R = ');Readln(R);

     NR:=N-R;

     Fak(N,F1);

     Fak(NR,F2);

     Fak(R,F3);

     C:=F1/(F2*F3);

     Writeln;

     Writeln('Maka Kombinasinya Adalah : ',c:9:0);

     Writeln;

     Writeln;

End.

print prtscr

Tugas Struktur Data (2)

Pertemuan Ke 3 Tanggal 7 Maret 2012

SEMESTER 2D

Tugas 2:

- Buat Program Menampilkan Rincian Uang.

PROGRAM RINCIAN_TRANSAKSI_NASRUL_NISA;

USES WINCRT;

VAR

NAMA,O:STRING;

A,B,C,D,E,F,G,H,I,J,K,L,M,N,P,Q,R,S,T,U,V,W,X,Y,Z:LONGINT;

BEGIN

REPEAT;

CLRSCR;

WRITELN('SELAMAT DATANG');

WRITELN;

WRITE('MASUKKAN NAMA                    : '); READLN(NAMA);

WRITE('HABIS BERAPA                     : '); READLN(A);

WRITE('JUMLAH TERIMA UANG               : '); READLN(B);

C:=B-A;

IF C<0 THEN WRITELN('RINCIAN KURANG                   : ',C);

D :=C  MOD 100000;

P :=C  DIV 100000;

E :=D  MOD 50000;

Q :=D  DIV 50000;

F :=E  MOD 20000;

R :=E  DIV 20000;

G :=F  MOD 10000;

S :=F  DIV 10000;

H :=G  MOD 5000;

T :=G  DIV 5000;

I :=H  MOD 2000;

U :=H  DIV 2000;

J :=I  MOD 1000;

V :=I  DIV 1000;

K :=J  MOD 500;

W :=J  DIV 500;

L :=K  MOD 200;

X :=K  DIV 200;

M :=L  MOD 100;

Y :=L  DIV 100;

N :=M  MOD 50;

Z :=M  DIV 50;

IF P>0  THEN WRITELN('LEMBAR                   RP. 100.000,- = ',P);

IF Q>0  THEN WRITELN('LEMBAR                   RP.  50.000,- = ',Q);

IF R>0  THEN WRITELN('LEMBAR                   RP.  20.000,- = ',R);

IF S>0  THEN WRITELN('LEMBAR                   RP.  10.000,- = ',S);

IF T>0  THEN WRITELN('LEMBAR                   RP.   5.000,- = ',T);

IF U>0  THEN WRITELN('LEMBAR                   RP.   2.000,- = ',U);

IF V>0  THEN WRITELN('LEMBAR/LOGAM             RP.   1.000,- = ',V);

IF W>0  THEN WRITELN('LOGAM                    RP.     500,- = ',W);

IF X>0  THEN WRITELN('LOGAM                    RP.     200,- = ',X);

IF Y>0  THEN WRITELN('LOGAM                    RP.     100,- = ',Y);

IF Z>0  THEN WRITELN('LOGAM                    RP.      50,- = ',Z);

WRITELN;

WRITELN('SISA UANG                        : ',C:7);

IF Z<=1 THEN Z:=50;

   BEGIN

   WRITELN('PEMBULATAN                       : ',Z:7);

   C:=C-Z;

   WRITELN('TOTAL SISA UANG                  : ',C:7);

   END;

WRITELN;

WRITELN('KET : <100 DI BULATKAN');

WRITELN;

   IF C<0 THEN

      BEGIN

      WRITELN('MAAF UANG ANDA KURANG ',C);

      WRITELN('SEGERA DILUNASI / BARANG ANDA TIDAK DAPAT DIBAWA PULANG');

      END;

WRITELN;

WRITELN('TERIMA KASIH ATAS KUNJUNGANNYA');

WRITELN('---( ',NAMA,' )---');

WRITELN;

WRITELN;

WRITE ('COBA LAGI? (Y/N) : '); READLN (O);

UNTIL (O='N') OR (O='n');

END.

Hasil Prt Scr (Print Screen) :



Tugas Struktur Data (1)

Jawaban -1 ("Perkallian Matrik")

program Perkalian_Matrix;
uses wincrt;
var
   a,b,c : array [1..5,1..5] of integer;
   i,j,k,n,m,p : integer;
begin
     clrscr;
     writeln('Selamat datang di program matriks..!!');
     writeln('Masukkan ukuran matrik Minim ordo 5 x 5 ');
     writeln('Ukuran matrix A');
     write('Baris : '); readln(n);
     write('Kolom : '); readln(m);
     writeln;
     writeln('Ukuran matrix B');
     writeln('Baris : ',m);
     write('Kolom : '); readln(p);
     for i:=1 to n do
     for j:=1 to m do
     begin
          write('Elemen A[',i,',',j,'] : ');
          readln(a[i,j]);
     end;
     writeln;
     for i:=1 to m do
     for j:=1 to p do
     begin
          write('Elemen B[',i,',',j,'] : ');
          readln(b[i,j]);
     end;
     for i:=1 to n do
     for j:=1 to p do
     for k:=1 to m do
     c[i,j] := c[i,j] + a[i,k]*b[k,j];
     writeln('----------------------------------------');
     writeln('Hasil dari perkalian Matrix A dengan Matrix B adalah : ');
     Writeln;
     for i:=1 to n do
     begin
          for j:=1 to p do
          write(c[i,j]:4);
     writeln;
     end;
     writeln;
     readln;
end.

Tampilan output :

Jawaban -2 ("Reverse" - Matrik Identitas)

program identitas;

uses wincrt;

var

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

  x,y,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.

Tampilan Output :

Pengertian Struktur Data

Struktur data adalah cara menyimpan atau merepresentasikan data didalam komputer agar bisa dipakai secara efisien. Sedangkan data adalah representasi dari fakta dunia nyata. Fakta atau keterangan tentang kenyataan yang disimpan, direkam atau direpresentasikan dalam bentuk tulisan, suara, gambar, sinyal atau simbol.

Secara garis besar type data dapat dikategorikan menjadi:
Type data sederhana.

• Type data sederhana tunggal, misalnya Integer, real, boolean dan karakter.
• Type data sederhana majemuk, misalnyaString

Struktur Data, meliputi:

• Struktur data sederhana, misalnya array dan record.
• Struktur data majemuk, yang terdiri dari:

Linier : Stack, Queue, sertaList dan Multilist
Non Linier : Pohon Biner dan Graph

Pemakaian struktur data yang tepat didalam proses pemrograman akan menghasilkan algoritma yang lebih jelas dan tepat, sehingga menjadikan program secara keseluruhan lebih efisien dan sederhana.
Struktur data yang standar yang biasanya digunakan dibidang informatika adalah:
* List linier (Linked List) dan variasinya
* Multilist
* Stack (Tumpukan)
* Queue (Antrian)
* Tree ( Pohon)
* Graph ( Graf )

REVIEW RECORD (REKAMAN)
Disusun oleh satu atau lebih field. Tiap field menyimpan data dari tipe dasar tertentu atau dari tipe bentukan lain yang sudah didefinisikan sebelumnya. Nama rekaman ditentukan oleh pemrogram.

Rekaman disebut juga tipe terstruktur.