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

PHÒNG GD &ĐT TÂN SƠN ĐÁP ÁN THI CHỌN HỌC SINH GIỎI CẤP TRƯỜNG
TRƯỜNG THCS MỸ THUẬN 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.