Thứ sáu, 29/03/2024
IMG-LOGO

Câu hỏi:

17/02/2022 405

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ố chia hết cho 5 trong phạm vi từ M đến N

Ghi kết quả ra tệp “KETQUA.TXT”.

 Xem lời giải

Trả lời:

verified Giải bởi Vietjack

GIẢI THÍCH

Var f1, f2: text;

  Tong, m, n, i: integer;

Begin

  assign(f1, ‘DULIEU.TXT’);

  reset(f1);

  assign(f2, ‘KETQUA’);

  rewrite(f2);

  Tong;= 0;

  read(f1, m, n);

  for i:= m to n do

  if i mod 2 = 0 then Tong:= Tong+i;

  write(f2, Tong);

  close(f1);

  close(f2);

End.

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

0

Gói VIP thi online tại VietJack (chỉ 200k/1 năm học), luyện tập gần 1 triệu câu hỏi có đáp án chi tiết

ĐĂNG KÝ VIP

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

Câu 1:

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 » 17/02/2022 2,897

Câu 2:

Để gắn tệp DL.TXT cho biến tệp f1 ta sử dụng câu lệnh:

Xem đáp án » 17/02/2022 2,713

Câu 3:

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 := ‘hoc nua, hoc mai;

 S2 := ‘hoc’;

 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.

Xem đáp án » 17/02/2022 1,320

Câu 4:

Cho xâu kí tự sau: s:= ‘Truyen Kieu-Nguyen Du’. Lệnh nào sau đây cho kết quả ‘Truyen Kieu’

Xem đáp án » 17/02/2022 1,279

Câu 5:

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

s1 := ‘123c’; s2 := ‘abcd’;

delete(s1, 1, 3);

write(pos (s1, s2));

Kết quả in ra màn hình là:

Xem đáp án » 17/02/2022 934

Câu 6:

Để biết con trỏ tệp đã ở cuối tệp f hay chưa, ta sử dụng hàm:

Xem đáp án » 17/02/2022 925

Câu 7:

Muốn khai báo y là tham số giá trị, x 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:

Xem đáp án » 17/02/2022 813

Câu 8:

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

s1 := ‘2345’; s2: ‘1234’;

if length(s1) > length(s2) then write(s1) else write(s2);

Kết quả in ra màn hình là:

Xem đáp án » 17/02/2022 811

Câu 9:

Cho s = ‘ABCDEF’, hàm copy (s, 4, 3) cho giá trị là:

Xem đáp án » 17/02/2022 761

Câu 10:

Để 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 » 17/02/2022 689

Câu 11:

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

s1 := ‘abcd’; s2: ‘abab’;

if s1 > s2 then write(s1) else write(s2);

Kết quả in ra màn hình là:

Xem đáp án » 17/02/2022 608

Câu 12:

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 » 17/02/2022 514

Câu 13:

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 » 17/02/2022 422

Câu 14:

Tham số được khai báo trong chương trình chính được gọi là:

Xem đáp án » 17/02/2022 377

Câu 15:

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

Xem đáp án » 17/02/2022 354