Câu 2: Viết chương trình: Nhập từ bàn phím một số nguyên N bất kỳ, hãy xác định xem số N này có phải là số hoàn hảo hay không?. + Nếu là số hoàn hoản thì hãy liệt kê các ước của nó ra mà[r]
(1)SỞ GD&ĐT THANH HÓA TRƯỜNG THPT LÊ VĂN HƯU ĐỀ KIỂM TRA HỌC KỲ MÔN TIN HỌC (dùng cho khối 11) Mã đề: 123 Câu 1: Viết chương trình: Nhập từ bàn phím dãy gồm N số tự nhiên bất kỳ, Hãy: + Tính tổng các số vừa nhập + Sắp xếp dãy số vừa nhập thành dãy số không giảm Câu 2: Viết chương trình: Nhập từ bàn phím số nguyên N bất kỳ, hãy xác định xem số N này có phải là số hoàn hảo hay không? + Nếu là số hoàn hoản thì hãy liệt kê các ước nó màn hình + Ngược lại thì thông báo màn hình số này là số chẵn hay số lẻ Câu 3: Viết chương trình: Nhập từ bàn phím vào xâu gồm s kí tự (s <= 200), hãy đếm xem xâu kí tự đó có bao nhiêu số 5, thông báo kết tìm màn hình Câu 4: Viết chương trình: Nhập từ bàn phím số nguyên dương bất kì Hãy xác định xem số đó có tạo thành cặp cạnh tam giác không? Nếu tạo thành cạnh tam giác thì: + Tính chu vi tam giác tạo thành + Tính diện tích tam giác Ngược lại thì thông báo cạnh có độ dài lớn Kết bài toán đưa màn hình ĐÁP ÁN MÃ ĐỀ 123 (2) PROGRAM BAI1_123; VAR a: array[1 100] of word; i,j,n:integer; s,tam:word; BEGIN {nhap vao mang chieu} write('Nhap vao so phan tu: '); readln(n); for i:= to n begin write('A[',i,']:= '); readln(a[i]); end; {tinh tong cac so vua nhap} s:= 0; for i:= to n s:= s+ a[i]; write('Tong cac so vua nhap la ',s); {sap xep day khong giam} for i:= to n-1 begin for j:= n downto i+1 begin if a[i]>a[j] then begin tam:= a[i]; a[i]:= a[j]; a[j]:= tam; end; end; {xuat mang chieu theo hang ngang} for i:= to n write(a[i]:3); end; readln; END {==============} PROGRAM BAI2_123; VAR n,s,i: integer; BEGIN write('Nhap vao so nguyen: '); readln(n); s:= 0; for i:= to n div begin if n mod i= then s:= s+i; end; if s=n then {tu la N la so hoan hao} begin {Liet ke cac uoc} for i:= to n begin if n mod i=0 then write(i:3); end; end else {nghia la N khong phai so hoan hao} begin if n mod 2= then write('N la so chan') else write('N la so le'); end; readln; END (3) {=========} PROGRAM BAI3_123; VAR s: string; i,d: word; BEGIN write('Nhap vao mot xau ki tu: '); readln(s); d:= 0; for i:= to length(s) begin if s[i]='5' then d:= d+1; end; write('Trong xau co ',d,' so 5'); readln; END {=========} PROGRAM BAI4_123; VAR a,b,c,max: word; d,s,cv: real; BEGIN write('Nhap vao so thu nhat: '); readln(a); write('Nhap vao so thu hai: '); readln(b); write('Nhap vao so thu ba: '); readln(c); {xac dinh DK tao tam giac} if (a+b>c) and (b+c>a) and (c+a>b) then begin d:= (a+b+c)/2; cv:= 2*d; s:= sqrt(d*(d-a)*(d-b)*(d-c)); writeln(' Chu vi tam giac la: ',cv); writeln(' Dien tich tam giac la: ',s); end else {khong phai la tam giac} begin {tim so lon nhat so} max:= a; if max<b then max:= b; if max<c then max:= c; writeln('So lon nhat la ',max); end; readln; END (4)