DE ON TAP KT TIN 11

<span class='text_page_counter'>(1)</span>PHẦN 01: Sửa lỗi đoạn chương trình 1,00ĐIỂM Ví dụ: Đây là 02 đoạn chương trình hoàn chỉnh. 1). Procedure CanGiua (var s:str 79); var i, n: integer; begin n:= lenghth (s); n:=(80-n) div 2; for i:=1 to n do s:=’ ‘ +s; end; 2). Function Chuvi (var r:tamgiac):real; var a,b,c:real; begin Daicanh (R,a,b,c); Chuvi:=a+b+c; end; Dựa vào đây, sẽ đưa vào những lỗi sai. PHẦN 02: Sắp xếp đoạn chương trình 1,00ĐIỂM Ví dụ: Sắp xếp đoạn chương trình sau: {1} Program VD_bt1_txt; {2} Uses crt; {3} End. {4} Begin {5} Clrscr; {6} Rewrite(f); {7} Close(f); {8} Write(f, 123 + 456); {9} Var f: text; {10} Assign(f,‘BAITHI_HKII.TXT ’); =>Kết quả sắp xếp: {1}{2}{9}{4}{5}{10}{6}{8}{7}{3} PHẦN 03: Viết đoạn chương trình 1)*. Viết hàm tính UCLN của 2 số x và y FUNCTION UCLN (x,y:integer): integer: var sodu:integer; begin while y<>0 do begin sodu:= x mod y; x :=y ; y :=sodu ; end ;. 2,00 ĐIỂM.

<span class='text_page_counter'>(2)</span> UCLN :=x ; end ; 2). Viết hàm tính lũy thừa Function luythua(a,n:integer):longint; var kq:longint; i:integer; begin kq:=1; For i:=1 to n do kq:=kq*a; luythua:=kq; end; 3). Viết hàm tính giai thừa của một số. Function giaithua(n:integer):longint; var kq: longint; i:integer; begin kq:=1; For i:=1 to n do kq:=kq*i; giathua:=kq; end; 4). Viết thủ tục hoán đổi 2 số Procedure Hoan_Doi(x:integer; var y:integer); Var TG: integer; Begin TG:=x; x:=y; y:=TG; End; 5). Viết hàm tìm số nhỏ nhất trong 2 số Function Min(a,b:real):real; Begin If a<b then Min:=a; else Min:=b; end; …HẾT….

<span class='text_page_counter'>(3)</span>