tugas delphi semester2

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.

kombinasi faktorial

Program KOMBINASI;

uses wincrt;

var f1,f2,f3:longint;

n,r,nr:integer;

c: real;

Procedure fact( n:integer; var f:longint);

var i:integer;

begin

f:=1;

for i:=1 to n do

f:= f * i;

end;

Begin

gotoxy(33,3);

writeln('samsuri');

gotoxy(30,4);

writeln('rCn = n!/(r!(n-r)!)');

gotoxy(20,5);

writeln('Nilai r harus lebih kecil/sama dengan n');

gotoxy(20,6);

writeln;gotoxy(19,7);

writeln('-------------------------------------------');

write;gotoxy(28,8);

write('[1.Masukkan nilai n :',' ');readln(n);

writeln;gotoxy(28,9);

write('[2.Masukkan nilai r :',' ');readln(r);

fact(n,f1);

fact(r,f2);

nr:=(n-r);

fact(nr,f3);

c:= f1/(f2*f3);

gotoxy(19,10);

writeln('--------------------------------------------');

gotoxy(30,11);

write('Hasilnya :',' ',c:2:0);

readln;

end.

tugas program kembalian

program kembalian;

uses wincrt;

var

a,b:longint;

j,c,d,e,f,g,h,i,k:longint;

begin

writeln('---------------samsuri----------------+');

writeln('Masukkan Nilai Uang');readln(a);

writeln('+---------------------------------+');

writeln('Masukkan Nilai Harga Barang');readln(b);

writeln('+---------------------------------+');

j:=a-b;

writeln('kembalian=',j);

writeln('rinciannya adalah sebagai berikut:!!!!');

c:=j div 50000;

d:=(j mod 50000)div 10000;

e:=(j mod 10000)div 5000;

f:=(j mod 5000)div 2000;

g:=(j mod 2000)div 1000;

h:=(j mod 1000)div 500;

i:=(j mod 500)div 200;

k:=(j mod 200)div 100;

writeln('',c,'.LEMBAR=50000');

writeln('',d,'.LEMBAR=10000');

writeln('',e,'.LEMBAR=5000');

writeln('',f,'.LEMBAR=2000');

writeln('',g,'.LEMBAR=1000');

writeln('',h,'.LEMBAR=500');

writeln('',i,'.LEMBAR=200');

writeln('',k,'.LEMBAR=100');

writeln;

writeln('TERIMAKASIH BANYAK');

end.

TUGAS 2D NOMER 2

program identitas;

uses

wincrt;

var

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

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

TUGAS 2D nomer 1

Program Perkalian_Matriks;

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

writeln('nama: samsuri');

write('banyaknya baris matriks pertama: '); readln(b);

write('banyaknya kolom matriks pertama: '); readln(c);

for d:= 1 to b do

begin

for e:= 1 to c do

begin

write('masukkan baris ke-',d,' kolom ke-',e,': '); readln(a[d,e]);

end;

end;

for d:= 1 to b do

begin

for e:= 1 to c do

begin

write(a[d,e]:7);

end;writeln;

end;writeln;

write('berapa banyak baris matriks kedua: '); readln(g);

write('berapa banyak kolom matriks kedua: '); readln(h);

for i:= 1 to g do

begin

for j:=1 to h do

begin

write('masukkan baris ke-',i,' kolom ke ',j,': '); readln(f[i,j]);

end;

end;

for i:= 1 to g do

begin

for j:= 1 to h do

begin

write(f[i,j]:7);

end;writeln;

end;writeln;

if c=i then begin

writeln('matrik1*matrik2:');writeln;

for d:= 1 to b do

begin

for l:=1 to h do

begin

for e:= 1 to c do

begin

for j:= l to h do

begin

for i:=e to g do

begin

k[d,j]:=k[d,j]+a[d,e]*f[i,j];

if c=e then

begin

write(k[d,j]:7);

end;

i:=g;

end;

j:=h;

end;

end;

end;

writeln;

end;

end else

begin

writeln('Maaf !!!perkalian tidak dapat dilakukan,');

writeln('ulangi lagi,karena matrik tidak memiliki ordo yang sama');

end;

readln end.

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.

Kata Kunci

struktur data, Pengertian struktur data, definisi struktur data, struktur data adalah, pengertian struktur, manfaat struktur data, makalah struktur data, arti struktur data, Pengertian Struct, struktur data sederhana.

perkenalan

Masih baru m

as/mbak brow,...... hehehehehehehehehe jadi kalau jelekz itu wajar-wajar aja!!!!!!!