1. Trang chủ
  2. » Nghệ sĩ và thiết kế

Tải Giáo án Tin học 8: Bài tập (bài 6) - Giáo án điện tử Tin học lớp 8

2 41 0

Đang tải... (xem toàn văn)

THÔNG TIN TÀI LIỆU

+ GV: Yêu cầu một số HS lên thao tác lại các nội dung đã chỉnh sửa.. + HS: Một số HS lên bảng thao tác lại các nội dung đã chỉnh sửa.[r]

(1)

BÀI TẬP

I MỤC TIÊU: 1 Kiến thức:

- Biết sửa lỗi thực bước giải tốn máy tính - Biết cách viết câu lệnh điều khiển chương trình

2 Kĩ năng: Rèn luyện kỹ vận dụng lý thuyết làm tập.

3 Thái độ: Học tập tích cực, nghiêm túc, có tinh thần tự giác, u thích mơn học. II CHUẨN BỊ:

1 Giáo viên: Sách giáo khoa, máy tính điện tử, giáo án, máy chiếu. 2 Học sinh: Vở ghi, sách giáo khoa.

III CÁC HOẠT ĐỘNG DẠY – HỌC: 1 Ổn định lớp: (1’)

8A1:……… 8A2:……… 2 Kiểm tra cũ:

Lồng ghép nội dung học 3 Bài mới:

Hoạt động GV Hoạt động HS Nội dung ghi bảng

Hoạt động 1: (43’) Bài tập vận dụng. + GV: Hướng dẫn HS làm số

bài tập vận dụng sau:

1 Sửa lỗi đơn giản trong chương trình.

+ GV: Đưa yêu cầu toán: Xác định lỗi sai sửa lỗi cho chương trình sau

Program 3_canh Tam_giac Uses Crt;

Var a, b, c:= Integer; BEGIN

Clrscr;

Write(“Nhap ba so a, b, c : ”); Readln(a; b; c);

If <a+b>c> or <b+c>a> or (c+a>b) Then Writeln(‘a, b, c la ba canh cua mot tam giac’); Else Writeln(‘a, b, c khong la ba canh cua mot tam giac’);

Readln END

2 Xác định tốn, mơ tả thuật tốn.

Viết chương trình nhập hai số nguyên a b khác từ bàn

+ HS: Vận dụng kiến thức học vào làm bài:

+ HS: Chương trình sau sửa là:

Program Ba_canh_Tam_giac; Uses Crt;

Var a, b, c: Real; BEGIN

Clrscr;

Write(‘Nhap ba so a, b, c : ’); Readln(a, b, c);

If (a+b>c) and (b+c>a) and (c+a>b) Then Writeln(‘a, b, c la ba canh cua mot tam giac’) Else Writeln(‘a, b, c khong la ba canh cua mot tam giac’);

Readln END

+ HS: Xác định tốn sau tính diện tích hình trịn sau: Input: a, b

Output: Sắp sếp tăng dần.

I Bài tập vận dụng.

1 Sửa lỗi đơn giản trong chương trình.

Program

Ba_canh_Tam_giac; Uses Crt;

Var a, b, c: Real; BEGIN

Clrscr;

Write(‘Nhap ba so a, b, c : ’); Readln(a, b, c);

If (a+b>c) and (b+c>a) and (c+a>b) Then Writeln(‘a, b, c la ba canh cua mot tam giac’) Else Writeln(‘a, b, c khong la ba canh cua mot tam giac’);

Readln END

2 Xác định tốn, mơ tả thuật toán.

* Xác định toán: Input: a, b

Output: Sắp sếp tăng dần. * Mô tả thuật toán:

Ngày soạn: Ngày dạy: Tuần: 14

(2)

phím in hình hai số theo thứ tự khơng giảm dần

+ GV: Hướng dẫn HS thực viết thuật tốn

3 Viết chương trình với ngơn ngữ lập trình Pascal.

Program Sap_xep; Uses Crt;

Var A, B, T : Integer; BEGIN

Clrscr;

Write(‘Nhap A: ’); Readln(A); Write(‘Nhap B: ’); Readln(B); If A <= B Then Write(A,‘ ’,B); If B < A Then Write(B,‘ ’,A); Readln

END

+ GV: Chỉnh sửa sai sót cho HS q trình em thực + GV: Hướng dẫn HS thực thao tác viết chương trình + GV: Quan sát yêu cầu HS tự thực theo cá nhân

+ GV: Lấy thực thiếu sót trình chiếu u cầu bạn khác nhận xét bổ sung

+ GV: Nhận xét sửa lỗi sai mà HS thường gặp

+ GV: Yêu cầu số HS lên thao tác lại nội dung chỉnh sửa + GV: Trình chiếu hoàn chỉnh HS nhận xét

Bước 1: Nhập hai số nguyên a, b từ bàn phím

Bước 2: Nếu a ≤ b hiển thị hình giá trị biến a trước đến giá trị biến b

Bước 3: Nếu b < a hiển thị hình giá trị biến b trước đến giá trị biến a

Bước 4: Kết thúc.

+ HS: Thực theo hướng dẫn gợi mở GV

+ HS: Dựa thuật tốn mơ tả viết đoạn chương trình sau:

Program Sap_xep; Uses Crt;

Var A, B, T : Integer; BEGIN

Clrscr;

Write(‘Nhap A: ’); Readln(A); Write(‘Nhap B: ’); Readln(B); If A <= B Then Write(A,‘ ’,B); If B < A Then Write(B,‘ ’,A); Readln

END

+ HS: Thực hướng dẫn gợi mở GV đưa

+ HS: Quan sát GV thực thao tác

+ HS: Thực thao tác theo cá nhân

+ HS: Quan sát nhận xét góp ý bổ sung sai sót bạn

+ HS: Chú ý lắng nghe sửa chữa sai sót thường gặp + HS: Một số HS lên bảng thao tác lại nội dung chỉnh sửa + HS: Quan sát học tập làm tốt

Bước 1: Nhập hai số nguyên a, b từ bàn phím Bước 2: Nếu a ≤ b hiển thị hình giá trị biến a trước đến giá trị biến b

Bước 3: Nếu b < a hiển thị hình giá trị biến b trước đến giá trị biến a

Bước 4: Kết thúc

3 Viết chương trình với ngơn ngữ lập trình Pascal. Program Sap_xep;

Uses Crt;

Var A, B, T : Integer; BEGIN

Clrscr;

Write(‘Nhap A: ’); Readln(A);

Write(‘Nhap B: ’); Readln(B);

If A <= B Then Write(A,‘ ’,B);

If B < A Then Write(B,‘ ’,A);

Readln END

4 Củng cố:

- Củng cố nội dung tiết tập 5 Dặn dò: (1’)

- Xem lại nội dung Chuẩn bị cho thực hành IV RÚT KINH NGHIỆM :

Ngày đăng: 30/12/2020, 08:54

Xem thêm:

HÌNH ẢNH LIÊN QUAN

Hoạt động của GV Hoạt động của HS Nội dung ghi bảng - Tải Giáo án Tin học 8: Bài tập (bài 6) - Giáo án điện tử Tin học lớp 8
o ạt động của GV Hoạt động của HS Nội dung ghi bảng (Trang 1)

TỪ KHÓA LIÊN QUAN

TÀI LIỆU CÙNG NGƯỜI DÙNG

TÀI LIỆU LIÊN QUAN

w