De thi HSG tinh DakNong 2010 mon Hoa

Đáp án ĐỀ CHÍNH THỨC
Câu 1:
Hướng dẫn chấm:
- Tính được số tiền sau k tháng xuất ra màn hình 2 điểm
- Tìm được số tháng cần gởi 2 điểm
- xuất được số thực không có sau dấu phẩy 1 điểm
- Tổng điểm 5 điểm
Đáp án câu 1: Chương trình tham khảo
begin
write(`Nhap vao lai xuat t`);readln(t);
write(`Nhap vao so von n `);readln(n);
write(`Nhap vao so thang k `);readln(k);
m:=n;
for i:=1 to k do
m:=m*(1+t/100);
writeln(`So tien nhan duoc sau `,k,`thang :`,m:0:2);
write(`Nhap vao so tien muon nhan m de tinh k thang `);readln(m);
k:=0;
s:=n;
while s begin
k:=k+1;
s:=s*(1+t/100);
end;
writeln(`so thang can tim la :`,k);
end.
Câu 2:
Hướng dẫn chấm:
- khai báo biến nhập được số n 1 điểm
- Tổ chức được cấu trúc lựa chọn 2 điểm
- Tránh được trường hơp chia không 2 điểm
- Tổng điểm 5 điểm
Đáp án câu 2 : Chương trình tham khảo:
begin
write(`Nhap vao x `);readln(x);
write(`Nhap vao y`);readln(y);
write(`Nhap vao ch `);readln(ch);
case ch of
`+`:writeln(x+y);
`-`:writeln(x-y);
`*`:writeln(x*y);
`/`:if y<>0 then writeln(x/y:0:2)
else writeln(`loi chia cho khong`);
else
writeln(ch,` khong phai la phep toan`);
end;
end.
Câu 3:
Hướng dẫn chấm:
- khai báo biến nhập được số n và dãy số nguyên 2 điểm
- Sắp xếp dãy giảm dần , in kết qua ra màn hình 3 điểm
- Tổng điểm 5 điểm
Đáp án câu 3: Chương trình tham khảo
begin
write(`nhap vao n >1`);readln(n);
for i:=1 to n do
begin
write(`nhap vao phan tu thu `,i:3);
readln(a[i]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i] begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
for i:=1 to n do write(a[i]:3);
end.
Câu 4:
Hướng dẫn chấm:
- khai báo biến nhập được số n và dãy số nguyên 2 điểm
- Tìm được phần tử nhỏ nhất và vị trí của nó 2 điểm
- Thông báo kết quả 1 điểm
- Tổng điểm 5 điểm
Đáp án câu 4: Chương trình tham khảo
begin
write(`nhap vao n>1 `);readln(n);
for i:=1 to n do
begin
write(`nhap vao phan tu thu `,i:3);
readln(a[i]);
end;
min:=a[1];
vt:=1;
for i:=1 to n do
if a[i] begin
min:=a[i];
vt:=i;
end;
writeln(`phan tu nho nhat la: `,min);
writeln(`vi tri tim duoc la :`,vt); if d1=0 then write(`day tang`)
else if d2=0 then write (`day giam`)
else write(`chua sap xep`);
end.
-------------------------Hết-------------------------