Giáo án môn Tin học lớp 11 bài 12

Hoạt động của thầy và trò

Nội dung

Hoạt động 2: Giới thiệu một số ví dụ (25 phút)

GV trình chiếu hai chương trình này và cho các em quan sát cách viết chương trình để các em hình thành dần cách viết một chương trình.

- Chạy thử chương trình và chỉ rõ các lệnh trong chương trình dùng để làm gì.

Hoạt động 3: Trình chiếu chương trình cho học sinh nhận xét về cách viết chương trình. Cách sử dụng câu lệnh if .. then lồng nhau.

Chạy chương trình cho HS quan sát

3. Một số ví dụ

Ví dụ 1:

Tìm nghiệm thực của phương trình bậc hai

AX² + BX + C= 0

Ví dụ 2:

Tìm số ngày của một năm: Năm nhuận là năm chia hết cho 400 hoặc chia hết cho 4 nhưng không chia hết cho 100.

program so_ngay;

uses crt;

var n,sn: integer;

begin

clrscr;

Write ('nhap nam:'); readln(n);

if (n mod 400=0) or ((n mod 4 =0) and (n mod 100<>0)) then sn:=366

else

sn:=365;

Write ('So ngay nam',n,'la:',sn);

readln;

end.

Ví dụ 2

Program long_if;

Uses crt;

Var t,v,a,dtb:real;

Ketqua,xeploai:string;

Begin

Clrscr;

Write(‘nhap diem 3 mon:’);

Readln(t,v,a);

Dtb:=(t+v+a)/3;

If dtb>=5 then

Begin

Ketqua:=’dau’;

If dtb>=8 then xeploai:=’gioi’ else

If dtb>=6.5 then xeploai:=’kha’

else

If dtb>=5 then xeploai:=’tbinh’ else

xeploai:=’yeu’;

end

else

Begin

Ketqua:=’rot’;

Xeploai:=’kem’;

End;

Writeln(‘ ket qua ban la:’, ketqua);

Writeln(‘ xep loai ban la:’, xeploai);

Readln;

End.