{Tin 8} Pascal - Bài tập tìm các số hữu nghị từ 1 đến 10000 .

Nguyễn Đức Hiếu said:

Các bạn ,anh , chị giúp em bài pascal này với , em chưa học phần "chương trình con" nên mong các bạn (anh , chị) làm theo cách bình thường và nếu có thể thì giải thích thêm cho em dễ hiểu. Em là học sinh mới nên mong các bạn (anh, chị) giúp đỡ !
Cảm ơn các bạn (anh, chị) !
Giải thích thêm : Hai số A và B được xem là số hữu nghị nếu như số này bằng tổng các ước số kia và ngược lại .

Bấm để xem đầy đủ nội dung ...

Program Cap_so_huu_nghi;
Var a,b,n,i:integer;
Function TU(a:integer):integer;
Var Tg,i:integer;
Begin
    Tg:=0;
    For i:=1 to a-1 do if (a mod i = 0) then Tg:=Tg + i;
    TU:=Tg;
End;
Begin
     Write('Nhap so n: ');Readln(n);
     For a:=1 to n do Begin b:=TU(a); if TU(b)=a then Writeln(a,'-',b)  end;
     Readln;
End.

Jotaro Kujo said:

Mã:

Program Cap_so_huu_nghi;
Var a,b,n,i:integer;
Function TU(a:integer):integer;
Var Tg,i:integer;
Begin
    Tg:=0;
    For i:=1 to a-1 do if (a mod i = 0) then Tg:=Tg + i;
    TU:=Tg;
End;
Begin
     Write('Nhap so n: ');Readln(n);
     For a:=1 to n do Begin b:=TU(a); if TU(b)=a then Writeln(a,'-',b)  end;
     Readln;
End.

Nhận xét: Các số hoàn chỉnh luôn là hữu nghị của chính nó.

Bấm để xem đầy đủ nội dung ...

Nguyễn Đức Hiếu said:

Cảm ơn mọi người !
Cho mình hỏi đoạn : Function TU(a:integer):integer; tác dụng của nó là gì
Mình chưa học đến (>.<) bạn có thể làm cách khác không .
Mình chưa học "Function......" nên không hiểu !

Bấm để xem đầy đủ nội dung ...