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.

27 tháng 5 2022

sai ở chỗ:

1) i=1; đúng phải là i:=10;

2) i=i-1; đúng phải là i:=i-1;

25 tháng 5 2022

i:=10; while i>1 do i:=i-1;

13 tháng 5 2019

Lời giải :

Lỗi sai = ( )

1) While i(:)=1 do t:=10;

3) For i:=1 to 10 (;) do x:=x+1;

4) i:=1; while i<10 do sum:=sum+i; i:=i+1; ( câu lệnh này vẫn chạy được nhưng phải đặt trong begin...end;)

i:=1; while i<10 do ( begin) sum:=sum+i; i:=i+1; (end; )

a) Sai vì giá trị đầu lớn hơn giá trị cuối

b) Sai vì giá trị đầu lớn hơn giá trị cuối

b) Sai vì sau câu lệnh i:=1+1 thiếu dấu chấm phẩy

26 tháng 4 2020

em cảm ơn cô ạ

25 tháng 4 2020

a. While i:=1 do t:=10;

---> Sai

---> Sửa : While i=1 do t:=10;

b. While a<=b; do Writeln(‘b khong nho hon a’);

---> Sai

---> Sửa : While a<=b do Writeln(‘b khong nho hon a’);

c. i:=1;

While i<10 do

Begin

Sum:=Sum+i;

i:=i+1;

End;

---> Đúng

27 tháng 4 2019

A. Sai vì nếu có hai câu lệnh trở lên giữa "while...do" phải có "begin" và "end;".

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 ( trừ khi tắt chương trình ).

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.

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

Bài 1:

a) Câu lệnh While i:=1 do sai.

Sai ở chỗ i:=1(vì có dấu gán)

b) Câu lệnh While a<=b; do sai

Sai ở chỗ có dấu chấm phẩy trước chữ do

Câu lệnh write('b khong nho hon a); sai

Sai ở chỗ vì thiếu dấu ' sau chữ a

c) Câu lệnh While 1=1 do sai

Vì nếu như vậy đây sẽ là vòng lặp vô hạn(vì 1 luôn bằng 1)

Câu lệnh write('Toi lap trinh gioi); sai

Sai ở chỗ thiếu dấu ' sau chữ gioi

d) Câu lệnh sum:=sum+1; i:=i+1; sai

Vì nguyên tắc là sau lệnh While(hoặc lệnh For) thì nếu làm nhiều câu lệnh thì phải bao bọc trong Begin End

Bài 2:

uses crt;

var a,b:real;

begin

clrscr;

repeat

write('a='); readln(a);

if a<=0 then writeln('vui long nhap lai a');

until a>0;

repeat

write('b='); readln(b);

if b<=0 then writeln('vui long nhap lai b');

until b=0;

writeln('dien tich hinh chu nhat la: ',a*b:4:2);

readln;

end.

25 tháng 4 2020

cảm ơn bạn rất rất rất rất nhiều.

3 tháng 4 2018

thiếu begin..end;

ở chỗ while do

3 tháng 4 2018

- Như vậy hình như vẫn thiếu bạn ơi, kết quả in ra màn hình là 5. Mà chương trình lại yêu cầu tính tổng các số nguyên từ 1 -> 5