Câu hỏi:

09/07/2020 823

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.

Sách mới 2k7: Tổng ôn Toán, Lí, Hóa, Văn, Sử, Địa... kỳ thi tốt nghiệp THPT Quốc gia 2025, đánh giá năng lực (chỉ từ 70k).

Tổng ôn Toán-lý hóa Văn-sử-đia Tiếng anh & các môn khác

Quảng cáo

Trả lời:

verified
Giải bởi Vietjack

Đề kiểm tra Học kì 2 Tin học 11 có đáp án (Đề 2)

Đề kiểm tra Học kì 2 Tin học 11 có đáp án (Đề 2)

Bình luận


Bình luận

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

Câu 1:

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?

Xem đáp án » 09/07/2020 12,381

Câu 2:

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

Xem đáp án » 09/07/2020 7,286

Câu 3:

Cho s = ‘Tien hoc le, hau hoc van’, hàm length(s) cho giá trị bằng:

Xem đáp án » 09/07/2020 4,192

Câu 4:

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?

Xem đáp án » 09/07/2020 4,125

Câu 5:

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

Xem đáp án » 09/07/2020 3,775

Câu 6:

Trong lời gọi thủ tục, các tham số hình thức được thay bằng các giá trị cụ thể được gọi là:

Xem đáp án » 09/07/2020 3,245

Câu 7:

Để ghi 2 biến CV và DT vào biến tệp f2 ta sử dụng câu lệnh:

Xem đáp án » 09/07/2020 3,221