Mencari angka

MENCARI ANGKA

uses wincrt;

label ulang1,ulang2;

const a='mohamad echa putra ';

      b='A2.1100133';

      c='tugas algoritma';

 

type x=array[1..100] of integer;

var i,posisi,cari:longint;

    angka   : x;

    n       : integer;

    ada     :boolean;

    pil     :char;

begin

ulang1:writeln;

clrscr;

writeln('nama        : ',a);

writeln('nim         : ',b);

writeln('mata kuliah : ',c);

writeln

('_______________________________________');

gotoxy(20,8);

writeln('program squensial search ');

gotoxy(20,9);writeln('secara acak ');

gotoxy(15,10);writeln

('_______________________________________');

gotoxy(20,12);

write('berapa angka yang ingin anda masukan : '); readln(n);

for i:= 1 to n do

begin

write('angka',i,' : ');readln(angka[i]);

end;

ulang2:writeln;

clrscr;

writeln('nama        : ',a);

writeln('nim         : ',b);

writeln('mata kuliah : ',c);

writeln

('_______________________________________');

writeln;

writeln('angka yang telah terdaftar ');

writeln

('_______________________________________');

for i:=1 to n do

begin

write(angka[i]:8);

end;

writeln;

write('angka yang anda cari   : ');readln(cari);

i:=0;

while (i<=n) and ( not ada) do

begin

i:=i+1;

       if angka[i]=cari then

          begin

          posisi:=i;

          ada:=true;

          end;

end;

if ada then

begin

writeln;

writeln

('bilangan [ ',angka[posisi],' ] ketemu pada posisi : ',posisi);

end

else

begin

writeln;

writeln('maaf bilangan ',cari,' tidak di temukan');

end;

write

('apakah anda ingin mencari lagi [ Y/T ] : ');readln(pil);

if pil in['Y','y'] then

begin

goto ulang2;

end

else

begin

goto ulang1;

end;

end.