K
Khách

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.

Điều kiện là s<=10

Câu lệnh là i:=i+1; s:=s+i;

25 tháng 4 2020

B1: Trong các hoạt động sau đây hoạt động nào là hoạt động lặp với số lần chưa biết trước:

A. tính tổng các số tự nhiên từ 1 đến 20.

B. Nhập các số nguyên cho đến khi đủ 50 số

C. Mỗi ngày tập TD 2 lần

D. Nhập dữ liệu từ bàn phím cho đến khi nhập xong dữ liệu khi dừng

B2: Đoạn lệnh sau đây in ra kết quả gì?
s:=0; while s<10 do begin s:=s+1;
Writeln(s); end;
A. In ra các số từ 1 đến 9.
B. In ra các số từ 1 đến 10.
C. In ra các số 1.
D. Không có đáp án đúng.

B3: Hãy cho biết đâu là đoạn lệnh lặp bằng câu lệnh While...do để tính tổng S=1+2+...+10?
A. S:=0; while i<10 do S:=S+i;
B. S:=0; i:=0; while i<11 do begin S:=S+i; i:=i+1; end;
C. S:=0; i:=1; while i do S:=S+i; i:=i+1;
D. S:=0; i:=0; while i<=10 do begin S:=S+i; i:=i+1; end;

25 tháng 4 2020

Câu 3 chọn B và D phải không cô?

15 tháng 3 2023

Không có câu nào đúng.

A. Đúng theo cách trình bày nhưng thiếu dẫn đến vòng lặp vô hạn. Phải ghép 2 câu lệnh sau do lại bằng begin ... end;.

B. Sai vè sau while lại là 1 phép gán S:=10

C. Sai, vì sau do câu lệnh lại là 1 điều kiện a=b. Và đây cũng là 1 vòng lặp vô hạn

20 tháng 4 2023

a) Lỗi: Dư dấu ; sau từ do

b) Lỗi: While i>20 then (sửa: While i>20 do)

c) Lỗi: B=B+2; (sửa: B:=B+2;)

d) Lỗi: dư dấu ; sau từ do

e) Lỗi: S=S*2; (sửa: S:=S*2;)

f) Lỗi: i:=1 (sửa: i:=1;)

25 tháng 4 2020

S:=0; i:=0;

While i<5 do

begin

S:=S+i;

i:=i+1;

end;

A. 15 B. 10 C.0 D. Không xác định

Giải thích:

Mô tả lặp trong vòng lặp while..do :

-Vòng 1: i ban đầu bằng 0. Kiểm tra điều kiện i<5 ---> ĐK đúng thực hiện câu lệnh s=s+i <=> s=0+0=0 ; i=i+1 <=> i=0+1=1.

Vòng 2: i=1 , kiểm tra điều kiện i<5 ---> ĐK đúng thực hiện câu lệnh : s=s+i <=> s=0+1=1; i=i+1 <=> i=1+1=2.

Vòng 3: i=2, kiểm tra điều kiện i<5 ---> ĐK đúng thực hiện câu lệnh : s=s+i <=> s=1+2=3; i=i+1 <=> i=2+1=3.

Vòng 4: i=3, kiểm tra điều kiện i<5 ---> ĐK đúng thực hiện câu lệnh : s=s+i <=> s=3+3=6; i=i+1 <=> i=3+1=4.

Vòng 5: i=4, kiểm tra điều kiện i<5 ---> ĐK đúng thực hiện câu lệnh : s=s+i <=> s=6+4=10; i=i+1 <=> i=4+1=5.

i=5, kiểm tra điều kiện i<5 ---> ĐK sai ---> kết thúc

Vậy giá trị s sau khi thực hiện đoạn chương trình đó là : 10

a: S=35

b: S=62

c: S=32

DẠNG 1: TÌM LỖI VÀ SỬA LỖICâu 1.Var      s,i: longint;Begin            S:=0.5            i = 1;            while s ≤ 5.5 do                        s = s+i;            write(‘s = ‘,s);end;Câu 2.Var      p,i,n: real;Begin            Readln(n)            p:=1;            for i=1 to n do                        p= p*i/(i+1);            write(‘p = ‘,p);end;Câu 3.Var      a:array[1: 50] of longint;n,s,i: real;Begin            Readln(n);     For i:=1 to n do            Readln(a(i));S:=0;           ...
Đọc tiếp

DẠNG 1: TÌM LỖI VÀ SỬA LỖI

Câu 1.

Var      s,i: longint;

Begin

            S:=0.5

            i = 1;

            while s ≤ 5.5 do

                        s = s+i;

            write(‘s = ‘,s);

end;

Câu 2.

Var      p,i,n: real;

Begin

            Readln(n)

            p:=1;

            for i=1 to n do

                        p= p*i/(i+1);

            write(‘p = ‘,p);

end;

Câu 3.

Var      a:array[1: 50] of longint;

n,s,i: real;

Begin

            Readln(n);    

For i:=1 to n do

            Readln(a(i));

S:=0;

            For i:= 1 to n do

                        S:= s+a(i);

            write(‘s = ‘,s);

end.

giúp mình với mình đang cần gấphihi

1
17 tháng 4 2023

câu 1:

Var s, i: longint;

Begin

   S := 0;  //Thiếu dấu chấm phẩy ở đey

   i := 1;

   while s <= 5 do //Sửa lại điều kiện dừng vòng lặp và cộng thêm i vào s ở bên trong vòng lặp

   begin

      s := s + i;

      i := i + 1;

   end;

   write('s = ', s);

end.

câu 2:

Var p, i, n: real;

Begin

   Readln(n);

   p := 1;

   for i := 1 to n do //Sửa lại phần khai báo biến lặp và dấu bằng

   begin

      p := p * i / (i + 1);

   end;

   write('p = ', p);

end.

câu 3:

Var a: array [1..50] of longint;

n, s, i: real; //Thiếu dấu chấm phẩy ở đey

Begin

   Readln(n);

   For i := 1 to n do

   begin

      Readln(a[i]); //Sửa lại cách truy cập vào ptu của mảng

   end;

   S := 0;

   For i := 1 to n do

   begin

      S := S + a[i];

   end;

   write('s = ', S); //Sửa lại tên biến trong write

end.