Câu 7: Nêu cú pháp câu lệnh lặp và cú pháp câu lệnh lặp với số lần chưa biết trước.
Câu 8: Viết chương trình tính tổng của N số tự nhiên đầu tiên, với N là số tự nhiên được nhập từ bàn phím.
Câu 9: Viết chương trình sử dụng lệnh lặp While..do để tính trung bình của n số thực x1, x2, x3,… xn. Các số n và x1, x2, x3,… xn được nhập vào từ bàn phím.
giupa nha các hảo hán !
ét o ét ;-;
Câu 1: Cú pháp của câu lệnh For …. do là:
a. for <biến đếm> := <Giá trị đầu> to <giá trị cuối> do<câu lệnh>; b. for <biến đếm> := <Giá trị cuối> to <giá trị đầu> do<câu lệnh>; c. for <biến đếm> = <Giá trị đầu> to <giá trị cuối> do<câu lệnh>; d. for <biến đếm> = <Giá trị đầu> to; <giá trị cuối> do<câu lệnh>; |
Câu 2: Cho đoạn chương trình:
S:=0;
For i:=1 to 5 do S:=S+2;
* Sau khi thực hiện đoạn chương trình trên S có kết quả là :
A. 20 B. 15 C. 10 D. 0
* Sau khi thực hiện đoạn chương trình trên i có kết quả là :
A. 2 B. 3 C. 4 D. 5
Câu 3: Câu lệnh viết đúng cú pháp trong ngôn ngữ lập trình Pascal là:
a. While <điều kiện> to <câu lệnh>; b. While <điều kiện> do <câu lệnh>; c. While <điều kiện> to <câu lệnh1> do <câu lệnh 2>; d. While <điều kiện>; do <câu lệnh>; |
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>
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>
D. For <biến đếm> = <giá trị đầu> to <giá trị cuối> do <câu lệnh>;
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 :
1. Câu lệnh lặp for <biến đếm>:==<giá trị đầu> to <giá trị cuối> do <câu lệnh>; có các từ khóa là:
A. for,to,do
B. <biến đếm>
C. <giá trị đầu>,<giá trị cuối>
D.<câu lệnh>
2. trong câu lệnh lặp for,<giá trị đầu> và <giá trị cuối> là các giá trị:
A. số nguyên
B. kiểu số thực
C. kiểu ký tự
D. kiểu xâu ký tự
Viết chương trình nhập 1 số nguyên dương n. Sau đó xuất ra màn hình tổng của n số tự nhiên đầu tiên (yêu cầu : sử dụng câu lệnh while....do)
program Tinh_Tong;
var n, s, i: integer;
begin
write('Nhap vao so nguyen duong n: ');
readln(n);
s := 0;
i := 1;
while i <= n do
begin
s := s + i;
i := i + 1;
end;
writeln('Tong cua ', n, ' so tu nhien dau tien la: ', s);
end.
Câu 8. Viết thuật toán và chương trình hoàn chỉnh sử dụng câu lệnh For … do để tính tổng của 20 số tự nhiên đầu tiên S=1+2+3+...+20 (3 điểm)
Câu 9 (1 điểm). Cho đoạn chương trình: j:= 2;
For i:= 1 to 5 do j:= j + 2;
Sau khi thực hiện đoạn chương trình trên, giá trị của biến j bằng bao nhiêu?
Giải thích?
Câu 8.
program im_14424;
uses crt;
var S: byte;
i: byte;
begin
clrscr;
S:=0;
for i:=1 to 20 do
S:=S+i;
writeln('Tong cua 20 so tu nhien dau tien la: ,S);
readln
end.
Câu 9.
j:=2 → Gán j = 2.
for i:=1 to 5 do → lặp lại 5 lần
j:=j+2 →
Lần 1: 4
Lần 2: 6
Lần 3: 10
Lần 4: 12
Lần 5: 14
Câu 1:
uses crt;
var sum,i:longint;
begin
clrscr;sum:=0;
for i:=1 to 20 do sum:=sum+i;
write(sum);
readln
end.
Câu 2:
i = 1; j = 4i = 2; j = 6i = 3; j = 8i = 4; j = 10i = 5; j = 12
viết chương trình tính tích của n số tự nhiên đầu tiên,với N số tự nhiên được nhập từ bàn phím(sử dụng câu lệnh While..Do
uses crt;
var i,n:integer;
s:real;
begin
clrscr;
write('Nhap n='); readln(n);
s:=1;
i:=1;
while i<=n do
begin
s:=s*i;
i:=i+1;
end;
writeln(s:0:0);
readln;
end.
b) Em hãy viết chương trình Tính tổng của 20 số tự nhiên đầu tiên bằng câu lệnh for … do và while… do ?
Sử dụng vòng lặp while...do:
program TinhTong20SoTNN;
var
i, sum: integer;
begin
i := 1;
sum := 0;
while i <= 20 do
begin
sum := sum + i;
i := i + 1;
end;
writeln('Tong cua 20 so tu nhien dau tien la: ', sum);
end.
Sử dụng vòng lặp for...do:
program TinhTong20SoTNN;
var
i, sum: integer;
begin
sum := 0;
for i := 1 to 20 do
sum := sum + i;
writeln('Tong cua 20 so tu nhien dau tien la: ', sum);
end.
Viết chương trình sử dụng câu lệnh lặp với số lần chưa biết trước để tính tổng của 100 số tự nhiên đầu tiên
program tong_100_so_tu_nhien;
uses crt;
var i, S: integer;
begin
S := 0;
for i := 1 to 100 do
S := S + i;
writeln('Tong cua 100 so tu nhien dau tien la ', S);
readln;
end.
Var i,s:integer;
Begin
i:=1;
s:=0;
While i<=100 do
Begin
s:=s+i;
i:=i+1;
End;
Write('Tong la ',s);
Readln;
End.