Tin học pascal | Chương trình thay "i" thành "y"

[Pansyty]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Viết chương trình nhập tư bàn phím xâu kí tự S có độ dài không quá 100. Thay thế tất cả các kí tự 'i' trong xâu S bằng kí tự 'y'. Free pascal

 

[trà nguyễn hữu nghĩa]

Viết chương trình nhập tư bàn phím xâu kí tự S có độ dài không quá 100. Thay thế tất cả các kí tự 'i' trong xâu S bằng kí tự 'y'. Free pascal

cái đoạn USES CRT, BEGIN các kiểu mình lười lắm nha

var s : string;
       i : integer;
begin
    clrscr;
    readln(s);
    for i := 0 to length(s) do
    begin
        if s[i] = 'i' then s[i] = 'y';
    end;
    writeln(s);
    readln;
end.

 

[Duy Quang Vũ 2007]

Chương trình đầy đủ nó có dạng như sau:
program Tu_dat_ten;
uses Crt;
var i:byte;
S:string[100];
begin
clrscr;
write('Nhap xau S: '); readln(S);
for i:=1 to length(S) do
if S='i' then S:='y';
write(S);
readln
end.

 

[khanhduy2311]

Chương trình đầy đủ nó có dạng như sau:
program Tu_dat_ten;
uses Crt;
var i:byte;
S:string[100];
begin
clrscr;
write('Nhap xau S: '); readln(S);
for i:=1 to length(S) do
if S='i' then S:='y';
write(S);
readln
end.

chỗ if S='i' then S:='y' thay là if s{i}='i' then s{i}:='y'
thay dau {} bang [] nha