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.
- Biến đếm, giá trị đầu, giá trị cuối là kiểu số nguyên
- Giá trị cuối lớn hơn hoặc bằng giá trị đầu
Khi thực hiện, ban đầu biến đếm sẽ nhận giá trị đầu, sau mỗi vòng lặp, biến đếm sẽ tự động tăng thêm một đơn vị cho đến khi bằng giá trị cuối.
Câu 7: – Cú pháp câu lệnh lặp với số lần biết trước (for):
for biến := giá_trị_đầu to|downto giá_trị_cuối do câu_lệnh;
while điều_kiện do câu_lệnh;
Câu 8: Viết chương trình tính tổng N số tự nhiên đầu tiên
program TongNso; var N, i, Tong: integer; begin write('Nhap N: '); readln(N); Tong := 0; for i := 1 to N do Tong := Tong + i; writeln('Tong ', N, ' so tu nhien dau tien la: ', Tong); end.
Câu 9: Sử dụng lệnh lặp While..do để tính trung bình n số thực
program TinhTrungBinh; var n, i: integer; x, Tong: real; begin write('Nhap so luong n: '); readln(n); i := 1; Tong := 0; while i <= n do begin write('Nhap so thu ', i, ': '); readln(x); Tong := Tong + x; i := i + 1; end; writeln('Trung binh la: ', Tong / n:0:2); 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: C
Câu 2: D
Câu 3: B
Câu 4: A
Câu 5: D
Câu 6: A
Câu 7: C
Câu 8: Không có câu nào đúng
Câu 16: (0,25đ) Trong các cách viết câu lệnh lặp với số lần định trước như sau, cách nào đúng?
A. For <biến đếm> := <giá trị đầu> to <giá trị cuối> ;do <câu lệnh>
-> Sai vì trước do có dấu ;
B. For <biến đếm> := <giá trị đầu> to <giá trị cuối> do <câu lệnh>;
C. For <biến đếm> := <giá trị đầu> to <giá trị cuối> do <câu lệnh>
-> sai vì kết thúc câu lệnh không có dấu ;
D. For <biến đếm> = <giá trị đầu> to <giá trị cuối> do <câu lệnh>;
-> sai vì sau <biến đếm> không có dấu :
program bai1;
uses crt;
var i,n,s:integer;
begin
s:=0;
for i:=1 to 30 do s:=s+i;
writeln(s);
readln
end.