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

Phát biểu nào sau đây là đúng với chương trình Vi_Du ?

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?

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 ?

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 ?

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.

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?

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

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

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 ?

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

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:

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

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

Cho một tệp văn bản có tên là 'ATXT’ có duy nhất một dòng chứa 5 số nguyên (các số này cách nhau ít nhất một dấu cách). Đoạn lênh nào đọc 5 số từ tệp vào mảng số nguyên A và ghi 5 số đó ra màn hình?

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?

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.