Pencarian Beruntun dengan Pascal

upss...udah lama ga mosting nh, gara gara modemnya rusak.hiks2...nah kali ini saya akan memposting mengenai pemrograman pascal oke, langsung aja kita mulai yah.

Program pencarian_beruntun ;
Uses wincrt;
Var
X:array [1..100] of integer;
a, i, j : integer;

PROCEDURE beruntun1;
   begin
          writeln ('=======================' ) ;
          write ('ENTER TOTAL OF DATA : '); readln (j);
          writeln ('=======================' ) ;
          for i:=1 to j do
          begin
          write ('Please Input Your Data ',i,' : ');readln (X [i]);
          end;
   end;
PROCEDURE beruntun2;
          begin
               write ('Input Your Data will be Find : ');readln (a);
               i := 1;
               while (I a) do
               begin
                i:=i+1;
               end;
               if (X[i]=a)then
               writeln ('Data Found in : ',i)
               else
                writeln ('Data Not Found, Please Try Again !!!');
          end;
begin

beruntun1;
beruntun2;
Writeln ;
End.




Tampilan Program

Tampilan Ketika Data ditemukan

 

Tampilan ketika data tak ditemukan