1.B1:J<--0;T<--10c B2:Nếu T<20 chuyển qua B4 B3:J<--J+5;T<--T-J; B4:in ra kết quả T và j a.hãy cho bt khi thực hiện thuật toán trên máy tính sẽ thức hiện bao nhiêu vòng lặp và giá trị của T và j là bao nhiêu b. Viết câu lệnh pascal để thực hiện thuật toán trên 2.trong Pascal, câu lệnh nào sau đây đúng A. I:=0; S:=1, while S<10 do S= S+i; i= i+1 B. I:= 1; S=0 while S<10 do begin S=S+i; i=i+1; end C. N=2 while n<5 do write ('A') D. Cả A, B đúng
1.B1:J<--0;T<--10c B2:Nếu T<20 chuyển qua B4 B3:J<--J+5;T<--T-J; B4:in ra kết quả T và j a.hãy cho bt khi thực hiện thuật toán trên máy tính sẽ thức h
By Clara
a) Khi thực hiện thuật toán trên máy tính sẽ thức hiện 10 vòng lặp và giá trị của T=10 và j=0
b) Bạn tự khai báo tên CT vs Biến nha còn không bt mình làm cho
j : =0
T :=10
While T>= 20 do
begin j := j + 5 T :=T – j ;
end;
Write (T);
Writeln;
Write(j);
Readln;
End.
2) “Không có câu nào đúng hết” Vì:
A. Sai vì nếu có hai câu lệnh trở lên giữa “while…do” phải có “begin” và “end;” nếu không có vòng lắp sẽ kiểm tra 2 điều kiện cùng 1 lúc mà chưa kiểm tra trường hợp nên dễ bị treo máy.
B. Sai vì S luôn luôn bé hơn 10 (1<10) nên chương trình sẽ ghi S vô hạn.
C. Sai vì n cũng giống lỗi câu B (2<5) nên cũng sẽ lặp vô hạn lần.
_____________Chúc bạn học tốt____________
1.
a) Vòng lặp sẽ không thực hiện 0 (không thực hiện) và j=0; t=10;
Mới vào t đã thõa mãn điều kiện t<20 nên không thực hiện.
b)
uses crt;
var t,j:longint;
begin
clrscr;
j:=0; t:=10;
while t>=20 Do
begin
j:=j+5; t:=t-j;
end;
writeln(t,’ ‘,j);
readln
end.
2. Không có đáp án đúng.
A. S=S+i; thiếu dấu ‘:’ → S:=S+i;
i= i+1 thiếu dấu ‘:’ và dấu ‘;’ → i:=i+1;
B. S=0 thiếu dấu ‘:’ và dấu ‘;’ → S:=0;
S=S+i; thiếu dấu ‘:’ → S:=S+i;
i= i+1 thiếu dấu ‘:’ → i:=i+1;
C. N=2 thiếu dấu ‘:’ và dấu ‘;’ → N:=2;
D. Không đúng