Đáp án đề thi HSG Môn tin 8 vong trường

PHÒNG GD &ĐT TÂN SƠN
TRƯỜNG THCS MỸ THUẬN

ĐÁP ÁN THI CHỌN HỌC SINH GIỎI CẤP TRƯỜNG
MÔN TIN HỌC LỚP 8 – NĂM HỌC 2015-2016
Thời gian làm bài: 150 phút (Không kể thời gian phát đề).

Bài 1 :(4 điểm)
Program Tam_giac;
Uses crt;
Var a,b,c,s,p:real;
Begin
Clrscr;
Writeln(‘bai toan tam giac’);
Write(‘nhap a=’); Readln(a);
Write(‘nhap b=’); Readln(b);
Write(‘nhap c=’); Readln(c);
If ((a+b)>c) and ((b+c)>a) and ((a+c)>b) then
Begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
Writeln(‘chu vi tam giac:’,2*p);
Writeln(‘dien tich hinh tam giac:’,s);
End;
Else
Writeln(a,b,c khong phai la 3 canh cua tam giac’);
Readln;
End.
Bài 2:( 6 điểm)
program tinhtong;
Uses Crt ;

Var i , n : Integer ;
tong: Real ;
BEGIN
Clrscr ;
Write (' Cho so tu nhien n : ') ; Readln (n) ;
tong :=0 ;
i :=1 ;
While i <= n Do
Begin
tong := tong + 1/i ;
i := i + 1 ;
End ;
Writeln (' Tong can tim la : ', tong:12:6 ) ;
Readln ;
END .


Bài 3 ( 6 điểm
2)Uses Crt ;
Var a : Array[1..10, 2..9] Of Byte ;
i, j : Byte ;
BEGIN
Clrscr ;
For i := 1 To 10 Do
For j := 2 To 9 Do a[i, j] := i*j ;
Writeln(' Bang cuu chuong : ') ; Writeln ;
For i := 1 To 10 Do
For j := 2 to 9 do Write ( j:4 , 'x' , i:2 , '=' , a[i , j]:2) ;
(* hết 80 cột tự động xuống hàng *)
Readln ;

END .
Bài 4: (4điểm)
Program GIAI_PHUONG_TRINH_BAC_NHAT;
Uses crt;
Var a,b,x:real;
Begin
Clrscr;
Writeln(‘giai phuong trinh bac nhat:ax+b=0’);
Write(‘nhap a=’); Readln(a);
Write(‘nhap b=’); Readln(b);
If (a=0)then
If (b=0) then
Writeln(‘phuong trinh co vo so nghiem’);
Else
Writeln(‘phuong trinh vo nghiem’);
Else
Writeln(‘phuong trinh co nghiem x=’,-b/a);
Readln;
End.