Squensial Di Paskal

ini adalah script squensial search ubtuk di paskal, silakan copy saja code nya di bawah ini

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.

Posted in: Pemograman Paskal