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.

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.

Câu lệnh a và c đúng

7 tháng 5 2021

b

 

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

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

9 tháng 5 2021

a) không vì i:=1 ko phải là điều kiện thực hiện bằng phép so sánh

b) không vì trong câu lệnh while..do ko có ;

Câu lệnh a không hợp lệ vì i:=1 không phải là điều kiện trong phép so sánh

Câu lệnh b không hợp lệ vì có dấu ; trước chữ do