Free Pascal - lớp 8 - viết chương trình đơn giản - đề thi kiểm tra 45 phút

Đềkiểmtramôn Tin học – Free Pascal dànhchohọcsinhlớp 8
(trườngTrunghọcphổthôngchuyênTrầnĐạiNghĩa)
Hãyviếtchươngtrình: (4 điểm)
Nhậpsốđobacạnhcủa tam giác ABC.
→ Đócóphảilà tam giácvuông hay không
Hãyviếtchươngtrình: (4 điểm)
NhậpđiểmbamônToán, Anh, Văn
→Xuấtrađiểmtrungbìnhhọckì
Hãyviếtchươngtrìnhgiảiphươngtrìnhbậcnhất ax + b = 0 (2 điểm)
--- HẾT ---
Lưu ý: Thísinhkhôngđượctraođổibài hay sửdụngtàiliệu
Làmbàitrênmáytính→chươngtrình Free Pascal







































Đápánđềthi Tin học
Viếtchươngtrình
programTamGiacVuong;
usescrt;
vara,b,c:Real;
beginclrscr;
Writeln (`Nhap so do canhAB:`);→1 điểm
Readln (a);
Writeln (`Nhap so do canh BC`);→1 điểm
Readln (b);
Writeln (`Nhap so canhCA:`);→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 giacvuong.`)
Else Writeln (`Day khongphai la tam giacvuong.`);→1 điểm
Readln
end.
Viếtchươngtrình
program DTB;
usescrt;
vart,a,v,diem:Real;
beginclrscr;
writeln(`Nhap diem hoc kimonAnh:`);→1 điểm
readln(a);
writeln(`Nhap diem hoc kimonToan:`);→1 điểm
readln(t);
writeln(`Nhap diem hoc kimon Van:`);→1 điểm
readln(v);
diem:=t+a+v;
writeln(`Diem trungbinhcua ban trong hoc kivua qua la: `,diem);→1 điểm
readln
end.
Viếtchươngtrình
program PT_bac_1;
usescrt;
vara,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ộnandthànhor →0 điểm)
Else if (a=0) and (b<>0) then writeln (`Phuong trinhvonghiem.`); →1 điểm (lộnandthànhor →0 điểm)
Readln
end.
Lưu ý: Tên program vàbiếnkhôngnhấtthiếtphảigiống
Kiểmtrakếtquảđúngthìđượcđiểm, saithìmấtđiểm
Trên 5 điểm ->đạt.
Khônggiảithíchthêm
Trântrọng, họcsinhtrườngtôi