Đề kiểm tra môn Tin học – Free Pascal dành cho học sinh lớp 820764

Đề kiểm tra môn Tin học – Free Pascal dành cho học sinh lớp 8trường Trung học phổ thông chuyên Trần Đại Nghĩa 1.. Hãy viết chương trình: 4 điểm Nhập số đo ba cạnh của tam giác ABC.. → Đó

Đề kiểm tra môn Tin học – Free Pascal dành cho học sinh lớp 8

(trường Trung học phổ thông chuyên Trần Đại Nghĩa)

1 Hãy viết chương trình: (4 điểm)

Nhập số đo ba cạnh của tam giác ABC

→ Đó có phải là tam giác vuông hay không

2 Hãy viết chương trình: (4 điểm)

Nhập điểm ba môn Toán, Anh, Văn

→ Xuất ra điểm trung bình học kì

3 Hãy viết chương trình giải phương trình bậc nhất ax + b = 0 (2 điểm)

- HẾT

-Lưu ý: Thí sinh không được trao đổi bài hay sử dụng tài liệu Làm bài trên máy tính → chương trình Free Pascal

ThuVienDeThi.com

Đáp án đề thi Tin học

1 Viết chương trình

program TamGiacVuong;

uses crt;

var a,b,c:Real;

begin clrscr;

Writeln ('Nhap so do canh AB:'); →1 điểm

Readln (a);

Writeln ('Nhap so do canh BC'); →1 điểm

Readln (b);

Writeln ('Nhap so canh CA:'); →1 điểm

Readln (c);

If (a*a+b*b=c*c) or (a*a+c*c=b*b) or (b*b+c*c=a*a) then writeln ('Day la tam giac vuong.')

Else Writeln ('Day khong phai la tam giac vuong.'); →1 điểm

Readln

end

2 Viết chương trình

program DTB;

uses crt;

var t,a,v,diem:Real;

begin clrscr;

writeln('Nhap diem hoc ki mon Anh:'); →1 điểm

readln(a);

writeln('Nhap diem hoc ki mon Toan:'); →1 điểm

readln(t);

writeln('Nhap diem hoc ki mon Van:'); →1 điểm

readln(v);

diem:=t+a+v;

writeln('Diem trung binh cua ban trong hoc ki vua qua la: ',diem); →1 điểm

readln

end

3 Viết chương trình

program PT_bac_1;

uses crt;

var a,b:Real;

begin

clrscr;

Writeln ('Nhap he so a:'); →0,5 điểm

Readln (a);

Writeln ('Nhap he so b:'); →0,5 điểm

Readln (b);

If a<>0 then writeln ('Nghiem x la: ',-b/a:0:1) →1 điểm (thiếu :0:x (x < 3) →0,75 điểm)

Else if (a=0) and (b=0) then writeln ('Phuong trinh co vo so nghiem.') →1 điểm (lộn and thành or →0 điểm)

Else if (a=0) and (b<>0) then writeln ('Phuong trinh vo nghiem.'); →1 điểm (lộn and thành or →0 điểm)

Readln

end

Lưu ý: Tên program và biến không nhất thiết phải giống

Kiểm tra kết quả đúng thì được điểm, sai thì mất điểm

Trên 5 điểm -> đạt.

Không giải thích thêm

Trân trọng, học sinh trường tôi

ThuVienDeThi.com