Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Phần II: Bài tập
Câu 1:
Sau khi thực hiện chương trình, chương trình sẽ báo lỗi thiếu begin
Câu 2:
uses crt;
var i,n:integer;
s:real;
begin
clrscr;
write('n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+1/i;
writeln(s:4:2);
readln;
end.
I: Trắc nghiệm
Câu 1: C
Câu 2: A
Câu 3: C
Câu 4: C
Câu 5: C
Câu 6: D
Câu 7: B
Câu 8: D
Câu 9: C
Câu 10: B
Câu 11: D
Câu 12: B
Câu 13: B
Câu 14: A
Câu 15: B
Câu 16: B
Câu 17: Không rõ câu hỏi
Câu 18: B
Câu 19: B
Câu 20: B
Câu 21: A
Câu 22: C
Câu 23: B
Câu 24: A
II: Bài tập:
uses crt;
var i,s,n:longint;
begin
clrscr;
write('n='); readln(n);
s:=0;
for i:=1 to n do
if i mod 3=0 then s:=s+i;
writeln('tong cac so tu nhien chia het cho 3 khong vuot qua ',n,' la: ',s);
readln;
end.
Câu 1: D
Câu 2: B
Câu 3: C
Câu 4: B
Câu 5: Từ khóa: Program, begin. Tên: Ct_dau_tien, Lop8A
Câu 6:
- Con người ra lệnh cho máy tính bằng cách nhập các câu lệnh lên máy tính.
- Chương trình máy tính là một tập hợp các câu lệnh để thực hiện các công việc trên máy tính.
Câu 7:
a)15*(4+30)
b) a*x+b+2
c) sqr(a+b)+ sqr(c+d)
d) x-y/2*x
Câu 8:
Dòng 1: Không có lỗi sai.
Dòng 2: Không có lỗi sai.
Dòng 3: Sai. Sửa thành: var a,b:integer; ( var thì chỉ dùng ':' )
Dòng 4: Không có lỗi sai.
Dòng 5: Sai. Sửa thành: const phi=100; ( const thì chỉ dùng '=' )
Dòng 6: Không có lỗi sai.
Dòng 7: Sai. Sửa thành: readln(a,b); (viết sai chính tả từ 'readln')
Dòng 8: Sai. Sửa thành: c:=a+b+phi; (c được gán bằng a+b+phi thì phải dùng dấu':=')
Dòng 9: Không có lỗi sai.
Dòng 10: Sai. Sửa thành: end. (sau end cuối cùng phải có dấu '.')
Câu 9:
program dientich;
uses crt;
var a,b,S:integer;
Begin
clrscr;
write('nhap a,b: '); readln(a,b);
S:=a*b;
writeln('dien tich hinh chu nhat la: ',S);
readln;
end.
c1: 5+6
c2: a là 1 số nguyên
b là 1 kí tự
c3: a là 1 số nguyên
b là 1 xâu kí tự
c4: hai số a,b được hoán vị cho nhau như vậy lúc này a mang giá trị của b, b mang giá trị của a. a=b,b=a
c5,6: tương tự câu 4
c7: kết quả là:a/b
c8: 1
c9: c
c10:
sai lệnh ' clscrs ' đúng là 'clrscr;
sau lệnh readln(canh) thiếu dấu ";"
chưa khai báo biến "dientich"
dòng writeln thứ 2 thiếu dấu " ' " ở trước dấu phẩy.
c11:
phần khai báo sai chỗ "a.b" đúng là "a,b"
sai lệnh clrscr;
thiếu ";" sau lệnh readln(b)
chưa khai báo biến tổng
câu lệnh in kết quả sai ( thiếu " ' ")
c12:
if a>b then { a lớn hơn b } else
if a<b then { a nhỏ hơn b } else
{ a bằng b }
c13: dễ nhưng hơi dài chỉ cần so sánh từng biến với tổng 2 biến còn lại là đươc
c14: bạn viết tương tự như c13 bổ sung thêm điều kiện
nếu có 2 trong 3 cạnh bằng nhau thì in ra là tam giác cân
c15:
max:=a;
if (max>b) and(max >c) then max:=a else
if b>c then max:=b else max:=c;
write(max)
c16: làm tương tự c4,5,6
c17: bx+x+0 ???
c18: làm tương tự c16
B1: Trong các hoạt động sau đây hoạt động nào là hoạt động lặp với số lần chưa biết trước:
A. tính tổng các số tự nhiên từ 1 đến 20.
B. Nhập các số nguyên cho đến khi đủ 50 số
C. Mỗi ngày tập TD 2 lần
D. Nhập dữ liệu từ bàn phím cho đến khi nhập xong dữ liệu khi dừng
B2: Đoạn lệnh sau đây in ra kết quả gì?
s:=0; while s<10 do begin s:=s+1;
Writeln(s); end;
A. In ra các số từ 1 đến 9.
B. In ra các số từ 1 đến 10.
C. In ra các số 1.
D. Không có đáp án đúng.
B3: Hãy cho biết đâu là đoạn lệnh lặp bằng câu lệnh While...do để tính tổng S=1+2+...+10?
A. S:=0; while i<10 do S:=S+i;
B. S:=0; i:=0; while i<11 do begin S:=S+i; i:=i+1; end;
C. S:=0; i:=1; while i do S:=S+i; i:=i+1;
D. S:=0; i:=0; while i<=10 do begin S:=S+i; i:=i+1; end;
1: B
2: A