stack -pascal

konsep stack

 

dengan record sbb :

type  tipestack=record;

data :array[1..makstack] of integer;

top: integer;

end;

proses yang ada :

1. inisialisasi

* S.top:=0;

2. push

cek penuh tidak

*S.top:=S.top+1;

*S.data[S.top]:=x

3.pop

cek kosong tidak

*x:=S.data[S.top]

*S.top:=S.top-1

4.KOsong

if(S.top=0) then kosong:= true else kosong:=false;

5.Penuh

penuh:=(top:=makStack) dst..

mencari FPB &KPK dengan pascal

FPB & KPK PASCAL
menghitung FPB duluan…
logika FPB =>
Kepanjangan : Faktor Persekutuan terBesar
Artinya : Merupakan faktor-faktor pembagi yang paling besar dari suatu bilangan.

yaitu menentukan faktor2 dari dua bilangan yang merupakan perseketuan dan nilainya terbesar..


uses crt;
var A,B,P :longint;
Begin
clrscr;
readln(A,B);
if A repeeat
P:=P-1;
until (A mod P=0) and (B mod P=0);
writeln('FPB = ',P);
readln;
end.

versi 2 :

uses crt;
var A,B,P :longint;
Begin
clrscr;
readln(A,B);
repeeat
P:=A mod B;
A:=B;B:=P;
until (P=0);
writeln('FPB = ',A);
readln;
end.

sekarang yang KPK
KPK = Kelipatan Persekutuan Terkecil..
adalah bilangan kelipatan dari dua bilangan atau lebih, yang bisa di bagi oleh semua bilangan yang di maksud

programnya

uses crt;
var A,B,P,I :longint;
Begin
clrscr;
readln(A,B);
if A repeeat
I:=I+P;
until (I mod A=0) and (I mod B=0)
writeln('FPB = ',I);
readln;
end.

program di buat di FPC / Turbo Pascal 7.0

semoga bisa membantu..
selamat mencoba