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

Đề 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)
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
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ì
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
Đáp án đề thi Tin học
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.
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.
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 a0 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 (b0) 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