Yuhuuu.. postingan pertama terkait dengan program di Pascal. Mengenang semester lalu belajar Pascal tapi sekarang uda lupa, ini adalah program pascal untuk Mencari posisi terakhir dalam suatu array
program posisi_terakhir;
uses wincrt;
type
tabint=array [1..100] of integer;
function searching (A:tabint; n,x:integer):boolean;
var
i:integer;
found,hasil: boolean;
begin
i:=1;
found:=false;
while (not found) and (i<=n) do
if A[i] = x then
found:= true
else
i:=i+1;
end;
function sama (A,B : tabint; n,m: integer):boolean;
var
found:boolean;
i:integer;
begin
if m=n then
begin
i:=1;
found:=true;
while found and (i<=n) do
begin
if A[i] <> B[i] then
found := false
else
i:=i+1;
end;
end
else
found:=false;
end;
{***PROGRAM UTAMA***}
var
A,B:tabint ;
i,n,m,x : integer;
found : boolean;
begin
write('masukkan batas 1: ');
readln(n);
write('masukkan batas 2: ');
readln(m);
writeln ('tabel pertama : ');
for i:=1 to n do
readln (A[i]);
writeln('tabel kedua : ');
for i:=1 to m do
readln(B[i]);
write ('bilangan yang dicari : ');
readln(x);
searching(A,n,x);
writeln(found);
sama(A,B,n,m);
writeln (found);
end.
Home »
Pemrograman
» Program Pascal : Mencari Posisi Terakhir Dalam Suatu Array
Program Pascal : Mencari Posisi Terakhir Dalam Suatu Array
Bantu saya memajukan blog ini dengan menekan tombol dibawah ini!
Artikel Lainnya
Program Pascal : Bilangan PrimaProgram Bil_prim2;uses wincrt;var prima:array[1..500] of boolean; batasan,batas,I,J:integer;beginWriteln('batas maksimal sampai den ... selengkapnya
Program Pascal : Menukar Isi ArrayProgram tukar;uses wincrt;type tabint = array[1..100]of integer;procedure balik_elemen(var a:tabint; n:integer);var i,tmp,j:integer;beginj:=n;for i:= ... selengkapnya
Download Modul Belajar Pemrograman Delphi LengkapLintas Informatika - Malam sobat, postingan kali ini saya akan berbagi modul atau ebook belajar Delphi yang lengkap dan gratis, berhubuung dengan akt ... selengkapnya
Program Pascal : Mencari Letak Posisi Nilai TerkecilProgram min_akhir;uses wincrt;type tabint = array[1..100]of integer;function posisi_min_akhir(a:tabint; n:integer):integer;var i,j,k:integer;begink:= ... selengkapnya
Download Ebook Belajar Microsoft Visual FoxProLintas Informatika - Visual FoxPro adalah bahasa pemrograman berorientasi objek dan prosedural dari Microsoft. Awalnya bahasa pemrograman ini dikena ... selengkapnya
0 comments: