Tin học Pascal

[Joli Talentueux]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Mọi người giúp mk với, mai mk học rồi @Tohru - san
Viết chương trình nhập tử và mẫu của một phân số, sau đó tính giá trị của phân số đó. Dùng biến b để chứa giá trị phân số.

 

[Zzthebinh24zZ]

Mình giờ ko học chương trình này nữa nhưng có biết chút ít (do giảm tải)
uses crt;
var a,b,tg,i,tong:integer;
function tinh(x,y:integer):integer;
begin
tg:= x mod y;
if tg=0 then tinh:=y else tinh:=tinh(y,tg);
end;
BEGIN
clrscr;
write('Nhap a: ');readln(a);
write('Nhap b: ');readln(b);
tong:=1;
for i:=2 to abs(a+b) do
if (abs(a+b) mod i =0) then tong:=tong+i;
writeln('Thuong 2 so la: ',a/b:0:4);
var
b: real= a/b
END