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:
A. Rtd := R1*R2*R3/(R1*R2 + R2*R3 + R3*R1).
B. Rtd := R1*R2*R3/(R1*R2 + R2*R3 + R3*R1);
C. Rtd := 1/R1 + 1/R2 + 1/R3;
D. Rtd := R1*R2/(R1 + R2) + R3;
Công thức 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 là: 1/Rtd = 1/R1 + 1/ R2 + 1/R3
→Rtd= R1 x R2 x R3/(R1 x R2 + R2 x R3 + R3 x R1);
Vậy lệnh tính điện trở tương đương trong Pascal là:
Rtd := R1*R2*R3/(R1*R2 + R2*R3 + R3*R1);
Đáp án: B
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 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 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:
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:
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 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
ProgramThi_Du ;
Uses crt ;
Const fi = ‘BT_TD’ ;
Var f : text ; s : string ; t, l, h : integer ;
Begin
Assign(f, ‘fi’) ; Reset(f) ;
While not eof(f) do
Begin
Readln(f, s, t, l, h) ;
Writeln(s, ‘ ’, t, ‘ ’, l, ‘ ’, h) ;
End ;
Close(f) ;
Readln
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?
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.