Cho mảng A gồm 100 phần tử kiểu integer. Đoạn lệnh nào ghi 100 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)?

Câu hỏi liên quan

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

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

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

ZUNIA12

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

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

   

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

• 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

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

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

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

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

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

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

   

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

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