Viết chương trình nhập một xâu ký tự St từ bàn phím và một ký tự ch. In ra màn hình xâu

1.4 K

Tailieumoi.vn biên soạn và giới thiệu bộ câu hỏi Tin học gồm các kiến thức lý thuyết và thực hành, giúp học sinh ôn tập và bổ sung kiến thức cũng như hoàn thành tốt các bài kiểm tra môn Tin học. Mời các bạn đón xem:

Top 1000 câu hỏi thường gặp môn Tin học (Phần 5)

Câu 9: Viết chương trình nhập một xâu ký tự St từ bàn phím và một ký tự ch. In ra màn hình xâu St sau khi xóa hết các ký tự ch trong xâu đó.

Lời giải:

uses crt;

var i : byte; St : string; ch : char;

begin

clrscr;

write('Nhap xau ki tu : '); readln(St);

write('Nhap ki tu : '); readln(ch);

i := 1; while i <= length(St) do

begin if St[i] = ch then begin

delete(St, i, 1); i := i; end

else i := i + 1; end;

write('Xau moi : ', St);

readln

end.

Top 1000 câu hỏi thường gặp môn Tin học có đáp án (phần 5) (ảnh 3)

Đánh giá

0

0 đánh giá