Đề kiểm tra môn Tin học – Free Pascal dành cho học sinh lớp (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 tam giác ABC → Đó có phải tam giác vng hay khơng Hãy viết chương trình: (4 điểm) Nhập điểm ba mơn Tốn, Anh, Văn → Xuất điểm trung bình học kì Hãy viết chương trình giải phương trình bậc ax + b = (2 điểm) - HẾT Lưu ý: Thí sinh khơng trao đổi hay sử dụng tài liệu Làm máy tính → chương trình Free Pascal ThuVienDeThi.com Đá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 canh AB:'); →1 điểm Readln (a); Writeln ('Nhap so 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 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 biến không thiết phải giống Kiểm tra kết điểm, sai điểm Trên điểm -> đạt Khơng giải thích thêm Trân trọng, học sinh trường ThuVienDeThi.com ... Readln end Lưu ý: Tên program biến không thiết phải giống Kiểm tra kết điểm, sai điểm Trên điểm -> đạt Khơng giải thích thêm Trân trọng, học sinh trường ThuVienDeThi.com ...Đáp án đề thi Tin học Viết chương trình program TamGiacVuong; uses crt; var a,b,c:Real; begin clrscr; Writeln