Mình sửa trực tiếp và bôi đen chỗ thêm hoặc sửa lại nha bạn! 
program dientich;
use crt;
const Pi = 3.1416;
var cv, dientich: integer;
r: real;
begin
clrscr; ( lệnh này bạn muốn thêm cũng được mà ko thì cx đc nha! Tại vì cái này dùng để xóa màn hình nhìn đẹp hơn thôi ak ^^ )
r:=5.5;
cv:= 2*r *pi;
dt :=pi*r*r ;
writeln ('chu vi la',cv);
writeln ('dien tich la',dt);
readln
end.
Tìm lỗi sai trong các câu lệnh sau và chữa lại cho đúng ( viết lại chương trình đúng )
Var cv, dt : integer
r : real;
Const pi = 3.14;
Begin
r = 5.5;
dt := pi*r*r;
writeln(‘Dien tich hinh tron la:,dt:8:2’);
readln
End.
Const pi:= 3.14;
Var cv:integer
R:real;
Begin
R:=5.5;
Cv=2*pi*r;
Writeln('chu vi la:=cv');
Readln
End.
Cho chương trình sauProgram KTGKI;Uses crt;Var dt, bankinh: read;Const pi=3,14;BeginClrscr;bankinh:=4,5; dt:=bankinh*bankinh*pi;Writeln(‘ Dien tich hinh tron ban kinh 4,5 la:’,dt:4:1);
Readln;End.a)(1.0 đ) Phần khai báo biến người lập trình đã sai về khai báogì ?Em sửa lại cho đúng.b)(2.0đ) Chỉ ra tên do người lập trình đặt ra trong chương trình trên
Cho chương trình sauProgram KTGKI;Uses crt;Var dt, bankinh: read;Const pi=3,14;BeginClrscr;bankinh:=4,5; dt:=bankinh*bankinh*pi;Writeln(‘ Dien tich hinh tron ban kinh 4,5 la:’,dt:4:1);
Readln;End.a)(1.0 đ) Phần khai báo biến người lập trình đã sai về khai báogì ?Em sửa lại cho đúng.b)(2.0đ) Chỉ ra tên do người lập trình đặt ra trong chương trình trên
Hãy liệt kê các lỗi có thể có trong chương trình dưới đâyy và sửa lại cho đúng Progtam Thi_HK1 Var a= integer b=real Const c = 5 Begin a=100 b=a/c Write(b) Readln End
hãy liệt kê các lỗi có trong chương trình dưới đây và sửa lại cho đúng:
Var a,b :=integer;
Const c :=3;
Begin
a :=200
b :=a/c;
write(b);
readln
end
Có một số câu lệnh trong chương trình sau viết không đúng, em hãy sửa lại cho đúng:
Program Soam Soduong;
uses crt
var A, B: integer;
Begin
clrscr;
writeln(Nhap so A: );
readln(A);
if A > 0 then writeln(A,’ la so duong ‘);
else writeln(A,‘ la so am ’);
readln;
End.
Tìm lỗi cho đoạn chương trình sau trong Pascal:
program tim_loi_cau_16;
var R,C,S: interger;
const pi=3.14;
begin
R := 5; C := 2*pi*R; S := pi*R*R;
writeln(‘Chu vi hinh tron la:’, C:6:2);
writeln(‘Dien tich hinh tron la:’, S:6:2);
readln;
end.
R := 5; C := 2*pi*R; S := pi*R*R;
readln;
var R,C,S: interger;
const pi=3.14;
18.Khẳng định nào sau đây là đúng nhất?
biến và hằng dùng để lưu trữ dữ liệu
hằng dùng để lưu trữ dữ liệu, dữ liệu được lưu trữ có thể thay đổi trong khi chạy chương trình.
hằng dùng để lưu trữ dữ liệu, dữ liệu luôn luôn cố định và không thay đổi trong suốt chương trình.
19.Xác định Input, Output của bài toán sau:
Một người đạp xe trên hai quãng đường, quãng đường một dài 300m hết 1 phút; quãng đường hai dài 3,6km hết 0,5 giờ. Tính vận tốc trung bình của người đó trên hai quãng đường.
Input: Quãng đường và thời gian một người đạp xe trên 2 quãng đường
Output: Vận tốc của người đạp xe trên từng quãng đường
Input: Quãng đường và thời gian một người đạp xe trên 2 quãng đường. Output: Vận tốc của người đạp xe trên từng quãng đường
Input: Quãng đường và thời gian một người đạp xe trên 2 quãng đường. Output: Vận tốc trung bình của người đạp xe trên hai quãng đường
20.Cho đoạn chương trình dưới đây. Hãy sắp xếp lại các câu lệnh theo đúng thứ tự để được chương trình hoàn chỉnh.
1
var a, b, hieu: integer;
2
hieu:= a*a-b*b;
3
writeln('Hieu 2 binh phuong la: ', hieu);
4
write('Nhap b: '); readln(b);
5
begin
6
write('Nhap a: '); readln(a);
7
end.
21.Sắp xếp các bước giải bài toán trên máy tính theo đúng thứ tự.
Xác định bài toán
Mô tả thuật toán
Viết chương trình
22.Xác định Input, Output của bài toán sau:
Xác định công thức hóa học và tính phân tử khối của Axit photphoric có phân tử gồm 3H, 1P, 4O liên kết với nhau
Input: Axit photphoric có phân tử gồm 3H, 1P, 4O liên kết với nhau. Output: Xác định công thức hóa học của Axit photphoric
Input: Axit photphoric có phân tử gồm 3H, 1P, 4O liên kết với nhau. Output: Xác định công thức hóa học và tính phân tử khối của Axit photphoric
Input: Axit photphoric có phân tử gồm 3H, 1P, 4O liên kết với nhau
Output: Xác định công thức hóa học và tính phân tử khối của Axit photphoric
23.Tính n giai thừa: n!=1.2.3.4.5.6...n
Input: Dãy n số. Output: Tích của n số
Input: Dãy n số tự nhiên đầu tiên. Output: Tổng của n số tự nhiên đầu tiên
Input: Dãy n số tự nhiên đầu tiên. Output: Tích của n số tự nhiên đầu tiên
24.Đâu là hoạt động phụ thuộc vào điều kiện?
HS phải học trực tuyến vì Covid
Mọi người nên tuân thủ 5K theo qui định của Bộ Y tế
Nếu không có Internet thì GV và HS không thể dạy và học trực tuyến được
HS có thêm những kĩ năng sử dụng máy tính và mạng Internet để học tập hiệu quả
25.Sắp xếp các bước mô tả thuật toán bằng phương pháp liệt kê các bước của bài toán sau:
Viết chương trình in ra màn hình trung bình cộng của 3 số a, b, c (với a, b, c là các số nguyên được nhập từ bàn phím)
Tính TBC <-- (a+b+c)/3
Nhập 3 số nguyên a, b, c từ bàn phím
In ra màn hình TBC
26.Điều kiện trong NNLT Pascal để a, b, c là 3 cạnh của một tam giác và có 1 góc vuông là:
(a*a=b*b+c*c) and (b*b = a*a+c*c) and (c*c= a*a+b*b)
(a*a=b*b+c*c) or (b*b = a*a+c*c) or (c*c= a*a+b*b)
(a2=b2+c2) or (b2 = a2+c2) or (c2= a2+b2)
(a2=b2+c2) and (b2 = a2+c2) and (c2= a2+b2)
27.Điều kiện trong NNLT Pascal để a, b, c là 3 cạnh của một tam giác cân là:
(a=b) and (a=c)
(a=b) or (a=c) and (b=c)
(a=b) and (a=c) and (b=c)
(a=b) or (a=c) or (b=c)
28.Câu lệnh điều kiện trong NNLT Pascal để a, b, c là 3 cạnh của một tam giác cân là:
if (a=b) or (a=c) or (b=c) then write(a, b, c la 3 canh cua mot tam giac can);
if (a=b) or (a=c) or (b=c) then write(a, b, c, ‘la 3 canh cua mot tam giac can’)
if (a=b) or (a=c) or (b=c) then write(a, b, c, ‘la 3 canh cua mot tam giac can’); else write(a, b, c, ‘khong la 3 canh cua mot tam giac can’);
if (a=b) or (a=c) or (b=c) then write(a, b, c, ‘la 3 canh cua mot tam giac can’) else write(a, b, c, ‘khong la 3 canh cua mot tam giac can’);
29.Câu lệnh điều kiện trong NNLT Pascal để xác định a là số chẵn hay lẻ là:
if (a mod 2 = 0) then write(a, ‘ la so chan’) else write(a, ‘ la so le’);
if (a mod 2 < > 0) then write(a, ‘ la so chan’) else write(a, ‘ la so le’);
if (a mod 2 = 0) then write(a, ‘ la so le’) else write(a, ‘ la so chan’)
Tìm lỗi cho đoạn chương trình sau trong Pascal:
program tim_loi_cau_16;
var R,C,S: interger;
const pi=3.14;
begin
R := 5; C := 2*pi*R; S := pi*R*R;
writeln(‘Chu vi hinh tron la:’, C:6:2);
writeln(‘Dien tich hinh tron la:’, S:6:2);
readln;
end
