Các câu lệnh Pascal sau đúng hay sai, chỉ ra chỗ sai (nếu có)
a/ For i:=1 to 10; do x:=x+1;
b/ For i:=10 to 1 do x:=x+1;
c/ For i:= 1 to 10 do x:=x+1;
Các câu lệnh Pascal sau đúng hay sai?Hãy chỉ ra chỗ sai và sửa lại nếu có
a.for i:=1 to 10;do x:=x+1;
b.for i:=10 to 1 do x:=x+1;
c.while i:=1 do t=10;
d.while a<=b;do write('b lon hon a');
a.for i:=1 to 10;do x:=x+1;
-> lệnh sai vì sau "to 10" không có dấu ''
For<biến đếm > := <giá trị đầu> to <giá trị cuối> do <câu lệnh>;
Sửa lại:for i:=1 to 10 do x:=x+1;
b.for i:=10 to 1 do x:=x+1;
-> lệnh sai vì for i:=10 to 1 giá trị đầu phải nhỏ hơn giá trị cuối(10>1) nên không lặp được.
Sửa for i:=1 to 10 do x:=x+1;
c.while i:=1 do t=10;
-> lệnh sai phép gán giá trị cho biến VD: x:=1
t=10(sai) thiếu dấu ':'
Sửa lại:
while i:=1 do t:=10;
d.while a<=b;do write('b lon hon a');
-> lệnh sai vì Sau While a<=b không có ''(While <điều kiện> do <câu lệnh>)
Sửa lại:
while a<=b do write('b lon hon a');
for t:=2 to n-3 do writeln(‘Chao’);
câu lệnh trên sai hay đúng, nếu sai thì hãy chỉ ra chỗ sai
Câu 1: Cho 1 vài ví dụ về hoạt động lặp đi lặp lại trong cuộc sống?
Câu 2: Các câu lệnh lặp đúng hay sai? Nếu sai sửa lại cho đúng?
a) For i:=10 to 1 do write('a');
b) For i:=1 to 10 do write('a');
c) For i:=1 to 10 do write('a'); write('b');
Bài 3: For i:=1 to n do readln(a); lặp mấy lần?
Bài 4: Cho đoạn chương trình sau: S:=0; For i:= 1 to 5 do S:=S+i;
Hỏi sau khi kết thúc chương trình thì S bằng bao nhiêu?
Bài 5: Viết chương trình tính tổng của 10 số tự nhiên đầu tiên.
Làm nhanh nhanh giúp em nha mấy anh mấy chị. Cảm ơn trước nha. :))
Câu 1:
-Đánh răng rửa mặt mỗi ngày
-Đi học
-Đi ngủ
Câu 2:
a) Sai
Sửa lại: for i:=10 downto 1 do write('a');
b) Đúng
c) Đúng
Câu 3:
Lặp n-1+1=n(lần)
Câu 4:
S=15
Câu 5:
uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
for i:=1 to 10 do
s:=s+i;
writeln('Tong cua 10 so tu nhien dau tien la: ',s);
readln;
end.
a: Sai ở chỗ x=y
Sửa lại: x:=y;
b: Sai ở chỗ dấu chấm phẩy sau y>10
Sửa lại là bỏ dấu chấm phẩy
c: Sai ở chỗ có dấu chấm phẩy trước else
Sửa lại là bỏ dấu chấm phẩy
d:
Sai ở chỗ dấu chấm phẩy sau x>=7
Sửa lại là bỏ dấu chấm phẩy
Câu 14 (2,0 điểm): Trong các câu lệnh lặp trong Pascal sau đây đúng hay sai. Vì
sao?
a. While i<5 do i=i+1;
b. While 3=3 do i:=i+1;
c. While x<3 do x:=x+1;
d. For i:=2.5 to 10 do x:=x+1;
Cho biết giá trị của biến S và n sau khi thực hiện đoạn chương trình trên
Các câu lệnh lặp sau đây đúng hay sai? Sửa lại cho đúng?
a/ For i:= 10 to 1 do write ('a');
b/ For i:= 1 to 10 do write ('a');
c/ For i:= 1 to 10 do write ('a');write ('b');
a) sai:
sửa: for i:=1 to 10 do write('a');
b) Đúng
c) Đúng
a) Sai
Sửa lại: for i:=10 downto 1 do write('a');
b) Đúng
c) Đúng
Em hãy xác định các câu lệnh sau đây đúng hay sai? Nếu sai hãy giải thích tại sao?
a) For i:=150 to 1 do writeln(‘A’);
b) For i:=1.5 to 30.5 do writeln(‘B’);
c) S:=0;n:=0; While S<=20 do begin n:=n+1;S:=S+n; end
d) Var X: array[10..1] of integer;
e) Var X: array[1,5...20,5] of integer;
f) Var X: array[1..30] of integer;
a: Sai bởi chỉ số đầu lớn hơn chỉ số cuối
b: Sai vì chỉ số đầu, chỉ số cuối là số thực
c: Sai vì chỗ end thiếu chấm phẩy
d: Sai vì chỉ số đầu lớn hơn chỉ số cuối
e: Sai vì chỉ số đầu và chỉ số cuối là số thực
d: Đúng
Các câu lệnh và khai báo sau trong pascal đúng hay sai?hãy chỉ ra lỗi sai nếu có
a) For i:=1 to 10; do x:=x+1;
b) For i: =1 to 10 do writeln('A')
c) Y:=5; while Y:=10 do Y:=Y+20;
d) s :=0; n :=0; ; while s<= 10 do n :=n+1;s:=s+n;
e) for i =100 to 20 do x :=x+2;
f) for i :=2 to 20 do x:=x+1;
a) 2 lỗi
- thiếu do
- vòng lặp for tuyệt đối không có ;
b: sau writeln('A') không có chấm phẩy
c: sai chỗ y:=10
phải là y=10 mới đúng
d: sử dụng 2 chấm phẩy là sai
sau while do nếu có từ 2 lệnh trở lên phải bao bọc trong begin end
e: thiếu dấu : sau i, đi từ 100 tới 20 là sai,
phải là for i:=100 downto 20 do mới đúng
f: không sai
u 3: Đánh dấu [x] vào ô đúng hoặc sai tương ứng trong các câu lệnh Pascal trong chương trình tính tổng 10 số tự nhiên đầu tiên, nếu sai sửa lại?
Câu lệnh Đúng Sai Sửa lại
Program Chuong trinh
Var i,s : real;
Const n:=10;
Begin
Wile i <=n do;
Begin
S:=s+i
i =i+1
End.
Writeln(s)
Readln
End;
giúp mik với mình cần gấp ạ