Câu hỏi:
04/04/2024 45Cho chương trình sau:
procedure thutuc (a, b: integer);
Begin
…
End;
Trong chương trình chính có thể gọi lại chương trình con như thế nào:
A. thutuc;
B. thutuc(1, 2, 3);
C. thutuc(5);
D. thutuc (5, 10);
Trả lời:
Đáp án đúng : D
CÂU HỎI HOT CÙNG CHỦ ĐỀ
Câu 1:
Muốn khai báo x là tham số giá trị, y là tham số biến (x, y thuộc kiểu integer) trong thủ tục có tên là “Hoan_doi” thì khai báo nào sau đây là đúng:
Câu 4:
Cho s = ‘Tien hoc le, hau hoc van’, hàm length(s) cho giá trị bằng:
Câu 6:
Giả sử ta có hàm max(A, B: integer):integer; để tìm số lớn hơn trong hai số A và B. Cần sử dụng hàm max trên như thế nào để tìm được số lớn nhất trong ba số A, B, C?
Câu 7:
Cho đoạn chương trình sau:
s1 := ‘1234’; s2: ‘abcd’;
if length(s1) > length(s2) then write(s1) else write(s2);
Kết quả in ra màn hình là:
Câu 8:
Giả sử a = 5; b = 9; c = 15; để ghi các giá trị trên vào tệp f2 có dạng là ta sử dụng câu lệnh:
Câu 9:
Cho đoạn chương trình sau:
Var g:text;
I:integer;
Begin
Assign(g, ‘C:\DLA.txt’);
Rewrite(g);
For i:=1 to 10 do
If i mod 2 = 0 then write(g, i);
Close(g);
Readln
End.
Sau khi thực hiện chương trình trên, nội dung của tệp ‘DLA.txt’ gồm những phần tử nào?
Câu 11:
Để phân biệt giữa tham biến và tham trị, trước tham biến người ta dùng từ khoá:
Câu 12:
Cho đoạn chương trình sau:
s1 := ‘abcd’; s2: ‘acb’;
if s1 > s2 then write(s1) else write(s2);
Kết quả in ra màn hình là:
Câu 14:
Viết chương trình:
Đọc từ tệp “DULIEU.TXT” 2 số nguyên M và N (M < N)
Tính tổng các số lẻ trong phạm vi từ M đến N
Ghi kết quả ra tệp “KETQUA.TXT”.
Câu 15:
Cho chương trình sau:
Program Baitap;
Var S1, S2 : string;
Procedure Xu_li_xau(a:string; var St:string);
Var i: byte;
Begin
i := pos (a, St);
while i < > 0 do
begin
delete(St, i, 4);
i := pos(a, St);
end;
End;
Begin
S1 := ‘sen trang, sen hong;
S2 := ‘sen’;
Xu_li_xau(S2,S1);
End.
a/ Hãy chạy tay cho ra kết quả theo bảng mẫu dưới đây:
b/ Hãy chỉ ra: biến toàn cục, biến cục bộ, tham số hình thức, tham số thực sự, tham số biến,tham số giá trị trong chương trình trên.