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.
a) Đoạn chương trình 1:
Máy sẽ thực hiện 5 vòng lặp
Giá trị của S : 5
-Vòng 1: S>5 ---> ĐK đúng ---> S:=10-1=9
- Vòng 2: S>5 ---> ĐK đúng ---> S=9-1=8
- Vòng 3: S>5 ---> ĐK đúng ---> S=8-1=7
- Vòng 4 : S>5 ---> ĐK đúng ---> S=7-1=6
- Vòng 5 : S>5 ---> ĐK đúng ---> S=6-1=5
S>5 ---> ĐK sai ---> kết thúc vòng lặp
b) Bạn kiểm tra lại đề nhé, ở phần n:=n=3;
Câu 1:Vòng lặp While – do kết thúc khi nào
A. Khi một điều kiện cho trước được thỏa mãn
B. Khi đủ số vòng lặp
C. Khi tìm được Output
D. Tất cả các phương án
Câu 2:Việc đầu tiên mà câu lệnh While ... do cần thực hiện là gì?
A. Thực hiện < câu lệnh > sau từ khóa Do
B. Kiểm tra giá trị của < điều kiện >
C. Thực hiện câu lệnh sau từ khóa Then
D. Kiểm tra < câu lệnh >
Câu 3:Cho biết câu lệnh sau Do thực hiện mấy lần trong đoạn chương trình sau:
i := 5;
While i>=1 do i := i – 1;
A. 1 lần
B. 2 lần
C. 5 lần
D. 6 lần
Câu 4:Hãy cho biết kết quả của đoạn chương trình dưới đây:
a:=10; While a < 11 do write (a);
A. Trên màn hình xuất hiện một số 10
B. Trên màn hình xuất hiện 10 chữ a
C. Trên màn hình xuất hiện một số 11
D. Chương trình bị lặp vô tận
Câu 5:Câu lệnh sau giải bài toán nào:
While M <> N do
If M > N then M:=M-N else N:=N-M;
A. Tìm UCLN của M và N
B. Tìm BCNN của M và N
C. Tìm hiệu nhỏ nhất của M và N
D. Tìm hiệu lớn nhất của M và N
B. Tự luận
Bài 1: S=15
Bài 2: S=17
Bài 3:
1)X:=10; while X:=10 to X:(thiếu dấu '=') X+5;
2) X:=10; while X = 10 do X(thiếu dấu ';') =X+5 (thiếu dấu ';')
3) S:=0; n:=0; while S <= 10 do (thiếu 'begin') n:(thiếu dấu '=')n+1 ,(để kết thúc đoạn lệnh dùng dấu ';' không phải dấu ',') S:= S+n; (thiếu end;)
program tinhtong;
uses crt;
var n,i,s:integer;
begin
clrscr;
write('nhap n=');
readln(n);
while (n>100) do
begin
write('nhap lai n<100:');
readln(n);
end;
s:=0;
for i:=1 to n do s:=s+i;
write('tong vua tinh la:',s:3);
readln;
end.
Người mới vô có gì sai sót mong bỏ qua :))
1/
program chia_het;
uses crt;
var n, i, s: integer;
a : array [1..100] of integer;
begin
clrscr;
write('Cac so can nhap la: n = '); readln(n); s:=0
for i:=1 to n do begin
write('So thu ',i,' la:'); readln(a[i]);
if (a[i] mod 2 = 0) and (a[i] mod 5 = 0) then s:=s+1; end;
writeln('Cac so chia het cho 5 va 2 la: ',s);
readln
end.
6.a sai vì sau do có dấu ;
==> sửa lại: for i := 1 to 10 do write(i:5);
6.b sai vì chỉ số đầu lớn hơn chỉ số cuối (100>10) và chỗ gán cho x thế dấu :
==> sửa lại: for i:=10 tờ 100 đô x:=x-i;
6.c sai vì to viết liền với số 200
==> sữa lại: for i:= 100 tờ 200 độ i:=i+5;
6.d đúng
6.d2 thừa i:=0 và còn ko cách chỗ to và 105
sử lại: var n, i:real;
begin n:=0; for i:=5 to 105 do n:=n+1; end.
Đề yêu cầu gì bạn nhỉ?