Mấy chế nghe debut song của TXT chưa? Hay hông...T bắt đầu sắp trở thành fan của TXT mất ròi!
Cho 2 tệp văn bản nguyen1.TXT , nguyen2.TXT . Mỗi dòng của 2 tệp chứa 1 số nguyên . Hãy lập trình tạo tệp 1 văn bản chứa nguyen1.TXT , nguyen2TXT . Những dòng đầu tiên là các dòng của nguyen1.TXT , còn lại là nguyen2.TXT
const fi1='nguyen1.txt'
fi2='nguyen2.txt'
fo='nguyen.txt'
var f1,f2,f3:text;
a,b:array[1..100]of integer;
n,m,i:integer;
begin
assign(f1,fi1); reset(f1);
assign(f2,fi2); reset(f2);
assign(f3,fo); rewrite(f3);
n:=0;
while not eof(f1) do
begin
inc(n);
readln(f1,a[n]);
end;
m:=0;
while not eof(f2) do
begin
m:=m+1;
readln(f1,b[m]);
end;
for i:=1 to n do
writeln(f3,a[i]);
for i:=1 to m do
writeln(f3,b[i]);
close(f1);
close(f2);
close(f3);
end.
Ựa , cs fan của TXT kìa , add fr đuy!
Cho tệp dulieuvao txt chứa dãy số nguyên viết chương trình đọc dãy số đó,sắp xếp thành tăng dần rồi ghi kết quả đó vào dulieura txt
ai có thể giúp mình được không ạ
Do you know Cúc Tịnh Y?
Are you a Oh my Girl fan?
Are you a Txt fan?
What is your favorite song?
Thank you mn nha!♡
Cúc Tịnh Y là ai
Txt là gì
1. No, I don't.
2. No, I am.
3. No, I am.
4. My favourite song is Kimi Ga Ireba.
làm cái gì bạn
nếu trả lời thì
yes,i know
no,i do not know them
my favorite song is HOW DO YOU THAT
Cho một chuỗi dài tối đa 255 kí tự. Tìm 1 đọan có các kí tự liên tiếp giống nhau và dài nhất
Dữ liệu đầu vào được lưu trong tệp xau1.txt có 1 dòng là chuỗi kí tự
Kết quả ghi vào tệp xau2.txt ghi 2 số nguyên tương ứng là chỉ số bắt đầu và chỉ số kết thúc của đoạn tìm được trên cùng một dòng được cách nhau bằng dấu hai chấm
vd:
xau1.txt | xau2.txt |
abcaaaaddccccccaaad | 10:16 |
var f:text;
s:string;
i,dem,max,dau,cuoi:byte;
begin
assign(f,'xau1.txt'); reset(f);
readln(f,s);
close(f);
assign(f,'xau2.txt'); rewrite(f);
dem:=1; max:=1; dau:=1; cuoi:=1;
for i:=1 to length(s)-1 do
begin
if s[i]=s[i+1] then inc(dem) else dem:=1;
if dem>max then
begin
max:=dem;
cuoi:=i+2;
dau:=cuoi-dem;
end;
end;
write(f,dau,':',cuoi);
close(f);
readln;
end.
Program hotrotinhoc;
const fi='xau1.txt';
fo='xau2.txt';
var
f:text;
s:string;
i,d,c,j:byte;
procedure ip;
begin
assign(f,fi);
reset(f);
read(f,s);
close(f);
end;
procedure out;
begin
assign(f,fo);
rewrite(f);
j:=0;
for i:= 1 to length(s) do
begin
if j=0 then j:=i;
if s[i] <> s[i+1] then
begin
if ((i-j)+1)>((c-d)+1) then
begin
d:=j;
c:=i;
end;
j:=0;
end;
end;
write(f,d,':',c);
close(f);
end;
BEGIN
ip;
out;
END.
16 là đến chữ a không phải chữ c mà. Nếu bạn muốn in ra 16 thì chỉ cần write(f,d,':',c+1);
const fi='xau1.txt';
fo='xau2.txt';
var
f:text;
s:string;
i,d,c,j:byte;
procedure ip;
begin
assign(f,fi);
reset(f);
read(f,s);
close(f);
end;
procedure out;
begin
assign(f,fo);
rewrite(f);
j:=0;
for i:= 1 to length(s) do
begin
if j=0 then j:=i;
if s[i] <> s[i+1] then
begin
if ((i-j)+1)>((c-d)+1) then
begin
d:=j;
c:=i;
end;
j:=0;
end;
end;
write(f,d,':',c);
close(f);
end;
BEGIN
ip;
out;
END.
1) Cau lenh de gan ten tep 'bai1.txt', cho bien tep f la:
A. assign(bai1.txt,f); B. assign(f,bai1.txt);
C. assign('bai1.txt',f); D. assign(f,'bai1.txt');
Đọc tệp sẵn là Data(I).txt bên trong có 24 chữ số có cả âm và dương. Tính tổng 24 chữ số rồi in ra Data(O).txt . Các bác giúp em với program day_so; uses crt; Const fi=('An(I).txt'); fo=('An(O).txt'); var i,t,s,n: integer; f1,f2:text; a: array[1..24] of integer; begin clrscr; assign(f1,fi);reset(f1); assign(f2,fo);rewrite(f2); s:=0; for i:=1 to 24 do begin read(f1,a[i]); s:=s+a[i]; end; write(f2,s); close(f1); close(f2); readln end. Em không biết sai ở đâu ☹️
Tại vì cái này là xuất ra file nên bạn hãy bỏ cái uses crt; clrscr; readln là sẽ chạy rất tốt
viết bài văn nói về thần tương mà em yêu thik( idol tùy các bạn tả nhé)
Hoặc nếu ko thì bạn tả theo H.Kai(TXT) hay Hoshi(SVT) cũng đc ạ!!!
Cảm ơn nha mấy bồ.
=> Mk tự làm, có gì sai sót mg bạn thông cảm (còn nhiều bài lắm)
This is my idol. She is JENNIE. She comes from Korean. She is 27 years old. She works in YG ENT. She is a member of BLACKPINK and she is main rapper in BLACKPINK. She started working as a YG ENT trainess at the age of 16. She sings very well. Her favourite colour is pink. She is so cute.
B2: about WONYOUNG
My idol is Wonyoung. Her full name is Jang Wonyoung. She is 19 years old. She is Korean. She was a member of IZ*ONE from 2016 to 2020, and she is a member of IVE from 2021 to present. She is visual of group. The company she works is Starship ENT. She doesn't have a good voice but I like her
B3: (còn nhiều nhx mk chỉ lm đc tưng đây thui ạ)
.... câu gt. His name is Chen Zhe Yuan. He is 27 years old. He is from China. He is Chinese. He is an actor. His birthday is on 29/10/1996. His height is 180cm. .....
Nhập số nguyên dương N(N<=100).viết chương trình tính tổng các số chia hết cho 5 trong phạm vi của N và lưu hay ghi trong tệp 'tong5.Txt' sao cho dòng đầu ghi số nguyên N dòng 2 ghi kết quả vừa tính đc
a)
PROGRAM BAI1a;
VAR N, Tle, Tchan: integer;
BEGIN
Write ('Nhap N =');
Readln (N);
If (N mod 2) = 0 Then
Tle := N*((N - 2)/2 + 1)/2;
Tchan := (N + 2)*((N - 2)/2 + 1)/2;
If (N mod 2) = 1 Then
Tle := (N + 1)*((N-1)/2 +1)/2;
Tchan := (N + 1)*((N - 3)/2 + 1)/2;
WRITELN ('Sle =', Sle, 'Schan =', Schan);
READLN;
END.
uses crt;
const fi='tong5.txt'
var f1:text;
n,i,t:integer;
begin
clrscr;
assign(f1,fi); rewrite(f1);
write('Nhap n='); readln(n);
t:=0;
for i:=1 to n do
if i mod 5=0 then t:=t+i;
writeln(f1,t);
close(f1);
readln;
end.