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

Câu hỏi liên quan

• 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?

• Tệp songuyen.dat lưu n số nguyên của mảng 1 chiều, để in tất cả các số nguyên trong tệp ra màn hình thì sau khi thực hiện 2 thủ tục Assign(f,'songuyen.dat'); reset(f); ta thực hiện lệnh nào?

• 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?

ZUNIA12

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

  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 : real;

  f :text;

  BEGIN

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

  a:=12.345;

  writeln(f, 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?

• 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?

• 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) ;

   

• 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 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 10 phần tử kiểu xâu. Đoạn lệnh nào ghi ra tệp văn bản tên là 'S.TXT theo dạng: gồm 10 dòng, mỗi dòng một xâu?

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

• 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?

  ProgramVD_bt1_txt;

  Uses crt ;

  Var f : text ;

  Begin

            Clrscr;

            Assign(f, ‘BT1.TXT ’) ;

            Rewrite(f) ;

  Write(f, 123 + 456) ;

  Close(f) ;

  End.

• Thủ tục chuẩn Insert(S1,S2,vt) thực hiện điều gì?

• 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?

• Cho trước tệp văn bản BT_TD gồm hai dòng như sau :

  TRAN MINH HAI 9 8 7

  NGUYEN QUANG VINH 10 5 9

   

  Program Thi_Du ; Uses crt ; Const fi = ‘BT_TD’ ; Var f : text ;       s : string ;  t, l, h : integer ; Begin             Assign(f, fi) ;            Reset(f) ; While not seekeof(f) do             Begin                         Readln(f, s, t, l, h) ;                         Writeln(s, ‘  ’, t, ‘  ’, l, ‘  ’, h) ;                         End ;

   

   

  Khi thực hiện chương trình Thi_Du  sẽ cho kết quả nào trong các kết quả sau đây ?

   

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

• 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?

• 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 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?