Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
14 tháng 2 2019 lúc 15:25

Đáp án đúng : C

Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
13 tháng 5 2018 lúc 6:04

Đáp án đúng : C

Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
17 tháng 8 2017 lúc 13:36

Assign(f1,’dulieu.txt’);

Reset(f1);

Read(f1,a,b);

Close(f1);

Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
11 tháng 5 2018 lúc 18:18

Assign(f,’KQ.TXT’);

Rewrite(f);

Write(f,C,V);

Close(f);

Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
17 tháng 3 2017 lúc 3:19

Assign(f2,’ketqua.txt’);

Rewrite(f2);

Write(f2,T,S);

Close(f2);

Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
29 tháng 12 2017 lúc 16:07

Assign(f,’DL.TXT’);

Reset(f);

Read(f,x1,x2);

Close(f);

CỦ CẢI
Xem chi tiết
Minh Lệ
25 tháng 5 2020 lúc 21:16

Bài 1:

assign(f2,'dulieu.txt');

reset(f2);

readln(f2,T,S);

close(f2);

Bài 2:

assign(f1,'dau.txt');

reset(f1);

read(f1,a,b);

close(f1);

Trần Gia Linh
Xem chi tiết
Trần Gia Linh
5 tháng 4 2021 lúc 9:01

ai giup e voi dc k ah:( đang thi ạ

 

Trần Gia Linh
5 tháng 4 2021 lúc 9:02

alo mng ơi=(((

 

Nguyễn Lê Phước Thịnh
5 tháng 4 2021 lúc 13:10

const fi='songuyen.txt'

fo='soduong.out'

var f1,f2:text;

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

i,n:integer;

begin

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

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

n:=0;

while not eof(f1) do 

  begin

inc(n);

read(f1,a[n]);

end;

for i:=1 to n do 

  if a[i]>0 then write(f2,a[i]:4);

close(f1);

close(f2);

end.

thành nguyễn
Xem chi tiết
Minh Lệ
27 tháng 4 2020 lúc 21:46

Câu 2:

a) Chương trình có 2 tệp và 2 biến tệp

- 2 tệp đó là : input.txt và output.txt

- 2 biến tệp đó là: f1 và f2

b)

- Tệp input.txt được gắn cho biến tệp là f1 .Nó dùng để đọc dữ liệu

-Tệp output.txt được gắn cho biết tệp là f2. Nó dùng để ghi dữ liệu

c)

Câu lệnh gắn tập và mở tệp của input.txt và output.txt là : assign(f1 ,' input.txt'); và assign(f2 ,' output.txt);

Câu lệnh đọc tệp là: reset(f1);

Câu lệnh để ghi tệp là: rewrite(f2);

d) Điều kiện để tham chiếu đến tất cả các cặp số nguyên trong tệp input.txt là phải có biến tệp f1 ở trước mọi câu lệnh đọc dữ liệu.

e) Chương trình có 2 lệnh đóng tệp. Không thể không đóng tệp , vì nếu không đóng thì dữ liệu đã thực hiện không thể lưu lại .

Nguyễn Lê Phước Thịnh
27 tháng 4 2020 lúc 21:32

Câu 1:

uses crt;
var s,k,tam:string;
dem,i:integer;
begin
clrscr;
write('nhap xau S:'); readln(s);
dem:= 1;
for i:=2 to length(s) do
begin
if s[i]=s[i-1] then inc(dem);
if s[i]<>s[i-1] then
begin
str(dem,tam);
if dem>1 then k:=k+tam+s[i-1]
else k:=k+ s[i-1];
dem:= 1;
end;
if i=length(s) then
begin
str(dem,tam);
if dem >1 then k:=k+tam+s[i]
else k:=k+s[i];
end;
end;
for i:=1 to length(k) do
write(k[i]);
readln;
end.

Giang Vũ
Xem chi tiết
Nguyễn Lê Phước Thịnh
4 tháng 4 2021 lúc 21:24

uses crt;

const fi='dulieu.txt'

var f1:text;

a,b,c,d:integer;

begin

clrscr;

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

readln(f1,a,b,c,d);

writeln(a*b*c*d);

close(f1);

readln;

end.