Đang tải... (xem toàn văn)
TRONG THỜI GIAN NGHỈ PHÒNG DỊCH CORONA). Và in 2 số đó ra màn hình theo thứ tự tăng dần.. In ra màn hình kết quả so sánh chiều cao của 2 bạn đó. Chẳng hạn: “ bạn Minh cao hơn bạn Phúc”[r]
(1)b1) Vẽ sơ đồ thuật toán để giải tập b2) Gõ chương trình sau đây:
NỘI DUNG HỌC TẬP MÔN TIN HỌC KHỐI (DÀNH CHO CÁC EM HỌC SINH
TRONG THỜI GIAN NGHỈ PHÒNG DỊCH CORONA) BÀI THỰC HÀNH SỬ DỤNG LỆNH ĐIỀU KIỆN If then 1) CẤU TRÚC RẼ NHÁNH:
2) CÂU LỆNH ĐIỀU KIỆN: a) Dạng lệnh:
b) ÁP DỤNG:
* Bài tập 1:
(2)b3)
3) LUYỆN TẬP: a) Bài tập 1:
Viết chương trình nhập vào chiều cao bạn học sinh Minh Phúc
In hình kết so sánh chiều cao bạn Chẳng hạn: “ bạn Minh cao hơn bạn Phúc”
Program Sap_xep; 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, ‘ ‘, B)
else writeln(B, ‘ ‘, A); readln;
(3)a1) Vẽ sơ đồ thuật toán để giải tập a2) Gõ chương trình sau đây:
a3)
a4)
a5)
b) Bài tập khai thác nâng cao:
Từ Bài tập Em viết lại thành chương trình theo đoạn lệnh sau đây: Program Ai_cao_hon;
uses crt ;
var Minh, Phuc: Real; Begin
clrscr;
write(‘ Nhap chieu cao cua Minh = ’); readln(Minh); write(‘ Nhap chieu cao cua Phuc = ’); readln(Phuc);
If Minh > Phuc then writeln(‘ ban Minh cao hon ban Phuc ’ ); If Minh < Phuc then writeln(‘ ban Phuc cao hon ban Minh ’ ) else writeln(‘ hai ban cao bang nhau’);
readln; End
If Minh > Phuc then writeln(‘ ban Minh cao hon ban Phuc ’ )
(4)c
b
a C
B A
a) Vẽ sơ đồ thuật toán để giải tập b) Viết chương trình thực
c) Em tìm chỗ sai đoạn chương trình sau sửa lại thành chương trình 4) BÀI TẬP TƯƠNG TỰ:
* Lưu ý: số a, b c cạnh tam giác đồng thời thỏa mãn: a + b > c, b + c > a a + c > b
* Em nhập số dương a, b c vào từ bàn phím
Kiểm tra đưa hình kết thơng báo: số có phải cạnh một tam giác hay không ?
Program Ba_canh_tam_giac; uses crt ;
var a, b, c : Real; Begin
clrscr;
write(‘ Nhap canh a = ’); readln(a); write(‘ Nhap canh b = ’); readln(b); write(‘ Nhap canh c = ’); readln(c);
If a+b>c va b+c>a va a+c>b then writeln( ‘ a,b,c la canh cua tam giac ’) else writeln( ‘ a,b,c khong phai la canh cua tam giac ’);