IMG-LOGO

Câu hỏi:

19/06/2021 3,290

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ố chẵn trong phạm vi từ M đến N

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

Trả lời:

verified Giải bởi Vietjack

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

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

Câu 1:

Trong PASCAL, để khai báo hai biến tệp văn bản f1, f2 ta viết:

Xem đáp án » 19/06/2021 13,750

Câu 2:

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

Xem đáp án » 19/06/2021 4,016

Câu 3:

Để phân biệt giữa tham biến và tham trị, trước tham biến người ta dùng từ khoá:

Xem đáp án » 19/06/2021 3,341

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 » 19/06/2021 3,270

Câu 5:

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

Xem đáp án » 19/06/2021 3,176

Câu 6:

Muốn khai báo x, 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:

Xem đáp án » 19/06/2021 3,047

Câu 7:

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

Xem đáp án » 19/06/2021 2,411

Câu 8:

Khai báo 2 biến xâu a, b nào sau đây là đúng:

Xem đáp án » 19/06/2021 2,149

Câu 9:

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 » 19/06/2021 2,022

Câu 10:

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

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

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

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

Xem đáp án » 19/06/2021 1,546

Câu 11:

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

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

delete(s1, 1, 3);

write(pos (s1, s2));

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

Xem đáp án » 19/06/2021 1,538

Câu 12:

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

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

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

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

Xem đáp án » 19/06/2021 1,433

Câu 13:

Các biến được khai báo dùng riêng cho chương trình con được gọi là:

Xem đáp án » 19/06/2021 1,405

Câu 14:

Câu lệnh mở biến tệp f1 để đọc dữ liệu có dạng:

Xem đáp án » 19/06/2021 1,363

Câu 15:

Tệp f1 có dữ liệu  để đọc 3 giá trị trên tương ứng với 3 biến x, y, z ta sử dụng câu lệnh:

Xem đáp án » 19/06/2021 1,010

Câu hỏi mới nhất

Xem thêm »
Xem thêm »