Hướng dẫn lập trình Pascal Tìm Mẫu số chung nhỏ nhất

Tìm mẫu số chung nhỏ nhất của các phân số. (Ví dụ: 12 và 23 thì sẽ được quy đồng thành 36 và 46 và mẫu số chung nhỏ nhất là 6.). YÊU CẦU: File vào: gồm 2 dòng: + Dòng 1 là số N phân số. + Dòng 2 gồm N2 chữ số cách nhau 1 khoảng cách. (cứ 1 phân số thì tử được viết trước, mẫu viết sau. Ví dụ: 12 được viết là ‘1 2’. File ra: gồm 1 dòng: là mẫu số chung nhỏ nhất của các phân số.

Bài: Mẫu số chung nhỏ nhất (MSCNN)

Đề: Tìm mẫu số chung nhỏ nhất của các phân số

Ví dụ: và thì sẽ được quy đồng thành và và mẫu số chung nhỏ nhất là 6

Yêu cầu:

 File vào: gồm 2 dòng:

Dòng 1 là số N phân số

Dòng 2 gồm N*2 chữ số cách nhau 1 khoảng cách (cứ 1 phân số thì

tử được viết trước, mẫu viết sau Ví dụ: được viết là ‘1 2’

 File ra: gồm 1 dòng: là mẫu số chung nhỏ nhất của các phân số

2

3

Chương trình:

Program mscnn;

var a,b:array[1 100] of integer;

n,i:integer;

f,g:text;

//Chuong trinh con Tim boi chung nho nhat

function bcnn(k,h:integer):integer;

var i,j,t:integer;

begin

t:=k*h;

while h<>k do if h>k then h:=h-k else k:=k-h;

bcnn:=t div k;

end;

begin

assign(f,'d:\mscnn.inp');

reset(f);

assign(g,'d:\mscnn.txt');

rewrite(g);

readln(f,n);

while not eof(f) do

begin

i:=i+1;

read(f,a[i],b[i]);

end;

i:=1;

while i<n do

begin

b[i+1]:=bcnn(b[i],b[i+1]); i:=i+1;

end;

write(g,b[n]);

close(f); close(g);

end