De cho HSG TinPascal

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]

ĐỀ 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ố

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

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;