Chào mừng quý vị đến với Thư viện tài nguyên giáo dục Bình Dương.
Quý vị chưa đăng nhập hoặc chưa đăng ký làm thành viên, vì vậy chưa thể tải được các tư liệu của Thư viện về máy tính của mình.
Nếu chưa đăng ký, hãy đăng ký thành viên tại đây hoặc xem phim hướng dẫn tại đây
Nếu đã đăng ký rồi, quý vị có thể đăng nhập ở ngay ô bên phải.
Bài TH4
- 0 / 0
-
(Tài liệu chưa được thẩm định)
Nguồn:
Người gửi: Hoàng Ngọc Sơn
Ngày gửi: 13h:37' 12-07-2010
Dung lượng: 630.0 KB
Số lượt tải: 101
Nguồn:
Người gửi: Hoàng Ngọc Sơn
Ngày gửi: 13h:37' 12-07-2010
Dung lượng: 630.0 KB
Số lượt tải: 101
Số lượt thích:
0 người
SỬ DỤNG CÂU LỆNH
IF ….THEN
Bài thực hành số 4
Bài 1 : Viết chương trình nhập hai số nguyên a và b từ bàn phím. In 2 số đó ra theo thứ tự tăng dần.
Yêu cầu:
+ Xác định bài toán.
+ Mô tả thuật toán.
+ Viết chương trình.
Xác định bài toán:
+ Input: 2 số nguyên a và b.
+ Output: 2 số a và b theo thứ tự tăng dần.
Mô tả thuật toán
+ b1: Nhập 2 số a và b.
+ b2: Nếu (a+ b3: Kết thúc.
Viết chương trình
Program sapxep;
Uses crt;
Var a, b : integer;
Begin
Clrscr;
Write (‘Nhap so a=’) ;
readln(a);
Write (‘Nhap so b=’) ;
readln(b);
If (a < b) then write (a, ‘ ‘, b)
else write (b, ‘ ‘, a);
Readln;
End.
Bài 2. Viết chương trình nhập chiều cao của 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.
Yêu cầu:
+ Xác định bài toán.
+ Mô tả thuật toán.
+ Viết chương trình.
Xác định bài toán:
+ Input: Chiều cao của 2 bạn.
+ Output: Kết quả so sánh chiều cao.
Mô tả thuật toán
+ b1: Nhập chiều cao Long và Trang.
+ b2: Nếu (Long>trang) thì “Bạn Long cao hơn”.
+ b3: Nếu (Long+ b4: Kết thúc.
Viết chương trình
program Ai_cao_hon;
uses crt;
var Long, Trang: Real;
begin
clrscr;
write(`Nhap chieu cao cua Long:`); readln(Long);
write(`Nhap chieu cao cua Trang:`); readln(Trang);
If (Long>Trang) then
writeln(`Ban Long cao hon`);
If (Long writeln(`Ban Trang cao hon`)
else writeln(`Hai ban cao bang nhau`);
readln;
end.
Bài 3. Dưới đây là chương trình nhập ba số dương a, b, và c từ bàn phím, kiểm tra và in ra màn hình kết quả kiểm tra ba số đó có thể là độ dài các cạnh của một tam giác hay không.
Ý tưởng: Ba số dương a, b, và c là độ dài các cạnh của một tam giác khi và chỉ khi a + b > c, b + c > a
và c + a > b.
Yêu cầu:
+ Xác định bài toán.
+ Mô tả thuật toán.
+ Viết chương trình.
Xác định bài toán:
+ Input: 3 số a,b,c.
+ Output: Kết quả kiểm tra 3 số có là độ dài của các cạnh tam giác hay không.
Mô tả thuật toán
+ b1: Nhập 3 số a,b,c.
+ b2: Nếu (a+b>c) và (a+c>b) và (b+c>a) thì “a,b,c là ba cạnh của tam giác”.
Ngược lại, “a,b,c không là 3 cạnh của tam giác”.
+ b3: Kết thúc.
Viết chương trình
Program Ba_canh_tam_giac;
uses crt;
Var a, b, c: real;
Begin
Clrscr;
write(`Nhap ba so a, b va c:`);
readln(a,b,c);
If (a+b>c) and (b+c>a) and (c+a>b) then
writeln(`a, b va c la 3 canh cua mot tam giac!`)
else
writeln(`a, b, c khong la 3 canh cua tam giac!`);
readln;
end.
IF ….THEN
Bài thực hành số 4
Bài 1 : Viết chương trình nhập hai số nguyên a và b từ bàn phím. In 2 số đó ra theo thứ tự tăng dần.
Yêu cầu:
+ Xác định bài toán.
+ Mô tả thuật toán.
+ Viết chương trình.
Xác định bài toán:
+ Input: 2 số nguyên a và b.
+ Output: 2 số a và b theo thứ tự tăng dần.
Mô tả thuật toán
+ b1: Nhập 2 số a và b.
+ b2: Nếu (a
Viết chương trình
Program sapxep;
Uses crt;
Var a, b : integer;
Begin
Clrscr;
Write (‘Nhap so a=’) ;
readln(a);
Write (‘Nhap so b=’) ;
readln(b);
If (a < b) then write (a, ‘ ‘, b)
else write (b, ‘ ‘, a);
Readln;
End.
Bài 2. Viết chương trình nhập chiều cao của 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.
Yêu cầu:
+ Xác định bài toán.
+ Mô tả thuật toán.
+ Viết chương trình.
Xác định bài toán:
+ Input: Chiều cao của 2 bạn.
+ Output: Kết quả so sánh chiều cao.
Mô tả thuật toán
+ b1: Nhập chiều cao Long và Trang.
+ b2: Nếu (Long>trang) thì “Bạn Long cao hơn”.
+ b3: Nếu (Long
Viết chương trình
program Ai_cao_hon;
uses crt;
var Long, Trang: Real;
begin
clrscr;
write(`Nhap chieu cao cua Long:`); readln(Long);
write(`Nhap chieu cao cua Trang:`); readln(Trang);
If (Long>Trang) then
writeln(`Ban Long cao hon`);
If (Long
else writeln(`Hai ban cao bang nhau`);
readln;
end.
Bài 3. Dưới đây là chương trình nhập ba số dương a, b, và c từ bàn phím, kiểm tra và in ra màn hình kết quả kiểm tra ba số đó có thể là độ dài các cạnh của một tam giác hay không.
Ý tưởng: Ba số dương a, b, và c là độ dài các cạnh của một tam giác khi và chỉ khi a + b > c, b + c > a
và c + a > b.
Yêu cầu:
+ Xác định bài toán.
+ Mô tả thuật toán.
+ Viết chương trình.
Xác định bài toán:
+ Input: 3 số a,b,c.
+ Output: Kết quả kiểm tra 3 số có là độ dài của các cạnh tam giác hay không.
Mô tả thuật toán
+ b1: Nhập 3 số a,b,c.
+ b2: Nếu (a+b>c) và (a+c>b) và (b+c>a) thì “a,b,c là ba cạnh của tam giác”.
Ngược lại, “a,b,c không là 3 cạnh của tam giác”.
+ b3: Kết thúc.
Viết chương trình
Program Ba_canh_tam_giac;
uses crt;
Var a, b, c: real;
Begin
Clrscr;
write(`Nhap ba so a, b va c:`);
readln(a,b,c);
If (a+b>c) and (b+c>a) and (c+a>b) then
writeln(`a, b va c la 3 canh cua mot tam giac!`)
else
writeln(`a, b, c khong la 3 canh cua tam giac!`);
readln;
end.
Các ý kiến mới nhất