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:

Câu hỏi liên quan

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

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

ZUNIA12

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

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

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

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

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

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

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

   

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

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

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

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

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

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

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