Bài 11: Kiểu mảng

SAN MISHINYA

Câu hỏi: cho tệp xau. Inp chứa 1 dãy kí tự trên nhiều dòng. Viết chương trình đọc dãy kí tự vào 1 xâu và ghi kết quả vào tệp xấu. Out chỉ chứa kí tự 'a'?

Giúp e vs ạ

Nguyễn Lê Phước Thịnh
13 tháng 5 2020 lúc 11:29

const fi='xau.inp';
fo='xau.out';
var f1,f2:text;
st:array[1..100]of string;
i,d:integer;
st1:shortstring;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
d:=0;
while not eof(f1) do
begin
inc(d);
readln(f1,st[d]);
end;
st1:='';
for i:=1 to d do
st1:=st1+st[i];
for i:=1 to length(st1) do
if st1[i]='a' then write(f2,st1[i]:4);
close(f1);
close(f2);
end.

Bình luận (0)

Các câu hỏi tương tự
Phan Thị T.Chinh
Xem chi tiết
Hoangf Thu
Xem chi tiết
Mai Mai
Xem chi tiết
Tưởng Ruy Thành
Xem chi tiết
trần nguyễn tuyết trinh
Xem chi tiết
Hoàng Trần Thanh Hà _THP...
Xem chi tiết
Phụng Đặng
Xem chi tiết
Vương Tuấn Đạt
Xem chi tiết
Nguyen Nhi
Xem chi tiết