Đang tải... (xem toàn văn)
(Tài liệu bồi dưỡng học sinh giỏi môn tin học dành cho học sinh THCS)
[...]... ');readln(n); writeln('Chu so hang trm: ',n div 100) ; n:=n mov 100; writeln('Chu so hang chuc: ',n div 10); n:=n div 10; writeln('Chu so hang tram: ',n); Trang 13 100 bài tập Turbo Pascal end readln CHƯƠNG II CÂU LỆNH CÓ CẤU TRÚC RẼ NHÁNH A LÝ THUYẾT I CÂU LỆNH RẼ NHÁNH 1.1 Lệnh IF Cú pháp: (1) IF B THEN S; (2) IF B THEN S1 ELSE S2; Sơ đồ thực hiện: Trang 14 100 bài tập Turbo Pascal (1) + B S (2) - + B S1 S2 ... cuối) Giá trị của biểu thức và giá trị của tập hằng i (i=1¸n) phải có cùng kiểu Khi gặp lệnh CASE, chương trình sẽ kiểm tra: - Nếu giá trị của biểu thức B nằm trong tập hằng const i thì máy sẽ thực hiện lệnh S i tương ứng - Ngược lại: + Đối với dạng 1: Không làm gì cả + Đối với dạng 2: thực hiện lệnh Sn+1 B BÀI TẬP: Trang 15 100 bài tập Turbo Pascal Bài tập 2.1: Viết chương trình in ra số lớn hơn... vòng lặp lồng nhau Bài tập 3.7 In bảng cửu chương n (Với n nhập từ bàn phím) a.Hướng dẫn : b Mã chương trình: Program Cuu_Chuong_1; uses crt; var n, i : integer; begin clrscr; write('Nhap n: '); readln(n); for i:= 1 to 9 do writeln(n,' x ', i, ' = ', n*i); readln end Bài tập 3 .8 Lần lượt in các bảng cửu chương a.Hướng dẫn : - Cho biến i chạy từ 2 đến 9 Trang 28 100 bài tập Turbo Pascal - In bảng cửu... Readln; Readln End Bài tập 2.9: Viết chương trình dịch các ngày trong tuần sang tiếng anh 2 3 4 5 6 7 8 Monday Tuesday Wednesday Thursday Friday Saturday Sunday a b Hướng dẫn: Dùng biến a kiểu byte để chứa thứ (2 đến 8) Trường hợp a = 2: Monday Trường hợp a = 3: Thursday Trường hợp a = 8: Sunday Ngoài ra không còn thứ nào Mã chương trình: Program dich; uses crt; Trang 21 100 bài tập Turbo Pascal Var thu:byte;... thì tiếp tục thực hiện công việc S Trước While cần có các lệnh để B được xác định • Yêu cầu quan trọng: Trong S phải có một lệnh làm thay đổi dữ liệu liên quan đến điều kiện B B BÀI TẬP Bài tập 4.1: Trang 30 100 bài tập Turbo Pascal Viết chương trình in ra các số lẻ nhỏ hơn hoặc bằng số nguyên dương n ( Với n được nhập) Yêu cầu nhập lại nếu n 123doc.vn
