Chọn phát biểu đúng với chương trình Vi_Du dưới đây?

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

Whilenot eof(f) do

          Begin

                   Read(f, ch) ;

                   Write(ch) ;  

          End ;

Close(f) ;

End.

Câu hỏi liên quan

• Hãy viết câu lệnh tính khoảng cách d từ điểm M đến gốc tọa độ O với điểm M(x, y) trong mặt phẳng vuông góc

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

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

   

ZUNIA12

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

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

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

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

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

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

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

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

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

   

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

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

• Biết 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 dưới đây, trên màn hình sẽ hiện kết quả nào trong các kết quả cho dưới đây ?

  ProgramVD_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 .

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

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

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