Tham khảo tài liệu 'tính kết cấu theo phương pháp ma trận part 9', khoa học tự nhiên, toán học phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | Program Uses crl Type Mangl arrayfl. 10 1. 10 of real mang2 array 1. 10 of real mang3 array 1. 10 of integer Var Aanangl B X mang2 Z mang3 i j k n s p integer q r real Begin Nguoi lap trinh Vo nhu Can Clrscr writein fnhap cap ma Iran vuong readln n writein Nhap so fan tu triet ticu trong moi cot for j l to n do readln Zfj I writein nhap cac fan tu ma tran for j l to 11 do begin if Z j 0 then begin for i l toj do readln Afij end if Zfj 0 then begin p Z j l for i p to j do readln A i j end end writcln nhap cac so hang tu do for i l to n do rcadln B i Khu dan cac fan tu cua ma tran s -0 REPEAT s s l for j 2 to n do 345 begin for i s 1 to j do Begin q a a s sl a i jj-a s j q End end for i s 1 to n do b i b ij-b s a s i a s s UNTlL s n - I tinh cac an so X n b n a n n for i n -1 downto 1 do Begin r 0 forj n downto i 1 do r r a i j X j if a i i 0 then X iJ b il-r a i i End writein Cgia tri cac an la for i l to n do Writein X i 6 2 Rcadln End. i is if Ị Program CT1 l_Tinh_dinh_thus_cua_ma_tran_bat_ky Uses crt Type Mang array L. 10 E. 101 of real Var A mang q T real n s r integer Procedure nhap var Ptmang m n integer X Y integer Var i j integer Begin For i 1 to m do 346 For j l to n do Begin gotoxy X 8 j-1 Y i-1 Rcadln Pfijl End End Begin pNgtioi lap trinhiVo Nhu Can Clrscr Writein so dong ma Iran Rcadln m WritelnCso cot ma tran Rcadln n Writeln iihapcac fan tu cua ma tian Nhap A m n whereX whereY kiem Ira a i i 0 For i l to m-1 do Begin If a i i -0 then begin for k ĩ 1 to m do for j l to n do a ijl a i jl a k j End End i dua ve dang ma Iran tam giac s 0 REPEAT s s 1 for i s 1 to m do Begin q a i s a s s a i s 0 for j s 1 to n do a i j a i j -a s j q End .
