BÀI TẬP THỰC HÀNH

a.Viết thuật toán b.Viết chương trình bằng ngôn ngữ pascal.. 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 của một tam giác hay không.. Câu 3:Vi

BÀI TẬP ÔN TẬP KIỂM TRA THỰC HÀNH 1 TIẾT

Câu 1: Cho hai số thực a và b Hãy cho biết kết quả so sánh hai số

đó dưới dạng: “a lớn hơn b”, “b lớn a”, “ hai số bằng nhau”

a.Viết thuật toán

b.Viết chương trình bằng 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 của một 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

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.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à bộ số piatgo hay không

*Gợi ý: Bình phương độ dài một cạnh bằng tổng bình phương h ai

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ưới dạng giỏi, khá, trung bình, yếu

Câu 1: Cho hai số thực a và b Hãy cho biết kết quả so sánh hai số

đó dưới dạng: “a lớn hơn b”, “b lớn a”, “ hai số bằng nhau”

a.Viết thuật toán

Xác định bài toán:

Input: cho hai số a,b

Output: kết quả 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 quả là “a lớn hơn b” và chuyển bước b4.

B3: Nếu a<b thì kết quả là “b lớn hơn a” ngược lại, kết quả “ hai số bằng 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;

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 của một 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 của một 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 quả độ dài ba cạnh của một tam giác ngược lại, không phải độ dài ba cạnh của một 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 do dai ba

canh cua mot tam giac’) else writeln(‘ a,b,c, khong phai do 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

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.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 quả so sánh chiều cao hai bạn Long, Trang

Thuật toán:

B1: Nhập hai số Long, Trang

chuyển bước b4.

B3: Nếu Long<Trang thì kết quả là “Trang cao hon Long” ngược lại, kết quả “ 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;

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