Viết Chương Trình Nhập Vào Một Xâu Và In Ra 1 Xóa Ký Tự Trắng Thay ...

Có thể bạn quan tâm

Tìm×

Tìm kiếm với hình ảnh

Vui lòng chỉ chọn một câu hỏi

Tìm đáp án

- Đăng nhập
- |
- Đăng ký

Hoidap247.com Nhanh chóng, chính xác

Hãy đăng nhập hoặc tạo tài khoản miễn phí!

Đăng nhậpĐăng ký

Đặt câu hỏi

logo

Lưu vào

+
Danh mục mới

Lưu

ZhuanWin
Chưa có nhóm

Trả lời
224
Điểm
7721
Cảm ơn
107

Tin Học
Lớp 11
40 điểm
ZhuanWin - 19:12:33 10/03/2022

Viết chương trình nhập vào một xâu và in ra

1 Xóa ký tự trắng thay bằng kí tự A và đếm số kí tự trắng trong xâu ( viết trong 1 bài pascal)

2. Xâu không còn ký tự trắng dư thừa.

Hỏi chi tiết
Báo vi phạm

Hãy luôn nhớ cảm ơn và vote 5* nếu câu trả lời hữu ích nhé!

TRẢ LỜI

trumtinhoc
Chưa có nhóm

Trả lời
1986
Điểm
472
Cảm ơn
1609

trumtinhoc

Câu trả lời hay nhất!
10/03/2022

câu 1:

uses crt;

var s: string;

i,d: byte;

begin

Write ('nhap xau s: '); readln (s);

d:=0;

for i:=1 to length(s) do

if s[i]=' ' then begin s[i]:='A'; inc(d); end;

writeln ('xau sau khi thay the: ',s);

writeln ('so ki tu trang trong xau la: ',d);

readln;

end.

câu 2:

uses crt;

var s: string;

begin

clrscr;

write ('nhap s: '); readln (s);

while s[1]=#32 do delete(s,1,1);

while s[length(s)]=#32 do delete (s,length(s),1);

while pos (' ',s)<>0 do

delete (s,pos(' ',s),1);

writeln ('xau khong con ki tu trang du thua la: ',s);

readln;

end.

Hãy giúp mọi người biết câu trả lời này thế nào?

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar5starstarstarstarstar2 voteGửiHủy

Cảm ơn
Báo vi phạm

- ZhuanWin
- Chưa có nhóm
- Trả lời
  224
- Điểm
  7721
- Cảm ơn
  107
Bạn ơi đề là 2 câu mà
- trumtinhoc
- Chưa có nhóm
- Trả lời
  1986
- Điểm
  472
- Cảm ơn
  1609
à :))
- ZhuanWin
- Chưa có nhóm
- Trả lời
  224
- Điểm
  7721
- Cảm ơn
  107
Câu 2 #32 là j ạ
- trumtinhoc
- Chưa có nhóm
- Trả lời
  1986
- Điểm
  472
- Cảm ơn
  1609
là kí tự dấu cách ý
- trumtinhoc
- Chưa có nhóm
- Trả lời
  1986
- Điểm
  472
- Cảm ơn
  1609
xin hay nhất ạ
- ZhuanWin
- Chưa có nhóm
- Trả lời
  224
- Điểm
  7721
- Cảm ơn
  107
Bạn ơi cho mik hỏi câu 1 ''inc'' nghĩa là j ạ
- trumtinhoc
- Chưa có nhóm
- Trả lời
  1986
- Điểm
  472
- Cảm ơn
  1609
inc(d); tương đương với d:=d+1;
- ZhuanWin
- Chưa có nhóm
- Trả lời
  224
- Điểm
  7721
- Cảm ơn
  107
Mik cảm ơn

Đăng nhập để hỏi chi tiết avatar

Hantukiet
Chưa có nhóm

Trả lời
438
Điểm
366
Cảm ơn
246

Hantukiet

10/03/2022

program vandat;uses crt;var st : string;i : integer;begin clrscr;write('Nhap xau ki tu :'); readln(st);for i:=1 to length(st) do if st[i]=#32 then delete(st,i,1);writeln('Xau khi da xoa ki tu trang :',st);writeln('Xau co ',length(st),' ki tu');writeln('Ki tu dau tien cua xau :',st[1]);writeln('Ki tu cuoi cua xau :', st[length(st)]);readlnend.

Hãy giúp mọi người biết câu trả lời này thế nào?

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar5starstarstarstarstar1 voteGửiHủy