Ôn tập môn Tin học Lớp 8 - Bài: Ôn tập kiến thức pascal cơ bản

 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.