Đăng ngày: 00:22 31-10-2009
program Gian_uoc_Phan_so; {Chua dung ham/thu tuc}
uses crt;
var m,n,a,b,c:longint;
begin
clrscr;
writeln('Gian uoc phan so m/n nhap tu ban phim');
repeat
write('m,n=');
readln(m,n);
if n=0 then
begin
writeln('Nhap sai vi Mau so = 0. Hay nhap lai... Ok');
CONTINUE; {Bo khong thuc hien cac lenh duoi day nua}
end;
{Tu day coi Mau so khac 0}
{Truoc tien, tim uscln cua |m| va |n|}
a:=abs(m); {Tu day a>=0}
b:=abs(n); {Tu day b>=0}
{Neu a<b thi doi cho cho nhau de a>=b}
if a<b then
begin
c:=a;
a:=b;
b:=c;
end;
while b>0 do
begin
c:=a mod b; {Cho c la so du khi chia a cho b}
a:=b;
b:=c;
end;
{Thoat khoi vong lap khi b=0. Khi do USCLN = a}
writeln('uscln(m,n)=',a);
m:=m div a;
n:=n div a;
{Viet ra theo nhieu truong hop:}
if m=0 then writeln('Dap so: ',m)
else
if n=1 then writeln('Dap so: ',m)
else
if n=-1 then writeln('Dap so: ',-m)
else
if n>0 then writeln('Dap so: ',m,'/',n)
else writeln('Dap so: ',-m,'/',-n)
until readkey=#27 {Lap doan viec tren cho den khi go phim Esc}
end.
Chu y: De de xem ma lenh, phan biet duoc dau la xau ki tu,
ta nen dat cho mau sac nhu sau:
Khi dang soan ma nguon, ta lam nhu sau:
Go to hop phim Alt+O de vao Options (cac tuy chon),
Go E de chon Environment (Moi truong),
Go C de chon Color (Mau sac),
Go mui ten xuong 11 lan den Syntax (Cu phap, Ngu phap),
Go phim Tab de sang Items (Cac muc),
Go mui ten xuong 5 lan de den Strings (Cac xau ki tu),
Go phim Tab de sang Foreground (Mau chu),
Go mui ten sang trai de chon mau tim sang,
Go Enter de OK.
