Ôn tập môn Tin học Lớp 8 - Bài: Ôn tập kiến thức pascal cơ bản
Bạn đang xem tài liệu "Ôn tập môn Tin học Lớp 8 - Bài: Ôn tập kiến thức pascal cơ bản", để tải tài liệu gốc về máy hãy click vào nút Download ở trên.
Tóm tắt nội dung tài liệu: Ôn tập môn Tin học Lớp 8 - Bài: Ôn tập kiến thức pascal cơ bản
![Ôn tập môn Tin học Lớp 8 - Bài: Ôn tập kiến thức pascal cơ bản Ôn tập môn Tin học Lớp 8 - Bài: Ôn tập kiến thức pascal cơ bản](https://s1.tailieugiaoduc.org/pr8k0wba4i3z1pa2/thumb/2023/12/01/on-tap-mon-tin-hoc-lop-8-bai-on-tap-kien-thuc-pascal-co-ban_nvNc81I9Bp.jpg)
Writeln (‘Dien tich hinh chu nhat la: ’, DT); Readln; End. Câu 4: Nhập vào bán kính của hình tròn. In ra màn hình diện tích và chu vi của nó? Program hinh_tron; Uses crt; Var R, CV, DT: Real Const pi=3.14; Begin Clrscr; Write (‘Hay nhap ban kinh: ’); Readln (R); CV:= 2*R*pi; DT:= R*R*pi; Writeln (‘Chu vi la: ’, CV:8:2); Writeln (‘Dien tich la: ’, DT:8:2); Readln; End. Câu 5: Viết chương trình nhập ba số a,b,c từ bàn phím. Hiển thị kết quả ra màn hình giá trị lớn nhất của ba số đó? Program so_lon_nhat; Uses Crt; Var a,b,c :Integer; Begin Clrscr; Writeln (‘Hay nhap so a: ’); Readln (a); Writenln (‘Hay nhap so b: ’); Readln (b); Writeln (‘Hay nhap so c: ’); Readln (c); If a>b and a>c then writeln (‘ a la so lon nhat’); If b>a and b>c then writeln (‘b la so lon nhat’); If c>a and c>b then writeln (‘c la so lon nhat’); Readln; End. Câu 9: Viết chương trình tính tổng sau, biết n nhập từ bàn phím: S= 1+1/2+1/3++1/n? Program Tinh_S; Uses crt; Var S,i,N: Real; Begin Clrscr; Write (‘Hay nhap N: ’); Readln (N); S:=0 For i:=1 to N do S:= S+1/i; Writeln (‘Tong la ’, S); Readln; End. Câu 10: Viết chương trình tính tổng sau, biết rằng n nhập từ bàn phím: S= 1/2+2/3+3/4+..+n/n+1 Program Tinh_tong_S; Uses crt; Var S,i,N: Real; Begin Clrscr; Write (‘Hay nhap N: ’); Readln (N); S:=0 For i:=1 to N do S:= S+ i/(i+1); Writeln (‘Tong S la: ’, S:8:2); Readln; End. Câu 11: Viết chương trình nhập vào hai số nguyên dương a và b. Máy hỏi tổng hai số là bao nhiêu? Nếu ta nhập đúng thì máy thông báo “Chúc mừng! Bạn đã tính đúng!” Nếu ta nhập sai thì máy thông báo “Rất tiếc! Bạn đã tính sai” và máy hiện kết quả đúng ra màn hình? Program tong_hai_so; Uses crt; Var a,b,tong :Integer; Begin Clrscr; Write (‘Hay nhap so thu nhat: ’); 7. Kết quả in ra của đoạn lệnh sau khi thực hiện là: For i:=1 to 10 do If i mod 2=1 then Write (‘i=’,i, ’ ’); a) i=1 2 3 4 5 6 7 8 9 10 b) i=0 2 4 6 8 10 c) i=0 1 3 5 7 9 d) i=1 3 5 7 9 8. Đoạn lệnh sau đúng, sai như thế nào? While n<=0 do; Write(‘Nhap lai n:’); Readn (n); a) Đúng b) Sai, sau do không có ; c) Sai, thiếu Begin end. d) Câu b và c đúng *** Lưu ý: 1. Các em đọc lai và hiểu cho rõ Câu lệnh điều kiện IF, câu lệnh lặp For..to..do thông qua các bài tập, tự sửa lỗi cho bài tập (nếu có). 2. Có thể tự tìm hiểu vòng lặp While ..do, khi nào gặp lại Cô sẽ giảng thêm.
File đính kèm:
on_tap_mon_tin_hoc_lop_8_bai_on_tap_kien_thuc_pascal_co_ban.docx