Lập chương trình tính: a/ Số N có bao nhiêu chữ số.. b/ Tính tổng các chữ số của N..[r]
(1)ĐỀ THI CHỌN HỌC SINH GIỎI TỈNH LỚP 9 NĂM HỌC 2009 - 2010
MÔN THI: TIN HỌC
Thời gian làm bài: 150 phút không kể thời gian phát đề Đề thi gồm 03 câu 01 trang
Lập trình để giải tốn sau ngơn ngữ Pascal Bài 1: (6 điểm)
a Nhập dãy số nguyên có n phần tử (0< n 100)
b Sắp xếp dãy vừa nhập theo thứ tự tăng dần, in hình dãy thứ tự Bài 2: (6 điểm)
Nhập vào từ bàn phím ba số thực độ dài ba cạnh tam giác tính diện tích tam giác
Bài 3: (8 điểm)
Cho số tự nhiên N Lập chương trình tính: a/ Số N có chữ số
(2)HƯỚNG DẪN CHẤM THI HỌC SINH GIỎI TỈNH LỚP 9 NĂM HỌC 2009 - 2010
MÔN THI: TIN HỌC
Thời gian làm bài: 150 phút không kể thời gian phát đề Hướng dẫn gồm 05 câu trang
Lưu ý chung: Học sinh viết theo cách khác, chương trình chạy cho kết đúng, cho điểm tối đa, ngược lại chấm theo hướng dẫn sau Tùy theo mức độ sai, trừ điểm hợp lý, tổng số điểm không 50% điểm tối đa
Bài 1: (5 điểm)
- Nhập dãy số nguyên: viết cho đ
- Sắp xếp dãy vừa nhập theo thứ tự tăng dần: viết cho đ Bài 2: (6 điểm)
- Nhập vào số thực kiểm tra xem có thoả mãn cạn tam giác hay không: viết cho đ
- Tính diện tích tam giác đó: viết cho đ Bài 3: (8 điểm)
a/ Tìm số N có chữ số: viết cho đ b/ Tính tổng chữ số N.viết cho đ Sau chương trình hồn chỉnh để tham khảo thêm **************************************************** Program bai1;
var a:array[1 100] of integer; i,j,n,t,x,p,q:integer;
found:boolean; Begin
{********a Nhap**************}
Write('Nhap so phan tu cua day:');Readln(n); For i:=1 to n readln(a[i]);
{*********b Sap xep, in day man hinh *************} For i:=1 to n-1
For j:=1 to n-i if a[j]>a[j+1] then begin
(3)end;
For i:=1 to n write(a[i],' '); readln;
End
Program bai2; Var
a, b, c, p, s: real; D : boolean; Begin
Writeln (‘Nhap canh a cua tam giac : ‘); Readln (a); Writeln (‘Nhap canh b cua tam giac : ‘); Readln (b); Writeln (‘Nhap canh c cua tam giac : ‘); Readln (c); p := (a +b+c)/2;
D:= ((a>0) and (b>0) and (c>0) ) and ((p > a) and (p > b) and (p > c)); If D then
Begin
s := sqrt(p*(p-a)*(p-b)*(p-c));
Writeln (‘Dien tich cua tam giac la S = : ‘, s : 20:2); End
Else
Writeln (‘ a, b, c khong the la canh cua tam giac‘); Readln
END
Program bai3; Var
I, k , s: byte; n : longint; Begin
Write (‘Nhap n : ‘); Read (n); k := 1; s := 0;
For i := to 10 Begin
s := s + n mod 10; n := n div 10;
If n <> then k := k + 1; End;
Writeln ( ‘N cos ‘, k: 2, ‘chu so’);
Writeln ( ‘Tong cac chu so cua N la: ’, s : 8); Readln;