Câu hỏi:

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.

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à:

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ị?

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

IF <điều kiện> THEN write(x,’la so duong’) ELSE write(x,’la so am’);

Điều kiện là biểu thức logic nào dưới đây?

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ị?

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);

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