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 ?

ProgramVD_bt1_txt;

Uses crt ;

Var f : text ;

Begin

          Clrscr;

          Assign(f, ‘BT1.TXT ’) ;

          Rewrite(f) ;

Write(f, 123 + 456) ;

Close(f) ;

End . 

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 nối tiếp với nhau là:

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

Trong mặt phẳng hệ tọa độ Descartes vuông góc, cho điểm M(x, y). 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:

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:

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

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

Whilenot eof(f) do

          Begin

                   Read(f, ch) ;

                   Write(ch) ;  

          End ;

Close(f) ;

End.