Sabtu, 17 Januari 2009

Membuat Program Cari Bilangan dengan Pascal

program cari_bilangan;
uses wincrt;
var
i,x,n:integer;
bilangan:array[1..10] of integer;
c:boolean;
begin
write(' Masukkan jumlah data bilangan yang diinginkan = ');readln(n);
begin
for i:=1 to n do
begin
write(' Masukkan data bilangan ke ',i,' = ');readln(bilangan[i]);
end;
write(' Masukkan nilai yang dicari = ');readln(x);
write(' Tekan ENTER untuk mengetahui!');readln;
end;
begin
i:=1;
c:=false;
while (i<=n) or (c=false) do
begin
if (bilangan[i]=x) and(i<=n) then
begin
writeln(' Ternyata bilangan ',x,' ada di urutan ke ',i);
i:=i+1;
c:=true;
end
else
begin
i:=i+1;
c:=false;
end;
end;
end;
begin
if c=false then
begin
writeln(' Maaf,bilangan ',x,' tidak ada...');
end;
end;
readln;
end.

Tidak ada komentar:

Posting Komentar

Kirim Komentar Anda
(Send Your Comment)