Một số bài tập Ma trận trong Pascal
1. Dùng bộ sinh số ngẫu nhiên tạo ma trận A,B. Sau đó tính tổng ma trận rùi in ra màn hình ma trận A,B và ma trận Tổng
Trích:
Program TONGMATRAN;
Uses WinCrt;
Const
TD1 = 'TRUONG DAI HOC BAN CONG MARKETING';
TD2 = ' »»»»» §¤Lïþ§ÑÆÇK® - ¥§æ «««««';
MAX = 30;
Type
MATRAN = Array[1..MAX,1..MAX] Of Byte ;
Var
MA,MB,MC:MATRAN;
CAP:Byte;
{Thu tuc dinh vi cursor}
Procedure WriteXY(X,Y:Byte;CHUOI:String);
Begin
GotoXY(X,Y);
Write(CHUOI);
End;
{Thu tuc in tieu de}
Procedure TIEUDE;
Begin
WriteXY(25,1,TD1);
WriteXY(25,2,TD2);
End;
{Thu tuc tao ma...
Thuật toán Euclid mở rộng (Tìm UCLN)
Thuật toán Euclid mở rộng sẽ tìm USCLN d của a và b, đồng thời tìm được cả hai số nguyên x, y trong phần 2.3
Thuật toán Euclid mở rộng có thể diễn đạt bằng đệ quy như sau:
procedure ee(a, b, var x, var y);
var
x2,y2;
begin
if (a 1...
Thuật toán Sàng số nguyên tố
Khi cần biết các số nguyên tố đến một phạm vi nào đó, ví dụ từ 2 đến 108, sử dụng sàng số nguyên tố Eratosthenes sẽ hiệu qủa hơn về thời gian.
Thủ tục sau tạo sàng số nguyên tố từ 2 đến N:
procedure sieve(n);
begin
fillchar(p, sizeof(p), true);
for i:=2 to n do
if (p[i]) then
begin
j:=i+i;
...




Các Ý Kiến