Câu hỏi:
04/04/2024 33Đoạn chương trình sau có lỗi gì?
Procedure End (key : char ) ;
Begin
If key = ‘ q ’ then writeln( ‘ Ket thuc ’ )
End;
A, Thiếu dấu “ ; ” sau từ khóa Begin ;
B, Không thể dùng câu lệnh if trong thủ tục;
C, Thiếu dấu “ ; ” sau lệnh writeln ;
D, End không thể dùng làm tên của thủ tục ;
Trả lời:
Giải bởi Vietjack
Tên hàm và thủ tục được đặt tên theo quy tắc đặt tên của Pascal và không sử dụng tên trùng với các từ khóa.
Đáp án: C
CÂU HỎI HOT CÙNG CHỦ ĐỀ
Câu 1:
Cho chương trình sau:
Program Chuong_Trinh;
Var a, b, S : byte;
Procedure TD(Var x : byte ; y : byte);
Var i : byte;
Begin
i := 5;
writeln(x,‘ ’, y);
x := x + i ;
y := y + i ;
S := x + y ;
Writeln(x,‘ ’, y);
End;
Begin
Write(‘nhập a và b : ’);
Readln(a, b);
TD(a,b);
Writeln(a,‘ ’, b, ‘ ’, S);
Readln;
End.
Trong chương trình trên có các biến toàn cục là:
Câu 3:
Muốn khai báo x là tham số giá trị và y, z là tham số biến (x, y, z thuộc kiểu Byte) trong thủ tục “ViduTT” thì khai báo nào sau đây là sai?
Câu 8:
Hãy chọn phương án ghép đúng. Cho thủ tục sau:
Procedure p;
Var n : integer ;
Begin
…… ……
End ;
Phạm vi của biến n là :
Câu 9:
Cho chương trình sau:
Program Chuong_Trinh;
Var a, b, S : byte;
Procedure TD(Var x : byte ; y : byte);
Var i : byte;
Begin
i := 5;
writeln(x,‘ ’, y);
x := x + i ;
y := y + i ;
S := x + y ;
Writeln(x,‘ ’, y);
End;
Begin
Write(‘nhập a và b : ’);
Readln(a, b);
TD(a,b);
Writeln(a,‘ ’, b, ‘ ’, S);
Readln;
End.
Trong chương trình trên có các tham số thực sự là:
