Trường THPT Ngã Năm LẬP TRÌNH PASCAL TINHỌC11ÔNTẬP THI HỌCKÌ I CẤU TRÚC CHƯƠNG TRÌNH Program *; Uses crt; Const *=*; Var *:*; Begin Clrscr; Nhập gì? (2) Khởi tạo gì? (4) Xử lý gì? (1) Xuất gì? (3) Readln End I) BÀI TẬP Bài tập 1: Viết chương trình nhập bán kính r từ bàn phím Tính đưa hình chu vi diện tích hình tròn Bài tập 2: Viết chương trình tính chu vi diện tích tam giác theo công thức heron Bài tập 3: Viết chương trình nhập số giấy từ bàn phím Thực việc chuyển đổi để đưa hình giờ, phút, giây Bài tập 4: Viết chương trình nhập số nguyên dương a, b Tìm max hai số nguyên dương (dùng câu lệnh if_then dạng thiếu, if_then_else dạng đầy đủ) GVGD: Nguyễn Triều Thảo Trường THPT Ngã Năm Bài tập 5: Viết chương trình tính tổng s = + + + 100 (Dùng câu lệnh for_do) 5.1 Thực việc tính tổng số lẽ 5.2 Thực việc tính tổng số chẵn 5.3 Thực việc tính tổng từ N đến M (N0 biến nguyên Ðể tính S = N!, chọn câu nào? Câu 3: Cho S =1^2 + 2^2 + + 100^2 Nhóm lệnh tính sai Giá trị S? Câu 4: Khi chạy chương trình: Var S, i, j : Integer; Begin S := 0; for i:= to for j:= to S := S + ; End Giá trị sau S là? Câu 5: Cho S i biến kiểu nguyên Khi chạy đoạn chương trình: S:= 0; i:= 1; CHỌN ĐÁP ÁN ĐÚNG Kết in lên hình : A/ s = 11 B/ s = 55 C/ s = 100 D/ s = 101 A/ S:= 1; For i := to N S := S * i; B/ S:= 0; For i := to N S := S * i; C/ S:= 1; For i := to N S := S * N; D/ S:= 1; For i:= to N S := S + i; A/ S:=0; FOR i:=1 TO 100 DO S := S + i*i; B/ S:=0; FOR i:=1 TO 100 DO S := S + SQR(i); C/ S:=0; FOR i:=100 DOWNTO DO S := S + i*i; D/ S:=1; FOR i:=1 TO 100 DO S := S + i*i; A/ B/ 12 C/ D/ A/ B/ C/ 11 D/ GVGD: Nguyễn Triều Thảo Trường THPT Ngã Năm while i