Câu 3:Viết chương trình nhập chiều cao hai bạn Long và Trang, in ra màn hình kết quả so sánh chiều cao của hai bạn, vd như: “Ban Long cao hon”, “Ban Trang cao hon”, “hai ban bang nhau” a[r]
(1)BÀI TẬP ÔN TẬP KIỂM TRA THỰC HÀNH TIẾT Câu 1: Cho hai số thực a và b Hãy cho biết kết so sánh hai số đó dạng: “a lớn b”, “b lớn a”, “ hai số nhau” a.Viết thuật toán b.Viết chương trình ngôn ngữ pascal Câu 2: Cho trước ba số dương a,b,c Hãy mô tả thuật toán và viết chương trình pascal xem ba số đó có thể là độ dài ba cạnh tam giác hay không Câu 3:Viết chương trình nhập chiều cao hai bạn Long và Trang, in màn hình kết so sánh chiều cao hai bạn, vd như: “Ban Long cao hon”, “Ban Trang cao hon”, “hai ban bang nhau” a.Viết thuật toán b.Viết chương trình Câu 4: Cho trước ba số dương a,b,c Hãy mô tả thuật toán và viết chương trình pascal xem ba số đó phải là số piatgo hay không *Gợi ý: Bình phương độ dài cạnh tổng bình phương h cạnh góc vuông Câu 5: Cho điểm số các môn Văn, Toán, Lý, Hóa, anh văn nhập vào từ bàn phím Viết thuật toán và viết chương trình pascal tính điểm trung bình, xếp loại học học sinh dạng giỏi, khá, trung bình, yếu Lop8.net (2) BÀI LÀM Câu 1: Cho hai số thực a và b Hãy cho biết kết so sánh hai số đó dạng: “a lớn b”, “b lớn a”, “ hai số nhau” a.Viết thuật toán Xác định bài toán: Input: cho hai số a,b Output: kết so sánh hai số a,b Thuật toán: B1: Nhập hai số a,b B2: Nếu a>b thì kết là “a lớn b” và chuyển bước b4 B3: Nếu a<b thì kết là “b lớn a” ngược lại, kết “ hai số nhau” B4: Kết thúc thuật toán b.Viết chương trình: Câu lệnh điều kiện dạng thiếu: Program so_sanh; Uses crt; Var a,b: real; Begin Clrscr; Write(‘nhap so a =’); readln(a); Write(‘nhap so b =’); readln(b); If a>b then writeln(‘a lon hon b’); If a<b then writeln(‘b lon hon a’); If a=b then writeln(‘hai so bang nhau’); Readln; End Câu lệnh điều kiện dạng đủ: Program so_sanh; Uses crt; Var a,b: real; Begin Write(‘nhap so a =’); readln(a); Write(‘nhap so b =’); readln(b); if a>b then writeln(‘a lon hon b’) else if a<b then writeln(‘b lon hon a’) else writeln(‘hai so bang nhau’); Readln; Lop8.net (3) End Câu 2: Cho trước ba số dương a,b,c Hãy mô tả thuật toán và viết chương trình pascal xem ba số đó có thể là độ dài ba cạnh tam giác hay không a.Viết thuật toán Xác định bài toán: Input: cho ba số a,b, c dương Output: độ dài ba cạnh tam giác hay không Thuật toán: B1: Nhập ba số a,b,c B2: Nếu a+b>c và b+c> a và a+c>b thì kết độ dài ba cạnh tam giác ngược lại, không phải độ dài ba cạnh tam giác B3: Kết thúc thuật toán b.Viết chương trình Program ba_canh_tam_giac; Uses crt; Var a,b,c: integer; Begin Write(‘nhap so a =’); readln(a); Write(‘nhap so b =’); readln(b); Write(‘nhap so c =’); readln(c); If (a+b>c) and (b+c> a) and (a+c>b) then writeln(‘a,b,c la dai ba canh cua mot tam giac’) else writeln(‘ a,b,c, khong phai dai ba canh cua mot tam giac’); Readln; End Câu 3:Viết chương trình nhập chiều cao hai bạn Long và Trang, in màn hình kết so sánh chiều cao hai bạn, vd như: “Ban Long cao hon”, “Ban Trang cao hon”, “hai ban bang nhau” a.Viết thuật toán Xác định bài toán: Input: cho chiều cao hai bạn Long, Trang Output: kết so sánh chiều cao hai bạn Long, Trang Thuật toán: B1: Nhập hai số Long, Trang Lop8.net (4) B2: Nếu Long>Trang thì kết là “Long cao hon Trang” và chuyển bước b4 B3: Nếu Long<Trang thì kết là “Trang cao hon Long” ngược lại, kết “ hai ban bang nhau” B4: Kết thúc thuật toán b.Viết chương trình: Câu lệnh điều kiện dạng thiếu: Program Long_Trang; Uses crt; Var Long, Trang: real; Begin Clrscr; Write(‘nhap chieu cao Long =’); readln(Long); Write(‘nhap chieu cao Trang =’); readln(Trang); If Long>Trang then writeln(‘Long cao hon Trang’); If Long<Trang then writeln(‘Trang cao hon Long’); If Long = Trang then writeln(‘hai ban bang nhau’); Readln; End Câu lệnh điều kiện dạng đủ: Program Long_Trang; Uses crt; Var Long, Trang: real; Begin Clrscr; Write(‘nhap chieu cao Long =’); readln(Long); Write(‘nhap chieu cao Trang =’); readln(Trang); if Long>Trang then writeln(‘Long cao hon Trang’); else if Long<Trang then writeln(‘Trang cao hon Long’); else writeln(‘hai ban bang nhau’); Câu 4: Program bo_ba_pytago; Uses crt; Var a,b,c: integer; Lop8.net (5) Begin Write(‘nhap so a =’); readln(a); Write(‘nhap so b =’); readln(b); Write(‘nhap so c =’); readln(c); If (a*a=b*b+c*c) and (b*b=a*a+c*c) and (c*c=b*b+a*a) then writeln(‘a,b,c la bo ba pytago’) else writeln(‘ a,b,c khong phai bo ba pytago’); Readln; End Lop8.net (6)