Bài tập 4 trang 89 SGK Tin học 11

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 .

A. CHAO MUNG BAN DEN VOI LAP TRINH

B. CHAO MUNG BAN

C. CHAO MUNG BAN DEN VOI

D. CHAO MUNG

ProgramVD_bt1_txt;

Uses crt ;

Var f : text ;

Begin

          Clrscr;

          Assign(f, ‘BT1.TXT ’) ;

          Rewrite(f) ;

Write(f, 123 + 456) ;

Close(f) ;

End .

A. 123 + 456

B. 123456

C. 579

D. 123 456

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

A. Tich 2 so la: 20 

B. Tich 2 so la: 20Thuong 2 so la: 5

C. Thuong 2 so la: 5

D. Thuong 2 so la: 5Tich 2 so la: 20

A. d := sqr(x*x + y*y);

B. d := sqrt(sqr(x) + sqr(y));

C. d := sqr(x*x – y*y); 

D. d := sqr(sqrt(x) + sqrt(y));

A. d := sqrt(sqr(x1 – x2) + sqr(y1 – y2));

B. d := sqr(sqrt(x1 – x2) + sqrt(y1 – y2)); 

C. d := sqrt(sqr(x1 + x2) – sqr(y1 + y2));

D. d := sqr(sqrt(x1 + x2) – sqrt(y1 + y2));

A. Rtd := R1*R2*R3/(R1*R2 + R2*R3 + R3*R1); 

B. Rtd := R1*R2/(R1 + R2) + R3; 

C. Rtd := R1*R2*R3/(R1 + R2 + R3);

D. Rtd := R1 + R2 + R3;

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âu 1. Cho tệp văn bản SN1.TXT trong đó mỗi dòng chứa một số nguyên, hãy viết chương trinh tạo một tep van bản SN2.TXT gồm các số nguyên le chia hết cho 5 từ tệp SN1.TXT(1 diem) Câu 2. Viết chương trình dưa ra màn hình số lượng các chữ cái in hoa trong xâu S.(1 diểm) Câu 3. Viêt thủ tục kiểm tra xem 3 số thực duơng a, b, c có tạo thành 3 cạnh của tam giác không (1 diểm)

Cho tệp SONGUYEN.TXT chứa các số nguyên, cách nhau bởi dấu cách Và không kết thúc bởi kí tự xuống dòng. Viết đoạn lệnh tính tích các số nguyên đó và ghi kết quả vào tệp KETQUA.OUT

Viết chương trình nhập n số nguyên dương n<= 10000 các số trong phạm vi từ 0 đến 254.Tìm trong tập 30 giá trị số lớn hơn cả 

DL  vào : file B1_INP.TXT có dòng đầu là số n từ dòng kế ghi đủ n số ghi cách nhau dấu cách hoặc xuống dòng

Kết quả ra: ghi vào file B1_OUT.TXT có mỗi dòng ghi 1 giá trị số trình tự giảm dần, nếu không đủ phải ghi nhận xét không đủ kết quả ở cuối cùng

Cho tệp văn bản INPUT.TXT có cấu trúc

: a[1] a[2] a[3] ...a[N] 

..... Dòng đầu tiên chứa số nguyên dương N

Dòng thứ 2 chứa N số nguyên dương An các a[i] cách nhau bởi dấu cách

 Lập trình viết chương trình đọc dữ liệu từ tệp INPUT.TXT, sau đó ghi dãy số vùa đọc vào dòng đầu tiên của tệp OUTPUT.TXT 1).

tìm giá trị nhỏ nhất và các vị trí của Min trong dãy a[1], a[2],...,a[N] ghi kết quả vào tệp OUTPUT.TXT (dòng thứ 2 ghi Min; dòng thứ 3 ghi các vị trí của Min các vị trí của Min cách nhau bởi dấu cách a[1], a[2],...,a[N]. vd 

input.txt                                                                output.txt                                                                                

15                                                                        1 5 6 7 8 5 1 4 5 6 2 3 7 8 8 

1 5 6 7 8 5 1 4 5 6 2 3 7 8 8                                    1

                                                                             1 7

YÊU CẦU: Viết chương trình bằng pascal đọc dữ liệu từ tệp HCN.txt. tính rồi đưa ra màn: diện tích và chu vi hình chữ nhât.

cho tệp DULIEU.TXT chứa liên tiếp các số nguyên, các số cách nhau bởi dấu cách và kết thúc bằng ký tự xuống dòng. Viết chương trình tính tổng bình phương các số có trong tệp DULIEU.TXT .Kết quả tính được ghi vào tệp KETQUA.TXT

cho tệp VANBAN.Txt chứa các số nguyên, mỗi số cách nhau 1 dấu cách và không kết thúc bằng kí tự xuống dòng

a, hãy đếm xem trong tệp có bao nhiêu số nguyên dương và đưa kq ra màn hình

b, tệp SO.TxT chứa tất cả các số chia hết cho 3 có trong tệp VANBAN.Txt mỗi số cách nhau một dấu cách và kt bằng kí tự xuống dòng 

m.n trả lời mình ngay được không ạ

viết chương trình tạo 1 tệp lưu trữ n số nguyên chỉ lưu trữ số chẵn ko lưu số lẻ với n nhập từ bàn phím 
hướng dẫn giúp em với ạ