Cho một tệp văn bản có tên là 'ATXT’ có duy nhất một dòng chứa 5 số nguyên (các số này cách nhau ít nhất một dấu cách). Đoạn lênh nào đọc 5 số từ tệp vào mảng số nguyên A và ghi 5 số đó ra màn hình?

Câu hỏi liên quan

• Phát biểu nào sau đây là đúng với chương trình Vi_Du ?

   

  Program Vi_Du ; Uses crt ; Var      f : text ;          ch : char ;     tenfile : string[30] ; Begin             Write(‘ Nhap ten file : ’) ;   readln(tenfile) ;             Assign(f, tenfile) ;    Reset(f) ; While not eof(f) do             Begin                         Read(f, ch) ;                         Write(ch) ;

   

• Trong Pascal, cho trước tệp văn bản BT2.TXT chỉ có một dòng, chứa dòng chữ : CHAO MUNG BAN DEN VOI LAP TRINH ngay ở đầu dòng. Thực hiện chương trình VD_bt2_txt , trên màn hình sẽ hiện kết quả nào trong các kết quả cho dưới đây ?

   

  Program VD_bt2_txt ; Uses crt ; Var f : text ; S : string[13] ; Begin Clrscr; Assign(f, ‘BT2.TXT ’) ; Reset(f) ; Read(f, S) ; Write(S) ; Close(f) ; End .

   

• Hàm chuẩn nào có tác dụng biến giá trị thực 6 thành 7?

ZUNIA12

• Cho chương trình sau:

  var a : Real ;

  f :text;

  BEGIN

  assign (f, 'A.txt'); rewrite();

  a:=12.345;

  writeln(f, a: 6:3);

  close(f);

  END

  Sau khi thực hiện chương trình, tệp A.txt có nội dung như thế nào?

• Muốn di chuyển con trỏ đến vị trí điểm có tọa độ (x,y), ta phải gọi thực hiện thủ tục nào?

• Trong mặt phẳng hệ tọa độ Descartes vuông góc, cho 2 điểm M(x1,y1) và N(x2,y2). Hãy viết câu lệnh tính khoảng cách d từ điểm M đến N:

• Xét chương trình sau:

  var a, b : longint;

  f :text;

  BEGIN

  assign (f, 'A.txt');

  rewrite(f);

  a:=123456; b:=456;

  write (f, a-b);

  close(f);

  END.

  Sau khi thực hiện chương trình, tệp A.txt có nội dung như thế nào?

• Trong Pascal, thực hiện chương trình VD_bt1_txt dưới đây sẽ ghi kết quả nào trong các kết quả cho dưới đây vào tệp văn bản BT1.TXT ?

   

  Program VD_bt1_txt ; Uses crt ; Var f : text ; Begin             Clrscr;             Assign(f, ‘BT1.TXT ’) ;             Rewrite(f) ; Write(f, 123 + 456) ;

   

• Cho biết f1 là biến tệp văn bản và tệp ketqua.txt có nội dung đang lưu trữ là: Tich 2 so la: 20. Hãy cho biết sau khi thực hiện đoạn lệnh sau:

  a := 10; b :=2;

  assign(f1, 'ketqua.txt');

  rewrite(f1);

  writeln(f1, 'Thuong 2 so la: ', a/b);

  thì tệp ketqua.txt có nội dung gì?

• Hãy viết lệnh tính điện trở tương đương Rtd  cho sơ đồ mạch điện gồm 3 điện trở R1, R2, R3 mắc song song với nhau:

• Xét chương trình sau:

  Var f: text;

  begin

  Assign (f, 'ABC.txt');

  Rewrite(f);

  write (f, 105+304-234);

  close(f);

  end.

  Sau khi thực hiện chương trình, tệp ABC.txt có nội dung như thế nào?

• Mạch điện gồm 3 điện trở R1, R2, R3 mắc nối tiếp với nhau viết lệnh tính điện trở tương đương Rtd:

• Cho mảng A gồm 5 phần tử kiểu integer. Đoạn lệnh nào ghi 5 số đó ra tệp văn bản tên là 'A.TXT' (ghi trên 5 dòng, mỗi dòng một số)?

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

• Xét chương trình sau:

  var a,b longint;

  f :text:

  BEGIN

  assign (f, 'A txt');

  rewrite (f);

  a:=123456;

  b: =456;

  writeln(f, a,b);

  writeln(f, b, a);

  close(f);

  END

  Sau khi thực hiện chương trình, tệp A.txt có nội dung như thế nào?

• Cho mảng A gồm 5 phần tử kiểu integer. Đoạn lệnh nào ghi 5 số đó ra tệp văn bản tên là 'A.TXT' (ghi trên một dòng, các số này cách nhau đúng một dấu cách)?

• Cho chương trình sau:

  Var g: text;

  begin

  Aasign (g, 'ABC, DAT');

  Rewrite(g)

  write (g, '510 + 702 – 792');

  close (g);

  end

  Sau khi thực hiện chương trình, tệp ABC.DAT có nội dung như thế nào?

• Cho mảng A gồm n phần tử kiểu integer. Đoạn lệnh nào ghi ra tệp văn bản tên là 'BTXT theo dạng: dòng đầu tiên ghi số n, dòng thứ hai ghi n số là các phần tử của mảng A (các số này cách nhau đúng một dấu cách)?

• Xét chương trình sau:

  var i : longint;

  f : text;

  BEGIN

  assign (f, 'A.txt');

  rewrite(f);

  i:=123456;

  writeln(f, i);

  write (f, -789);

  close(f);

  END

  Sau khi thực hiện chương trình, tệp A.txt có nội dung như thế nào?

• Để truy cập vào từng trường của bản ghi ta viết ra sao?