tailieunhanh - Bài tập pascal : Lời giải, đáp án part 4

Trong những năm 1980, Anders Hejlsberg đã viết trình biên dịch Blue Label Pascal dành cho dòng máy tính Nascom-2. Sau đó ông chuyển sang làm việc cho hãng Borland và viết lại hoàn toàn trình biên dịch này để rồi trở thành Turbo Pascal cho máy tính IBM-PC. Trình biên dịch mới này bán với giá chỉ có $, rẻ hơn nhiều so với giá Hejlsberg trước đây rao bán sản phẩm Blue Label Pascal. Trình biên dịch giá rẻ của Borland đã gây ra ảnh hưởng lớn đến cộng đồng lập trình viên Pascal, họ hầu như tập trung. | for p 1 to i-1 do begin forq 1 toj-1 do c p q a p q for q j 1 to n do c p q-1 a p q end for p i 1 to n do begin forq 1 toj-1 do c p-1 q a p q for q j 1 to n do c p-1 q-1 a p q end end Procedure NghichDao n byte a matran var x matran var c matran ij byte D_thuc real begin for i 1 to n do for j 1 to n do begin Matrancon i j n a c x j i Dinhthuc n-1 c if i j mod 2 1 then x j i -x j i end d_thuc dinhthuc n a if D_thuc o then begin writelnfDinh thuc D_thuc 8 3 WrltelnfMa tran da cho khong co ma tran nghich dao. halt end else writeln Dinh thuc D_thuc 8 3 for i 1 to n do forj 1 to n do x i j x i j DJhuc end 116 Procedure ln_matran n byte a matran var i j byte begin writein for i 1 to n do begin for j 1 to n do write a i j 8 3 writeln end end BEGIN clrscr nhap_mt a n NghichDao n a b writelnfMa tran nghich dao la ln_matran n b writelnfNhan Esc de thoai repeat until readkey 27 END. Bai uses crt var integer a b array of integer integer Begin clrscr write Nhap vao so hang vua ma tran readln n write Nhap vao so cot cua ma tran readln m 117 for i 1 to n do for j 1 to m do begin write afj. j readln a ij end for i 1 to m do for j 1 to n do b writelnf MA TRAN BAN DAU for i 1 to n do begin writeln for j 1 to m do writef end writein writein MA TRAN CHUYÊN VI for i 1 to m do begin writein for j 1 to n do writefb i j end readln end. Bai program p3_24 Tong cua 2 vec to a a1 va b b1 b2 . bn la C a1 b1 a2 bn uses crt const max 20 .