Câu lệnh rẽ nhánh IF … THEN… ELSE Bài 4.1: (1) Cú pháp của câu lệnh IF dạng đầy đủ là: A. IF THEN B. IF THEN ELSE C. IF THEN ELSE D. IF THEN (2) Chọn câu lệnh rẽ nhánh IF dạng đầy đủ đúng: A. IF N := 5 TO N := N+1 ELSE N := N1; B. IF N= 5 THEN N := N+1 ELSE N := N1; C. IF N = 5 THEN N+1 ELSE N1; D. IF N= 5 THEN N := N+1 ; (3) Xét A,B,C có phải là số đo ba cạnh tam giác hay không. Chọn câu lệnh IF đúng: A. IF (A+B>C) OR (A+C>B) OR (B+C>A) THEN Write(`A,B,C la 3 canh tam giac`) B. IF (A>B) AND (B>C) AND (C>A) THEN Write(`A,B,C la 3 canh tam giac`) C. IF (A+B>C) AND (A+C>B) AND (B+C>A) THEN Write(`A,B,C la 3 canh tam giac`) D. IF (A+B>C) AND (A+C>B) THEN Write(`A,B,C la 3 canh tam giac`) (4) Chọn câu lệnh IF đúng: A. IF X:= A+B THEN X := SQRT(AA + BB) ELSE X:= 1; B. WHILE (A>B) DO X := AAA BBB C. FOR I:= 1 TO 100 DO S:= S + I; D. IF (A >0) and (A 0 THEN A := A+ 5 ELSE A:= A 5; T: = T + M; IF A < 10 THEN M : = M + K ELSE K := K + M; (1) Giá trị của A khi thực hiện xong đoạn chương trình này là: A. 10 B. 5 C. 20 D. 15 (2) Giá trị của M khi thực hiện xong đoạn chương trình này là: A. 10 B. 15 C. 20 D. 5 (3) Giá trị của K khi thực hiện xong đoạn chương trình này là: A. 10 B. 15 C. 20 D. 5 (4) Giá trị của T khi thực hiện xong đoạn chương trình này là: A. 10 B. 15 C. 20 D. 25 (5) Bao nhiêu lệnh gán được thực hiện trong đoạn chương trình này? A. 1 B. 2 C. 3 D. 4 Bài 4.3: Khai báo VAR A,B,C,D, Max: Byte; Cho biết giá trị biến Max in ra trong đoạn chương trình sau: Max := A; IF B >MAX THEN Max := B; IF C > MAX THEN Max : = C ELSE Max := D; WRITELN(Max); (1) Giá trị nhập vào cho A = 10; B =1 5; C = 20 và D = 25. A. 10 B. 15 C. 20 D. 25 (2) Giá trị nhập vào cho A = 25; B =1 0; C = 20 và D = 15. A. 10 B. 15 C. 20 D. 25 (3) Giá trị nhập vào cho A = 15; B =25; C = 25 và D = 10. A. 10 B. 15 C. 20 D. 25 (4) Giá trị nhập vào cho A = 20; B =1 5; C = 20 và D = 25. A. 10 B. 15 C. 20 D. 25 (5) Giá
4 Câu lệnh rẽ nhánh IF … THEN… ELSE Bài 4.1: (1) Cú pháp câu lệnh IF dạng đầy đủ là: A IF THEN B IF THEN ELSE C IF THEN ELSE D IF THEN (2) Chọn câu lệnh rẽ nhánh IF dạng đầy đủ đúng: A IF N := TO N := N+1 ELSE N := N-1; B IF N= THEN N := N+1 ELSE N := N-1; C IF N = THEN N+1 ELSE N-1; D IF N= THEN N := N+1 ; (3) Xét A,B,C có phải là số đo ba cạnh tam giác hay không Chọn câu lệnh IF đúng: A IF (A+B>C) OR (A+C>B) OR (B+C>A) THEN Write('A,B,C la canh tam giac') B IF (A>B) AND (B>C) AND (C>A) THEN Write('A,B,C la canh tam giac') C IF (A+B>C) AND (A+C>B) AND (B+C>A) THEN Write('A,B,C la canh tam giac') D IF (A+B>C) AND (A+C>B) THEN Write('A,B,C la canh tam giac') (4) Chọn câu lệnh IF đúng: A IF X:= A+B THEN X := SQRT(A*A + B*B) ELSE X:= 1; B WHILE (A>B) DO X := A*A*A - B*B*B C FOR I:= TO 100 DO S:= S + I; D IF (A >0) and (A THEN A := A+ ELSE A:= A - 5; T: = T + M; IF A < 10 THEN M : = M + K ELSE K := K + M; Giá trị A thực xong đoạn chương trình là: A 10 B C 20 D 15 Giá trị M thực xong đoạn chương trình là: A 10 B 15 C 20 D Giá trị K thực xong đoạn chương trình là: A 10 B 15 C 20 D Giá trị T thực xong đoạn chương trình là: A 10 B 15 C 20 D 25 Bao nhiêu lệnh gán thực đoạn chương trình này? A B C D Bài 4.3: Khai báo VAR A,B,C,D, Max: Byte; Cho biết giá trị biến Max in đoạn (1) (2) (3) (4) (5) chương trình sau: Max := A; IF B >MAX THEN Max := B; IF C > MAX THEN Max : = C ELSE Max := D; WRITELN(Max); Giá trị nhập vào cho A = 10; B =1 5; C = 20 D = 25 A 10 B 15 C 20 D 25 Giá trị nhập vào cho A = 25; B =1 0; C = 20 D = 15 A 10 B 15 C 20 D 25 Giá trị nhập vào cho A = 15; B =25; C = 25 D = 10 A 10 B 15 C 20 D 25 Giá trị nhập vào cho A = 20; B =1 5; C = 20 D = 25 A 10 B 15 C 20 D 25 Giá trị nhập vào cho A = 20; B =15; C = 25 D = 30 A 30 B 15 C 20 D 25 Bài 4.4: Khai báo VAR A,B,C, Min: Byte; và đoạn chương trình Mini := A; IF B>Mini THEN Mini := B ELSE Mini := C; WRITELN(Mini); Cho biết giá trị biến Mini sau thực đoạn chương trình ứng với mỗi bộ INPUT Inpu t A B C 10 10 MINI Inpu t A B C 12 12 19 12 30 56 56 30 12 9 20 15 5 25 80 25 10 20 10 20 MINI Bài 4.5: Khai báo biến VAR Toan, Van, Tong: Byte; Khoi: CHAR; cho đoạn chương trình IF Khoi='A' IF Khoi='B' THEN Tong := THEN Tong := ELSE Tong := Writeln('Tong =', Tong); Cho biết kết in giá trị TONG trị nhập vào theo bảng sau: Input Toan Van Khối 10 sau thực đoạn chương trình với giá Input Toan Van Khối 'A' 8 'B' 'B' 'C' 'C' 8 'B' 'A' 10 'C' 10 'A' 10 'A' Bài 4.6: Tong Toan * + Van; Toan + Van Toan + Van*2; Tong Khai báo VAR X,Y, F: REAL; và đoạn chương trình IF X> THEN IF Y > THEN F : = X + Y ELSE F := X - Y ELSE IF Y > THEN F : = X + SQRT(Y + 1) ELSE F := X - Y*Y + 2; WRITELN(F); Cho biết giá trị biến Mini sau thực đoạn chương trình ứng với mỗi bộ INPUT Inpu t X Y 10 F Inpu t A B 12 12 10 12 56 56 8 9 20 15 25 80 10 20 10 F Bài 4.7: Khai báo VAR X,Y, F: REAL; và đoạn chương trình IF X MOD Y = THEN Begin R := 1; X := X DIV Y; End ELSE Begin R := X MOD Y; Y := X DIV Y; End; Cho biết giá trị biến X, Y, R sau thực đoạn chương trình ứng với mỗi bộ INPUT Input Output STT X Y 25 X Y Input R Output STT X Y 56 30 27 15 10 12 35 25 80 10 20 10 X Y R Bài 4.8: Viết CT xét phương trình: Ax2 + Bx + C = (A 0) có nghiệm hay không? (Trường hợp nghiệm kép xem là hai nghiệm có cùng giá trị) Hãy sắp xếp các dòng theo thứ tự để được một chương trình đúng Xác định toán: • Input: • Output: Tổ chức liệu: • Hằng: • Biến: Thuật toán: Chương trình: Chương trình bạn Aro viết Chương trình viết lại READLN(A,B,C); WRITE(‘Nhap so A,B,C voi A0:’ ); VAR A,B,C,D,X1,X2: REAL; BEGIN BEGIN Delta := B*B - 4*A*C; X1 := (-B + SQRT(Delta))/2/A; PROGRAM PTB2; IF Delta >= THEN READLN; END; END WRITELN('X1 =' , X1:10:2); WRITELN('X2 =' , X2:10:2); WRITELN('Phuong trinh vo nghiem'); ELSE X2 := (-B - SQRT(Delta))/2/A; Bài 4.9: Viết chương trình giải phương trình: Ax2 + Bx + C = (A 0) Hãy chương trình theo sơ đồ khối giải thuật 1 Xác định toán: • Input: • Output: Tổ chức liệu: • Biến: Thuật toán: Chương trình: Bài 4.10: Viết chương trình giải phương trình: Ax + B = Hãy chương trình theo sơ đồ khối giải thuật 1 Xác định toán: • Input: • Output: Tổ chức liệu: • Biến: Thuật toán: Chương trình: Bài 4.11: (1) Viết câu lệnh IF trường hợp sau, biết X,Y,A,B,C nhập từ bàn phím khai báo VAR X,Y,Z,A,B,C: REAL; Tính X2 + Y2 X2 + Y2 Y >= X 0.5 X2 + Y2 > Y < X Tính (2) Z = |X| + |Y| M(x,y) thuộc hình tròn bán kính R, tâm A(a,b) 0.5 trường hợp lại (3) Xét điểm M(x,y) hệ trục toạ độ Oxy In thông báo điểm M nằm góc vuông Nếu M nằm trục Ox hoăc Oy thông báo thuộc trục (4) Cho số đo cạnh tam giác A,B,C Xét xem tam giác tam giác gì: Tam giác thường, tam giác vuông, tam giác cân hay tam giác Bài 4.12: Kết nối câu lệnh IF khuyết thành câu lệnh IF dạng đầy đủ (1) IF D > THEN WRITELN('PHUONG TRINH CO NGHIEM'); IF D = THEN WRITELN('PHUONG TRINH CO NGHIEM'); IF D < THEN WRITELN('PHUONG TRINH CO NGHIEM'); (2) Z = 0.5 trường hợp lại (3) Xét điểm M(x,y) hệ trục toạ độ Oxy In thông báo điểm M nằm góc vuông Nếu M nằm trục Ox hoăc Oy thông báo thuộc trục (4) Cho số đo cạnh tam giác A,B,C Xét xem tam giác tam giác gì: Tam giác thường, tam giác vuông, tam giác cân hay tam giác Bài 4.13: Viết chương nhập vào ba số a, b, c kiểm tra xem chúng có phải ba cạnh tam giác hay không, phải tính diện tích tam giác xét xem tam giác có phải tam giác cân hay không? Ví dụ: - Nhập vào : a = 3; b= ; c = - In : Dien tich: Khong phai tam giac can Gợi ý: Điều kiện để a,b,c số đo cạnh tam giác a + b > c |a-b|= điểm chuẩn hay không Xác định toán: • Input: • Output: Tổ chức liệu: • Hằng: • Biến: Thuật toán: Chương trình: Bài 4.16: Viết chương trình nhập vào số công tơ điện đầu tháng cuối tháng gia đình sau tính số KWh tiêu thụ tiền phải trả Biết giá tiền 1KWh tính dùng [...]... và tổng điểm Ví dụ: Gợi ý: - Nhập vào - In ra : Toán = 8; Văn= 4 ; Anh=9; Đối tượng=5; Chuẩn= 20 : Trúng tuyển - Tổng điểm: 21.5 Sử dụng 2 lệnh IF … lồng nhau xét điều kiện đối tượng để tính tổng Dùng thêm lệnh IF để xét xem tổng >= điểm chuẩn hay không 1 Xác định bài toán: • Input: • Output: 2 Tổ chức dữ liệu: • Hằng: • Biến: ... Bài 4.16: Viết chương trình nhập vào chỉ số của công tơ điện đầu tháng và cuối tháng của một gia đình sau đó tính số KWh tiêu thụ và tiền phải trả Biết rằng giá tiền 1KWh được tính nếu dùng ... Bài 4.12: Kết nối câu lệnh IF khuyết thành câu lệnh IF dạng đầy đủ (1) IF D > THEN WRITELN('PHUONG TRINH CO NGHIEM'); IF D = THEN WRITELN('PHUONG TRINH CO NGHIEM'); IF D < THEN WRITELN('PHUONG... Bài 4.11: (1) Viết câu lệnh IF trường hợp sau, biết X,Y,A,B,C nhập từ bàn phím khai báo VAR X,Y,Z,A,B,C: REAL;... 10 'A' 10 'A' Bài 4.6: Tong Toan * + Van; Toan + Van Toan + Van*2; Tong Khai báo VAR X,Y, F: REAL; và đoạn chương trình IF X> THEN IF Y > THEN F : = X + Y ELSE F := X - Y ELSE IF Y > THEN F