K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

5 tháng 8 2018

Đáp án đúng : C

6 tháng 5 2017

Đáp án đúng : C

Câu 24. Trong pascal, cho đoạn chương trình:Assign(f1,‟Input.dat‟); Reset(f1);While not eoln(f1) do BeginRead(f1,x);Write(x, ‘ '); End;Close(f1); A. Xuất dữ liệu trong tệp Input.dat ra màn hình;   B. Ghi dữ liệu vào tệp Input.dat; C. Gắn tên tệp Input.Dat cho biến tệp f1;              D. Mở tệp Input.dat để đọc; Câu 25. Đoạn chương trình sau thực hiện: Assign(f1,‟Input.dat‟); Assign(f2,‟Output.dat‟); Reset(f1); Rewrite(f2);While not EOF(f1)...
Đọc tiếp

Câu 24Trong pascal, cho đoạn chương trình:Assign(f1,‟Input.dat‟); Reset(f1);

While not eoln(f1) do 

Begin

Read(f1,x);Write(x, ‘ '); 

End;

Close(f1);

 

A. Xuất dữ liệu trong tệp Input.dat ra màn hình;   B. Ghi dữ liệu vào tệp Input.dat;

 

C. Gắn tên tệp Input.Dat cho biến tệp f1;              D. Mở tệp Input.dat để đọc;

 

Câu 25. Đoạn chương trình sau thực hiện: Assign(f1,‟Input.dat‟); Assign(f2,‟Output.dat‟); Reset(f1); Rewrite(f2);

While not EOF(f1) do

Begin

Read(f1,x); Write(f2,x,’ ’);

End;

Close(f1); 

Close(f2);

 

Đọc dữ liệu từ tệp Input.dat và ghi dữ liệu ra tệp Output.dat trên cùng một dòng.

B.Đọc dữ liệu từ tệp Input.dat và ghi dữ liệu ra tệp Output.dat trên nhiều dòng.

Đọc dữ liệu từ tệp Output.dat và ghi dữ liệu ra tệp Input.dat trên nhiều dòng.

Đọc dữ liệu từ tệp Output.dat và ghi dữ liệu ra tệp Intput.dat trên cùng một dòng.

 

Câu 26. Cho tệp B13.TXT chỉ có một dòng „abcdefgh‟ và chương trình sau: Var f:text; S1:string[3]; S2:string;

Begin

Assign(f,’B13.TXT’); 

Reset(f); 

Read(f,S2,S1);

Readln

End.

 

Sau khi chạy chương trình trên thì S1,S2 có kết quả là

 

a. S1=’absdefgh’; S2=’ ’

b. S1=’ ’; S2=’abcdefgh’

 c. S1=’abcde’;S2=’fgh’

d. Cả a,b,c sai

1

Câu 24: A

Câu 25: A

 

26 tháng 12 2019

Đáp án đúng : B

7 tháng 7 2017

Đáp án đúng : D

const fi='mang.txt';

fo='tong.txt';

var f1,f2:text;

a:array[1..100]of integer;

n,i,t:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewriteln(f2);

n:=0;

while not eof(f1) do 

  begin

inc(n);

read(f1,a[n]);

end;

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln(f2,t);

close(f1);

close(f2);

end.

const fi='vanban.inp';

fo='vanban.out';

var f1,f2:text;

dem,i:integer;

a:array[1..1000]of string;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

dem:=0;

while not eof(f1) do 

begin

inc(dem);

readln(f1,a[dem]);

end;

writeln(f2,dem);

close(f1);

close(f2);

end.

17 tháng 4 2023

Đây là một bài tập lập trình, dưới đây là đoạn mã Python để thực hiện các yêu cầu trong bài tập:

`python
import os

Tạo tệp DEBALDAT trong ổ đĩa D
with open('D:/DEBALDAT', 'w') as f:
data = input("Nhập dữ liệu: ")
f.write(data)

Đọc dữ liệu từ tệp DEBALDAT
with open('D:/DEBALDAT', 'r') as f:
data = f.read()

Tìm số nhỏ nhất và ghi vào tệp SONHONHAT.OUT
numbers = [int(x) for x in data if x.isdigit()]
min_number = min(numbers)
with open('D:/SONHONHAT.OUT', 'w') as f:
f.write(str(min_number))

Tính tổng các số chẵn và ghi vào tệp SOCHAN.OUT
even_numbers = [int(x) for x in data if x.isdigit() and int(x) % 2 == 0]
sum_even_numbers = sum(even_numbers)
with open('D:/SOCHAN.OUT', 'w') as f:
f.write(str(sum_even_numbers))

Đếm số kí tự dấu cách và ghi vào tệp DAUCACH.OUT
num_spaces = data.count(' ')
with open('D:/DAUCACH.OUT', 'w') as f:
f.write(str(num_spaces))

Xóa các kí tự dấu cách và ghi vào tệp KETQUA.OUT
data_without_spaces = data.replace(' ', '')
with open('D:/KETQUA.OUT', 'w') as f:
f.write(data_without_spaces)

Xóa tệp DEBALDAT
os.remove('D:/DEBALDAT')
`

Lưu ý: Đoạn mã này chỉ thực hiện được trên hệ điều hành Windows, nếu sử dụng hệ điều hành khác cần thay đổi đường dẫn ổ đĩa.