HSG huyện Tin 0809

Viết chương trình tính tổng bình phương các số lẻ từ 1 đến n.. Viêt chương trình tìm số lớn nhất trong 3 số nguyên đĩ.. HẾT Yêu cầu khi làm bài: -Chương trình được đặt tên như sau: PROG

PHỊNG GD&ĐT BÙ ĐỐP

ĐỀ THI CHỌN HSG CẤP HUYỆN

NĂM HỌC 2008 - 2009 MƠN: TIN 9

Thời gian: 150 phút (khơng kể thời gian phát đề)

Bài 1 (5điểm): Nhập vào ba số a, b, c bất kì, viết chương trình để tính giá trị của biểu thức sau

(kết quả lấy tới 2 chữ số thập phân).

2 3

a b c M

a b

+ −

= +

Bài 2 (5điểm): Nhập vào số n Viết chương trình tính tổng bình phương các số lẻ từ 1 đến n Bài 3 (5điểm): Nhập vào hai số x và n Viết chương trình tính x luỹ thừa n.

Bài 4 (5điểm): Nhập vào 3 số nguyên bất kì Viêt chương trình tìm số lớn nhất trong 3 số

nguyên đĩ.

HẾT

Yêu cầu khi làm bài:

-Chương trình được đặt tên như sau: PROGRAM SBDxxx;

Trong đó xxx là 3 chữ số báo danh của thí sinh

-Bài làm được lưu (Save) với tên: tương tự như tên chương trình SBDxxx.PAS (Tập

tin được lưu mặc định nằm trong C:\Program Files\TP\ WORK, Thí sinh không được thay đổi nơi lưu bài làm vào các vị trí khác)

-Cần phải lưu ngay bài làm của mình vào máy, cứ vài phút cần bấm F2 để Save

(tránh trường hợp mất điện giữa chừng làm mất bài thi).

HƯỚNG DẪN CHẤM ĐỀ THI CHỌN HỌC SINH GIỎI

NĂM HỌC 2008 – 2009 MÔN: TIN Câu 1: Nhập vào ba số a, b, c bất kì, viết chương trình để tính giá trị của biểu thức sau (kết quả lấy tới 2 chữ số thập phân):

2 3

a b c M

a b

+ −

= + PROGRAM TINH_GT_BT;

VAR a, b, c: integer;

M: REAL;

BEGIN

WRITE('Nhap so a = '); READLN(a);

WRITE('Nhap so b = '); READLN(b);

WRITE('Nhap so c = '); READLN(c);

M:=(a*a+3*b-c)/(a+b);

WRITELN('GIA TRI CAN TINH LA: M= ',M:2:2);

READLN

END

Bài 2: Tính tổng bình phương các số lẻ

Program Tong_binh_phuong;

Var

i,n,tong:Integer;

Begin

Writeln('TINH TONG BINH PHUONG CAC SO LE');

Writeln(' Tu 1 den N');

Writeln(' -');

Write('-Nhap N= ');

Readln(n);

tong:=0;

For i:=1 To N Do

If odd(i) Then

tong:=tong+sqr(i);

Writeln;

Writeln('+Tong binh phuong cac so le tu 1 den ',n,' la= ',tong); Writeln;

Writeln(' Bam phim <Enter> de ket thuc');

Readln

End

Bài 3: Tính x luỹ thừa n

Program Luy_thua;

Var

x,n,tich,luythua:Integer;

Begin

Writeln('TINH TRI CUA X LUY THUA N');

Writeln(' -');

Write('-Nhap vao so X= ');

Readln(x);

Write('-Nhap vao luy thua N= ');

Readln(n);

tich:=1;

luythua:=1;

While luythua <= n Do

Begin

tich:=tich * x;

luythua:=luythua + 1;

End;

Writeln;

Writeln(x,' luy thua ',n,' = ',tich);

Writeln;

Writeln(' Bam phim <Enter> de ket thuc');

Readln

End

Bài 4: Tìm số lớn nhất trong 3 số nguyên

Program So_lon;

Var

so1,so2,so3,solon:Integer;

Begin

Writeln('TIM SO LON NHAT TRONG 3 SO NGUYEN'); Writeln(' Cau truc If thieu');

Writeln(' -');

Write('-Nhap so thu nhat: ');

Readln(so1);

Write('-Nhap so thu hai : ');

Readln(so2);

Write('-Nhap so thu ba : ');

Readln(so3);

If so1 < so2 Then

solon:=so2;

If so2 < so3 Then

solon:=so3;

If so3 < so1 Then

solon:=so1;

Writeln;

Writeln('+So lon nhat trong 3 so la: ',solon);

Writeln;

Writeln('Bam phim <Enter> de ket thuc');

Readln

End