• Twitter
  • Technocrati
  • stumbleupon
  • flickr
  • digg
  • youtube
  • facebook

Follow our Network

Contoh Program Medium : Searching TPW

0

Label:

Reaksi: 


-------------------------------------------------------------------------
Program searching;
Uses wincrt;
Var
DATA:array [1..5]of string;
i,posisi:integer;
cari:string;
status:boolean;
begin
for i:=1 to 5 do
 begin
  write('masukkan data ke-',i,':');readln(data[i]);
 end;


write ('data yg dicari : ');readln(cari);
status:=false;

for i:=1 to 5 do
  begin
    if data[i]=cari then
      begin
       status:=true;
      posisi:=i;
      end;
   end;

if status=true then
    writeln('data ketemu! di posisi ke-',posisi)
    else
    writeln('tidak ketemu!');

readln;
writeln('Thank You For using Program..!!');
writeln(' ');
donewincrt;
end.

-----------------------------------------------------------------------
Program Pencarian;
Uses wincrt;
Type data=record
     nip,nama:string;
     End;
Var
Siswa:array[1..5]of data;
i,n:integer;
cari:string;
ada:Boolean;

procedure masukan;
begin
  write('Masukkan Data: ');readln(n);
    for i:=1 to n do
    begin
      write('NIP: ');readln(siswa[i].nip);
      write('Nama: ');readln(siswa[i].nama);
    end;
end;

procedure tampilkan;
  begin
   writeln('Data yang anda masukan');
   writeln('________________________________');
   writeln('#         NIP          Nama ');
   writeln('________________________________');

for i:=1 to 3 do
begin
    gotoxy(6,4+i);writeln(siswa[i].nip);
    gotoxy(19,4+i);writeln(siswa[i].nama);
end;
end;

begin
    masukan;
clrscr;
   tampilkan;
writeln;
write('Masukkan Data yang akan anda cari: ');

readln(cari);
ada:=false;
i:=1;

while (ada=false) and (i <=n) do
    begin
       if (cari=siswa[i].nip) then
          ada:=true
       else
       i:=i+1;
      end;
     if (ada=true) then
        begin
     writeln('data ditemukan!!');
     writeln('NIP: ',siswa[i].nip);
     writeln('Nama: ',siswa[i].nama);
    end
      else
    writeln('Tidak Ditemukan');

end.

--------------------------------------------------------------------
created by : MuchFa (Tio Muchtar)
NB: Boleh Copas, tapi cantumin sumber sama penulisnya yach..!! ^^

Comments (0)

Posting Komentar

Social Media

  • Subscribe via email

    Enter your email address:

    Delivered by FeedBurner

    Techno 4 U