BaiTap chuong 3

Slide 1 • ftrill Xin kÝnh chµo quý thÇy c« ®Õn dù giê m«n Tin Cú pháp câu lệnh IF THEN dạng thiếu và dạng đủ ? ý nghĩa câu lệnh ? Dạng thiếu If then Ý nghĩa Nếu điều kiện đúng[.]

• ftrill

Xin kính chào quý thầy cô đến dự giờ

môn Tin

Cú pháp câu lệnh IF-THEN dạng thiếu và dạng

đủ ? ý nghĩa câu lệnh ?

Dạng thiếu: If <điều kiện> then <câu lệnh >

Ý nghĩa : Nếu điều kiện đúng thì câu lệnh được thực hiện, nếu điều kiện sai thì câu

lệnh bị bỏ qua

Dạng đủ:If <điều kiện> then <câu lệnh 1>

else <câu lệnh 2>;

Ý nghĩa : Nếu điều kiện đúng thì thực hiện câu lệnh 1,nếu điều kiện sai thì thực hiện câu lệnh 2

Ví dụ 2 :

Nếu a > 0 thì in a là số dương ngược lại in a là số âm

IF a > 0 THEN Write ( ‘a la so duong’ )

Ví dụ 1 :

Nếu a > 0 thì in a là số dương

IF a > 0 THEN Write ( ‘a la so duong’ ) ;

Write ( ‘a la so am’ ) ;

ELSE

I MỤC TIÊU KIẾN THỨC

- Củng cố cho học sinh kiến thức về cấu trúc rẽ

nhánh.

-Rèn luyện kỹ năng vận dụng và linh hoạt trong

việc lựa chọn cấu trúc rẽ nhánh

II CHUẨN BỊ

•Máy chiếu, máy tính,phòng thực hành, sách bài tập

và các kiến thức liên quan

III THÁI ĐỘ

- Thái độ học tập nghiêm túc , tích cực và chủ động hoàn thành nhiệm vụ

- Thái độ: Ham muốn học một ngôn ngữ lập trình cụ thể để

có khả năng giải các bài toán bằng máy tính điện tử

Câu 1: Hãy viết câu lệnh rẽ nhánh sau:

a) Nếu a chia hết cho 2 thì in ra màn

hình ‘a la so chan’,

 If a mod 2=0 then writeln(‘a la so chan’);

a = 6

a là số chẵn

Đú ng

Sai

a = 15

b) Nếu DTB lớn hơn hoặc bằng 5 thì in ‘ban

duoc len lop’, ngược lại, in ‘ban thi lai

hoac o lai’

b) Nếu DTB lớn hơn hoặc bằng 5 thì in

‘ban duoc len lop’, ngược lại, in ‘ban thi lai hoac o lai’

If DTB>=5 then writeln(‘ban duoc len lop’)

else writeln(‘ban thi lai hoac o lai’);

DTB = 6

ban duoc len lop Đú ng Sai ban thi lại

hoac o lai

DTB = 3.5

c) Nếu a>b thi in giá trị a, ngược lai in giá

trị b

If a>b then writeln(a) else writeln(b);

d) Đọc số nguyên a kiểm tra a là số chẵn hay

số lẻ

If a mod 2 = 0 then writeln(‘ a la so chan’)

else writeln( ‘a la so le’);

Câu 2: Các câu lệnh Pascal sau đây được viết đúng hay sai?(nếu sai sửa lại cho đúng)

a If x:= 7 then a = b then a = b;

b If

b If x > 5; x > 5; then a := b then a := b;

d If

d If x > 5 x > 5 then a := b then a := b ; else m:= n; else m:= n;

If x = 7 then a := b then a := b;

If If x > 5 x > 5 then a := b then a := b;

If If x > 5 x > 5 then a := b then a := b else m:= n else m:= n ;

vì dư dấu hai chấm ở điều kiện và thiếu hai chấm ở dấu bằng của câu lệnh

vì dư dấu chấm phẩy đầu tiên

Sai

vì trước ELSE không dùng dấu ;

Sai

Sai

Sai

c IF a> b THEN begin a:=a+1; b:=b-1; end

If If a> b a> b then begin a:=a+1; b:=b-1; end;

vì câu lệnh ghép vì câu lệnh ghép begin …end; begin …end;

Câu 3: Cho a:=3; b:=2 Câu lệnh

IF a > b Then x:=a - b Else y:=b – a;

Sau khi thực hiện đoạn chương trình kq là:

A x= -1 B y= -1 C x = 1 D y= 1

var a, b: integer;

BEGIN

a:=100; write(‘b=’); readln(b);

if b=a then writeln(‘Xin chuc mung !’);

END.

Nhập giá trị bao nhiêu cho b để khi chạy chương trình

nhận được kết quả ‘Xin chức mừng !’?

A 50; B 75; C 100; D 125;

2 Khai báo thư viện

3 Khai báo 2 biến a,b có KDL nguyên

4 BEGIN

5 In ‘nhap gia tri a=‘

6 Nhập (a)

10 Readln;

11 END.

9 Nếu a>b Thì Writeln( a )

ngược lại writeln(b);

Hãy hoàn thiện chương trình

Nếu a>b thi in giá trị a, ngược lai in giá trị b theo dàn ý sau:

1 Khai báo tên chương trình

7 In ‘nhap gia tri b=‘

8 Nhập (b)

Câu 5:

Sửa lỗi và hoàn thiện chương trình sau:

1.Program bai-1;

2.Ues crt;

3.Var m, n := word;

4.Bigin

5 n : 2;

6 m = 16;

7 Nếu m chia hết cho n thì

8 in ('m la so chan');

9 ngược lại

10 in ('m la so le')

11.Read

2.Uses crt;

4.Begin

8 writeln('m la so chan')

10 writeln('m la so le');

11.Readln

Câu 6:

Bài tập về nhà:

Program GPTB2;

Uses crt;

Var ; BEGIN

Nhập vào 3 hệ số a,b,c Delta := .;

Readln;

Nếu Delta<0 Thì Writeln(‘PTVN’) Ngược lại tính nghiệm;

Ví dụ 1: