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

Thảo luận trong 'Tin học cấp III' bắt đầu bởi Pansyty, 13 Tháng tư 2021.

Lượt xem: 172

  1. Pansyty

    Pansyty Học sinh Thành viên

    Bài viết:
    150
    Điểm thành tích:
    36
    Nơi ở:
    Cà Mau
    Trường học/Cơ quan:
    ho thi ky
    Sở hữu bí kíp ĐỖ ĐẠI HỌC ít nhất 24đ - Đặt chỗ ngay!

    Đọc sách & cùng chia sẻ cảm nhận về sách số 2


    Chào bạn mới. Bạn hãy đăng nhập và hỗ trợ thành viên môn học bạn học tốt. Cộng đồng sẽ hỗ trợ bạn CHÂN THÀNH khi bạn cần trợ giúp. Đừng chỉ nghĩ cho riêng mình. Hãy cho đi để cuộc sống này ý nghĩa hơn bạn nhé. Yêu thương!

    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
     
  2. trà nguyễn hữu nghĩa

    trà nguyễn hữu nghĩa Mod Vật Lí |Cây bút Thơ|Thần tượng VH Cu li diễn đàn

    Bài viết:
    3,073
    Điểm thành tích:
    719
    Nơi ở:
    Phú Yên
    Trường học/Cơ quan:
    Trường THPT Lương Văn Chánh

    cái đoạn USES CRT, BEGIN các kiểu mình lười lắm nha :D
    Mã:
    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.
     
  3. Duy Quang Vũ 2007

    Duy Quang Vũ 2007 Học sinh Thành viên

    Bài viết:
    144
    Điểm thành tích:
    36
    Nơi ở:
    Quảng Ninh
    Trường học/Cơ quan:
    THCS Chu Văn An

    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.
     
  4. khanhduy2311

    khanhduy2311 Học sinh mới Thành viên

    Bài viết:
    9
    Điểm thành tích:
    6
    Nơi ở:
    Bình Định
    Trường học/Cơ quan:
    Trường Trung học cơ sở An Hòa

    chỗ if S='i' then S:='y' thay là if s{i}='i' then s{i}:='y'
    thay dau {} bang [] nha
     
    kaede-kun thích bài này.
Chú ý: Trả lời bài viết tuân thủ NỘI QUY. Xin cảm ơn!

Draft saved Draft deleted

CHIA SẺ TRANG NÀY