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

Free Pascal được viết bằng Pascal (sao cho nó có thể biên dịch được chính nó), được phát triển với mục tiêu là cung cấp một trình biên dịch mạnh mẽ và thuận tiện, có khả năng biên dịch cả các ứng dụng cũ lẫn phát triển ứng dụng mới. Được phân phối miễn phí dưới giấy phép GNU. Có khả năng trộn lẫn cả mã của Turbo Pascal và mã Delphi, hỗ trợ nhiều nền tảng lẫn nhiều hệ điều hành | c i-j true end end begin clrscr count 0 for i 1 to 8 do a i true for i 2 to 16 do b i true for i -7 to 7 do c i true assign f rewrite f try i close f end. Bai uses crt const nmax 2000 type mang array 1 of Integer var n m integer x k mang ketthuc boolean f text Procedure nhap var k mang var n integer var mjnteger var integer begin repeat clrscr write nhap so an cua he 2000 n readln n until n 2000 and n 0 writefnhap m readln m 216 writefnhap vec to k tong 0 for i 1 to n do begin write k i readln k i tong tong k i end if m 0 or tong 2 m then begin writelnfhe VO nghiem an Esc de thoai repeat until readkey 27 halt end end Procedure taofile var f text begin assign f rewrite f end Procedure inketqua a mang n integer var j integer begin for j 1 to n do write f a j 5 writeln f end Procedure sinhmoi var X mang var j integer begin if x 1 m then begin ketthuc true exit end j n while x j 0 and j 0 do dec j dec x j inc x j-1 if j n then 217 begin x n x j x j O end end function kiemtra x mang k mang boolean var j integer begin kiemtra false x n l x 1 for j 1 to n do if x j x j 1 k j then exit kiemtra true end function phantich var x mang n integer m integer boolean var i integer dataof boolean begin dataof false for i 1 to n-1 do x i 0 x n m ketthuc false while not ketthuc do begin if kiemtra then begin if not dataof then taofile f inketqua dataof true end sinhmoi x end if dataof then phantich true else phantich false if dataof then close f end .