Thứ bảy, 23/11/2024
IMG-LOGO

Câu hỏi:

21/07/2024 669

Cho chương trình Pascal sau:

Program dientich_duongtron;

uses= crt;

const pi = 3.14;

var: dt, r: real;

clrscr;

write(‘nhap ban kinh r = ‘);

readln(r);

dt = pi*sqr(r);

writeln(‘dien tich duong tron la: ‘,dt:10:2, ‘ m’);

readln

End.

Hãy chỉ ra bốn lỗi có trong chương trình, sau đó hãy sửa lại cho đúng.

Trả lời:

verified Giải bởi Vietjack

a) uses crt;

b) var dt, r: real;

c) Thiếu Begin

d) dt:= pi*sqr(r);

Câu trả lời này có hữu ích không?

0

CÂU HỎI HOT CÙNG CHỦ ĐỀ

Câu 1:

Cho khai báo biến sau đây:

Var m, n : integer ;

  x, y : real ;

Lệnh gán nào sau đây là sai ?

Xem đáp án » 19/06/2021 28,992

Câu 2:

Cú pháp khai báo trực tiếp biến mảng một chiều có dạng:

Xem đáp án » 19/06/2021 8,707

Câu 3:

Biểu diễn nào dưới đây là biểu diễn hằng trong Pascal:

Xem đáp án » 19/06/2021 7,373

Câu 4:

Hãy viết các biểu thức toán học sau sang dạng tương ứng trong Pascal:

Xem đáp án » 19/06/2021 5,748

Câu 5:

Xét biểu thức logic: (n >0) and (n mod 2 = 1). Khẳng định nào sau đây là đúng?

Xem đáp án » 19/06/2021 4,824

Câu 6:

Biểu thức 5*b + a div 4*3 với a =12, b = 4 có giá trị là:

Xem đáp án » 19/06/2021 4,683

Câu 7:

Trong Pascal, cú pháp câu lệnh rẽ nhánh if-then dạng thiếu là:

Xem đáp án » 19/06/2021 3,196

Câu 8:

Cho đoạn chương trình sau:

S := 0 ;

FOR i := 1 to 10 DO

IF (i mod 3=0) or (i mod 5=0) THEN S := S + 1 ;

Sau khi thực hiện, S có giá trị?

Xem đáp án » 19/06/2021 3,107

Câu 9:

Chọn biểu diễn tên đúng trong các biểu diễn dưới đây:

Xem đáp án » 19/06/2021 1,835

Câu 10:

Viết chương trình tính tổng các giá trị chẵn trong phạm vi từ 1 đến N

(Số nguyên dương N được nhập vào từ bàn phím)

Xem đáp án » 19/06/2021 1,799

Câu 11:

Giả sử mảng a gồm các phần tử a[1]=1, a[2]=2, a[3]=3, a[4]=4, a[5]=5.

Cho biết kết quả sau khi thực hiện đoạn chương trình sau:

S:=0;

FOR i:=1 to 5 DO

IF a[i] mod 2 = 0 THEN S:=S+a[i];

writeln(‘S = ’,S);

Xem đáp án » 19/06/2021 1,791

Câu 12:

Cho đoạn chương trình sau:

readln(x,y);

IF x > y THEN F:= 2*x – y ELSE

IF x < y THEN F:= sqr(x) + sqr(y) ELSE F:= 2*x;

Nếu nhập vào từ bàn phím x=3 và y=2 thì giá trị của F là:

Xem đáp án » 19/06/2021 1,762

Câu 13:

Cho đoạn chương trình sau:

T := 0 ; i:=1;

WHILE i <= 10 DO

BEGIN

IF i mod 2 = 0 THEN T := T + i ;

i:=i+1;

END;

Sau khi thực hiện, T có giá trị?

Xem đáp án » 19/06/2021 1,650

Câu 14:

Xét khai báo biến sau:

Var x, y, z : real;

c : char;

    i, j : integer;

Tổng bộ nhớ dành cho các biến đã khai báo là bao nhiêu byte?

Xem đáp án » 19/06/2021 1,647

Câu 15:

Các thành phần cơ bản của NNLT là:

Xem đáp án » 19/06/2021 1,598

Câu hỏi mới nhất

Xem thêm »
Xem thêm »