Bài tập xử lý số lớn trong pascal
Chia sẻ bởi Nguyễn Tuấn Đạt |
Ngày 10/05/2019 |
64
Chia sẻ tài liệu: Bài tập xử lý số lớn trong pascal thuộc Tin học 11
Nội dung tài liệu:
Program SO_LON; {Thuc hien cac phep toan cong tru nha vcac so lon}
Uses crt;
Const MaxN = 255;
Type Mang = Array[0..MaxN] of byte;
Procedure Nhap(str:string;var a:Mang);
Procedure Hien(str:string ;a:Mang);
Procedure Tong(var a:Mang; b,c: Mang);
Procedure Hieu(var a:Mang; b,c: Mang);
Function SoSanh(a,b:mang):integer;
Procedure Tru(var a:Mang; b,c: Mang);
Procedure Cong(var a:Mang; b,c: Mang);
Procedure Tich(var a:Mang;n:byte);
Procedure Nhan(var a:Mang; b,c: Mang);
Procedure Mu(var a:Mang;b:Mang;n:byte);
Function ChiaHai(var a:Mang;b:Mang):integer;
Procedure DoiCoSoHai(var a:Mang;b:Mang);
Procedure DoiCoSoMuoi(var a:Mang;b:Mang);
Var a,b,c:Mang;
Begin
End.
Uses crt;
Const MaxN = 255;
Type Mang = Array[0..MaxN] of byte;
Procedure Nhap(str:string;var a:Mang);
Procedure Hien(str:string ;a:Mang);
Procedure Tong(var a:Mang; b,c: Mang);
Procedure Hieu(var a:Mang; b,c: Mang);
Function SoSanh(a,b:mang):integer;
Procedure Tru(var a:Mang; b,c: Mang);
Procedure Cong(var a:Mang; b,c: Mang);
Procedure Tich(var a:Mang;n:byte);
Procedure Nhan(var a:Mang; b,c: Mang);
Procedure Mu(var a:Mang;b:Mang;n:byte);
Function ChiaHai(var a:Mang;b:Mang):integer;
Procedure DoiCoSoHai(var a:Mang;b:Mang);
Procedure DoiCoSoMuoi(var a:Mang;b:Mang);
Var a,b,c:Mang;
Begin
End.
* Một số tài liệu cũ có thể bị lỗi font khi hiển thị do dùng bộ mã không phải Unikey ...
Người chia sẻ: Nguyễn Tuấn Đạt
Dung lượng: |
Lượt tài: 0
Loại file:
Nguồn : Chưa rõ
(Tài liệu chưa được thẩm định)