Viết chương trình đọc dữ liệu từ tệp fi với tệp fi chứa dữ liệu là 1 xâu dữ liệu. Ghi kết quả vào tệp fo các kết quả sau khi xử lý xâu.a. Xâu vừa đọc được từ tệp fi, xâu chuyển thành chữ in hoab. Xâu...

LV

LA VAN CAU

24 tháng 4 2023

Viết chương trình đọc dữ liệu từ tệp fi với tệp fi chứa dữ liệu là 1 xâu dữ liệu. Ghi kết quả vào tệp fo các kết quả sau khi xử lý xâu.a. Xâu vừa đọc được từ tệp fi, xâu chuyển thành chữ in hoab. Xâu s1 được tạo gồm n kí tự liên tiếp của xâu s bắt đầu tại vt.c. Xâu sau khi xóa a kí tự của xâu s bắt đầu tại vị trí...

Đọc tiếp

#Tin học lớp 11

0

ND

nguyen dao

7 tháng 5 2021

Viết chương trình đọc xâu dữ liệu từ tệp vào vào. Xóa các kí tự ‘a’ trong xâu và in xâu sau khi đã xóa ra tệp kết quả

#Tin học lớp 11

1

NL

Nguyễn Lê Phước Thịnh

7 tháng 5 2021

const fi='vao.inp';

fo='ra.out';

var f1,f2:text;

st:string;

i,d:integer;

begin

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

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

readln(f1,st);

d:=length(st);

for i:=1 to d do

if st[i]='a' then delete(st,i,1);

writeln(f2,st);

close(f1);

close(f2);

end.

Đúng(1)

YH

Yến Hoang Thị Hải

22 tháng 4 2022

Viết chương trình đọc dữ liệu từ tệp Input.Txt 2 xâu. Viết kết quả vào tệp output.Txt xâu nào ngắn hơn. Nếu 2 xâu bằng nhau thì viết thông báo: “2 xâu bằng nhau”

#Tin học lớp 11

0

KM

Khánh Mỹ

21 tháng 4 2021

Viết chương trình đọc dữ liệu từ tệp Input.txt chứa một xâu có độ dài không quá 125 ký tự .Cho biết số lần xuất hiện của mỗi chữ cái Tiếng Anh trong xâu đã đọc được ( không phân chữ hoa thường). Ghi kết quả ra tệp Output.txt

#Tin học lớp 11

1

NL

Nguyễn Lê Phước Thịnh

21 tháng 4 2021

const fi='input.txt';

fo='output.txt';

var f1,f2:text;

st:string[125];

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

i,d,dem,kt,j:integer;

begin

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

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

readln(f1,st);

d:=length(st);

dem:=1;

a[1]:=st[1];

for i:=1 to d do

begin

kt:=0;

for j:=1 to dem do

if a[j]=st[i] then kt:=1;

if kt=0 then

begin

inc(dem);

a[dem]:=st[i];

end;

for i:=1 to dem do

begin

dem1:=0;

for j:=1 to d do

if a[i]=st[j] then inc(dem1);

writeln(f2,a[i],' xuat hien ',dem1,' lan');

end;

close(f1);

close(f2);

end.

Đúng(0)

H

hoanganh

8 tháng 5 2021

Cho tệp XAU.TXT chứa 1 xâu ký tự

Viết chương trình đọc dữ liệu từ tệp XAU.TXT ra xâu S

Kiểm tra xâu S có là xâu đối xứng ?

M.n ai bt chỉ giúp e với

#Tin học lớp 11

1

NL

Nguyễn Lê Phước Thịnh

8 tháng 5 2021

uses crt;

const fi='xau.txt';

var f1:text;

s:string;

i,d,kt:integer;

begin

clrscr;

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

readln(f1,s);

d:=length(s);

kt:=0;

for i:=1 to d do

if st[i]<>st[d-i+1] then kt:=1;

if kt=0 then writeln('Xau doi xung')

else writeln('Xau khong doi xung');

readln;

end.

Đúng(0)

UL

U Lan

21 tháng 4 2023

Cho tệp văn bản có tên DATA2.TXT chứa một xâu bất kì không quá 255 kí tự gồm các chữ và số. Viết chương trình đọc xâu kí tự S từ từ tệp DATA2.TXT sau đó ghi dữ liệu là các thông tin sau vào tệp KQ2.TXT:- Dòng 1: Số lần xuất hiện của kí tự "k" trong xâu?- Dòng 2: Số lượng kí tự là số xuất hiện trong S (giữ nguyên thứ tự xuất...

Đọc tiếp

#Tin học lớp 11

0

UL

U Lan

21 tháng 4 2023

Cho tệp văn bản có tên DATA2.TXT chứa một xâu bất kì không quá 255 kí tự gồm các chữ và số. Viết chương trình đọc xâu kí tự S từ từ tệp DATA2.TXT sau đó ghi dữ liệu là các thông tin sau vào tệp KQ2.TXT:- Dòng 1: Số lần xuất hiện của kí tự "k" trong xâu?- Dòng 2: Số lượng kí tự là số xuất hiện trong S (giữ nguyên thứ tự xuất...

Đọc tiếp

#Tin học lớp 11

0

UL

U Lan

21 tháng 4 2023

Cho tệp văn bản có tên DATA2.TXT chứa một xâu bất kì không quá 255 kí tự gồm các chữ và số. Viết chương trình đọc xâu kí tự S từ từ tệp DATA2.TXT sau đó ghi dữ liệu là các thông tin sau vào tệp KQ2.TXT:- Dòng 1: Số lần xuất hiện của kí tự "k" trong xâu?- Dòng 2: Số lượng kí tự là số xuất hiện trong S (giữ nguyên thứ tự xuất hiện)?Help me!!! Mai mk thi...

Đọc tiếp

#Tin học lớp 11

0

UL

U Lan

20 tháng 4 2023

Cho tệp văn bản có tên DATA2.TXT chứa một xâu bất kì không quá 255 kí tự gồm các chữ và số. Viết chương trình đọc xâu kí tự S từ từ tệp DATA2.TXT sau đó ghi dữ liệu là các thông tin sau vào tệp KQ2.TXT:- Dòng 1: Số lần xuất hiện của kí tự "k" trong xâu?- Dòng 2: Số lượng kí tự là số xuất hiện trong S (giữ nguyên thứ tự xuất...

Đọc tiếp

#Tin học lớp 11

0

CT

Cao Thị Hoa

4 tháng 5 2021

Gải sử có tệp văn bản KT.TXT chứa xâu kí tự không quá 255. Viết chương trình đọc dữ liệu trong tệp KT.TXT vào biến S. Thay thế tất cả các cụm kí tự "anh" bằng cụm kí tự "em". Ghi xâu sau khi được thay thế vào tệp KQ.OUT

giúp em với mai em thi rồi ạ

#Tin học lớp 11

1

NL

Nguyễn Lê Phước Thịnh

5 tháng 5 2021

const fi='kt.txt';

fo='kq.out';

var f1,f2:text;

s:string;

i,dem,d:integer;

begin

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

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

readln(f1,s);

vt:=pos('anh',s);

while vt<>0 do

begin

delete(s,vt,3);

insert(s,vt,'em');

vt:=pos('anh',s);

end;

writeln(f2,s);

close(f1);

close(f2);

end.

Đúng(0)

Chúng tôi đề xuất

Tài nguyên

Ứng dụng mobile

Bảng xếp hạng

Các khóa học có thể bạn quan tâm

Yêu cầu VIP