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

Đáp án đề thi HSG Môn tin 8 vong trường tài liệu, giáo án, bài giảng , luận văn, luận án, đồ án, bài tập lớn về tất cả c...

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