Tài liệu hạn chế xem trước, để xem đầy đủ mời bạn chọn Tải xuống
1
/ 11 trang
THÔNG TIN TÀI LIỆU
Thông tin cơ bản
Định dạng
Số trang
11
Dung lượng
53,47 KB
Nội dung
YÊU CẦU: Hiểu câu lệnh (Thầy đáp để kiểm tra), không chép người khác Viết chương trình tính diện tích hình chữ nhật với số đo chiều dài chiều rộng nhập vào từ bàn phím Bạn Mika viết chương trình sau Em giải thích dịng lệnh chương trình Xác định tốn: Input: chiều dài (a); chiều rộng (b) Output: diện tích (s) Tổ chức liệu: Hằng: Khơng có Biến: a,b,s :real; Thuật toán: Bước 1: Nhập a, b Bước 2: Tính S=a x b Bước 3: Xuất S Chương trình: Chương trình bạn Mika viết Giải thích PROGRAM HINHCHUNHAT; Khai báo tên chương trình HINHCHUNHAT VAR Khai báo biến, thừa biến C A , B , C , S : REAL; BEGIN Bắt đầu phần thân WRITE(‘NHAP CHIEU DAI: ’ ); Thơng báo hình câu NHAPCHIEUDAI READLN(A); Nhập giá trị cho biến A WRITE(‘NHAP CHIEU RONG: ’ ); Thơng báo hình câu … READLN(B); Nhập giá trị cho biến b C:=(A + B)*2; Tính chu vi đề khơng u cầu S := A * B; Tính diện tích WRITELN(‘CHU VI = ’ , C:8:2); Thừa so với yêu cầu WRITELN(‘DIEN TICH= ’, S:8:2); Thơng báo hình diện tích READLN; Dừng hình END Kết thúc chương trình 3.2 Viết chương trình tính thể tích hình nón cụt với số đo bán kính đáy đường cao nhập vào từ bàn phím Bạn Aro viết chương trình sau Em xếp lại câu lệnh cho chương trình Xác định tố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 READLN(DB); WRITE(‘Nhập BK bé:’ ); VAR DL,DB,CC,TT: REAL; PROGRAM NON; BEGIN TT:=SQR((DL + DB)/2)*PI*CC; Chương trình viết lại READLN(DL); WRITE(‘Nhập BK lớn: ’ ); CLRSCR; READLN(CC); WRITELN(‘THE TICH = ’ , TT:10:3); CONST PI = 3.14E+00; END READLN; USES CRT; WRITE(‘Nhập chiếu cao: ’ ); Bài 3.3: Viết chương trình tính bán kính đáy hình trụ với số đo chiều cao thể tích nhập vào từ bàn phím Bạn Aro viết chương trình sau Em xếp lại câu lệnh cho chương trình 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 VAR BK,TT,CC: REAL; BEGIN BK := SQRT(TT/(P*CC)); WRITE(‘Nhap chieu cao: ’ ); READLN(CC); USES CRT; READLN(TT); WRITE(‘Nhap The tich: ’ ); WRITELN(‘Ban kinh day = ’ , BK:0:2); END CONST PI= 3.1416; READLN; PROGRAM TRUTRON; CLRSCR; Bài 3.4: Viết chương trình tính diện tích tồn phần hình trụ với số đo chiều cao bán kính đáy nhập vào từ bàn phím Xác định tốn: Input: Output: Tổ chức liệu: Hằng: Biến: Thuật toán: Chương trình: Bài 3.5: Viết chương trỉnh tính chu kỳ dao động điều hồ lắc đơn, biết chiều dài lắc l (mét) g = 9.8 (m/s/s) chu kỳ 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 3.6: Viết chương trình tính thể tích V, diện tích xung quanh Sxq diện tích tồn phần Stp hình khối chữ nhật với độ dài cạnh nhập từ bàn phím Xác định tốn: Input: Output: Tổ chức liệu: Hằng: Biến: Thuật toán: Chương trình: Bài 3.7: Tính diện tích tam giác ABC biết chiều dài cạnh ứng với a,b,c Sử dụng công thức Heron: S = ; p= (a + b + c)/2 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 3.8: Quy định Ban nếp: Mỗi học sinh không đeo huy hiệu Đồn bị trừ điểm; khơng muộn 10 điểm; trốn thể dục trừ 15 điểm Kiểm tra lớp 10C có K bạn mang huy hiệu Đồn; M bạn muộn N bạn không trốn thể dục Hỏi tuần lớp 10C bị trừ điểm 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 3.9: Chuẩn bị cho liên hoan lớp, bạn nữ mua X cân táo, Y cân nho, Z cân quýt Biết giá mỗi cân quýt D đồng; táo có giá gấp quýt, nho có giá gấp 3.5 giá quýt Hỏi bạn nữ phải trả tiền 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 3.10: Trong mặt phẳng toạ độ Oxy, cho điểm A(x1,y1) B (x2,y2) Tính khoảng cách điểm A B, khoảng cách từ tâm O đến A khoảng cách từ tâm O đến B d= Xác định toán: Input: Output: Tổ chức liệu: Hằng: Biến: Thuật toán: Chương trình: