Hai số nguyên dương cực lớn

[Snow Fox]

Cho hai số nguyên dương cực lớn.X và Y.Viết chương trình thực hiện :
1. tính tổng 2 số đó
2. tính hiệu 2 số đó
3. phần nguyên của phép chia số nguyên lớn nhất vs 1 sô nguyên b nhỏ nào đó
4. Phần dư của phép chia Y : b
5. Phần nguyên của phép chia X : Y
6. phần dư của phép chia X : Y
7. Tích X * Y
Bài này làm theo chương trình con nha.
Mọi người giúp em với nhé...♥

[auauau97]

bạn có thể tham khảo bài ở trang này:
http://www.vn-zoom.com/f174/so-luoc-...n-1254887.html
code cộng 2 số lớn:

Uses crt;
Var so1,so2,kqua:string;

Procedure LamDayXau(Var st1,st2:string);
{Them so 0 vao truoc xau ngan}
var i:Byte;
Begin
  If Length(st1)>Length(st2) Then
    For i:=1 To Length(st1)-Length(st2) Do st2:='0'+st2
  Else
    For i:=1 To Length(st2)-Length(st1) Do st1:='0'+st1;
End;

Function Cong(st1,st2:string):string;
Var i,a,b,c,sodu:Byte;
    code:integer;
    st,ch:string;
Begin
  st:=''; sodu:=0;
  LamDayXau(st1,st2);
  {Lấy từng số của 2 xâu: từ phải sang trái} 
  For i:=Length(st1) DownTo 1 Do
   Begin
	 {Đổi ký tự sang số nguyên}
     Val(st1[i],a,code);
     Val(st2[i],b,code);
	 {Tính tổng của 2 số a,b vừa lấy ra cho vào biến c}
     c:=(a+b+sodu) MOD 10;
	 {Lấy phần dư của tổng a+b}
     sodu:=(a+b+sodu) DIV 10;
	 {Đổi số nguyên c sang xâu ký tự ch}
     str(c,ch);
	 {Cộng xâu ch vào bên trái xâu kết quả st}
     st:=ch+st;
   End;

	{Xử lý trường hợp số dư cuối cùng >0} 
   If sodu>0 Then
    Begin
     str(sodu,ch);
     st:=ch+st;
    End;
   Cong:=st;
End;

Begin
  Write('Nhap so thu nhat: '); Readln(so1);
  Write('Nhap so thu hai: '); Readln(so2);
  kqua:=Cong(so1,so2);
  Writeln('Tong= ',kqua);
  Readln;
End.

[naitce]

Mình tìm thấy mã nguồn cài đặt ở đây: tuvantinhoc[.]vn[/]chia-se-ma-nguon-cai-dat-so-nguyen-lon

Bạn bỏ dấu ngoặc để lấy link nhé. Chúc vui