Program Searching Dan Sorting

program Pengurutan_sorting;
uses wincrt;
var i,n,j,s : integer;
a: array [1..100] of integer;

procedure buble;
var z: integer;
begin
for i:= 1 to n-1 do
begin
for j:= n downto i+1 do
begin
if a[j] < a[j-1] then
begin
z:= a[j];
a[j]:= a[j-1];
a[j-1]:=z;
end;
end;
end;
end;
     function cari1(xx : integer): integer;
  var i : integer;
  begin
    i := 1;
    while ((i<n) and (a[i] <> xx)) do
      i:=i+1;
      if a[i] = xx then
       cari1:=i
        else
        cari1:=0;
  end;
begin
writeln('***This is Program Searching & Sorthing ***');
writeln;
write('masukkan banyak Input Data : '); readln(n);
for i:= 1 to n do
begin
write('Data[',i,'] : '); readln(a[i]);
end;
buble;
write('Data setelah diurutkan : ');
for j:=1 to n do
write (a[j],' ');
writeln;
write('Nilai yang dicari = '); readln(a[j]);
  a[i]:=cari1(a[j]);
  if a[i] <> 0 then
    write(a[j],' ditemukan pada indeks ke-',a[i])
    else
    write(a[j],' tidak ditemukan');
  writeln;end.

hobi belajar: Membuat Gaji Karyawan Dengan Delphi 7

hobi belajar: Membuat Gaji Karyawan Dengan Delphi 7: Gambar Form1 Untuk Langkah pembuatan Kita langsung aja buat form yang mirip gambar form disamping kemudian untuk radiogroup Golongan ub...

Membuat Gaji Karyawan Dengan Delphi 7

Gambar Form1

Untuk Langkah pembuatan Kita langsung aja buat form yang mirip gambar form disamping
kemudian untuk radiogroup Golongan ubah namenya menjadi Rggol dan captionnya menjadi Golongan,,
cara membuat item A,B,C dan D pada items Golongan dibagian Properties klik string dan isikan A kemudian enter dan isi B enter C enter dan isikan D dan OK,,
setelah itu ubah name kotak edit untuk Banyak jam lembur menjadi edtlembur.
Kemudian ubah masing masing name kotak edit untuk Upah Lembur dan Upah Mingguan menjadi edtul dan edtum,,, sampai diini penyusunan form sudah selesai,,,  Gampang bangett kan. Oke seakarang kita langsung aja isi sourcecode untuk programnya .
Doubleklik button proses dan isikan
procedure TForm1.Button1Click(Sender: TObject);
var bjl,ul,um:integer;
begin
bjl:=StrToInt(edtlembur.Text);
case RgGol.ItemIndex of

0: begin
    um:=4000*48;
    ul:=bjl*3000; end;
1: begin
    um:=5000*48;
    ul:=bjl*3000; end;
2: begin
    um:=6000*48;
    ul:=bjl*3000; end;
3: begin
    um:=7500*48;
    ul:=bjl*3000; end;
end;
edtul.Text:=FloatToStr(ul);
edtum.Text:=FloatToStr(um);
end;
dan Doubleklik button Bersih dan isikan
procedure TForm1.Button2Click(Sender: TObject);
begin
  edtul.Text:='';
  edtum.Text:='';

end;






Dan yang terakhir Doubleklik untuk button Keluar dan isikan

procedure TForm1.Button3Click(Sender: TObject);
begin
Application.Terminate;
end;

okeee selesai Selamat mencoba dan melengkapi tugas Borland Delphi Anda

Tugas Struktur Data Tk 4E;

program pengurutan;
uses wincrt;
var
angka: array[1..1000] of integer;
k,l,m,n,o,i,a, temp: integer;

begin clrscr;
write('masukkan angka ke-1:');readln(k);
write('masukkan angka ke-2:');readln(l);
write('masukkan angka ke-3:');readln(m);
write('masukkan angka ke-4:');readln(n);
write('masukkan angka ke-5:');readln(o);
writeln;
writeln;
angka[1] := k;
angka[2] := l;
angka[3] := m;
angka[4] := n;
angka[5] := o;
writeln('Ini Nilai Sebelum Diurutkan : ');
writeln;
for i:=1 to 5 do
begin

writeln('angka ke-', i, ' : ', angka[i]);

write;
end;
for i:=1 to 4 do
begin
for a:=i+1 to 5 do
begin
if(angka[a] < angka[i]) then
begin
temp := angka[a];
angka[a] := angka[i];
angka[i] := temp;
end;
end;
end;
writeln;
writeln('Nilai Setelah Diurutkan Dengan Buble : ');
for i:=1 to 5 do
begin
writeln('|==============|');
writeln('|angka ke-', i, ' : ', angka[i],'|','');
writeln('|==============|');
end;
end.

Hobi Belajar

Bagi Bagi ilmunya ya