Viết Chương Trình Nhập Vào 1 Xâu Kí Tự S Từ Bàn Phím. A) Tạo ... - Hoc24

HOC24

Lớp học Học bài Hỏi bài Giải bài tập Đề thi ĐGNL Tin tức Cuộc thi vui Khen thưởng
  • Tìm kiếm câu trả lời Tìm kiếm câu trả lời cho câu hỏi của bạn
Đóng Đăng nhập Đăng ký

Lớp học

  • Lớp 12
  • Lớp 11
  • Lớp 10
  • Lớp 9
  • Lớp 8
  • Lớp 7
  • Lớp 6
  • Lớp 5
  • Lớp 4
  • Lớp 3
  • Lớp 2
  • Lớp 1

Môn học

  • Toán
  • Vật lý
  • Hóa học
  • Sinh học
  • Ngữ văn
  • Tiếng anh
  • Lịch sử
  • Địa lý
  • Tin học
  • Công nghệ
  • Giáo dục công dân
  • Tiếng anh thí điểm
  • Đạo đức
  • Tự nhiên và xã hội
  • Khoa học
  • Lịch sử và Địa lý
  • Tiếng việt
  • Khoa học tự nhiên
  • Hoạt động trải nghiệm
  • Hoạt động trải nghiệm, hướng nghiệp
  • Giáo dục kinh tế và pháp luật

Chủ đề / Chương

Bài học

HOC24

Khách Khách vãng lai Đăng nhập Đăng ký Khám phá Hỏi đáp Đề thi Tin tức Cuộc thi vui Khen thưởng
  • Lớp 11
  • Tin học lớp 11
  • Kiểu dữ liệu có cấu trúc

Chủ đề

  • Bài 11: Kiểu mảng
  • Bài 13: Kiểu bản ghi
  • Bài 12: Kiểu xâu
Bài 12: Kiểu xâu
  • Lý thuyết
  • Trắc nghiệm
  • Giải bài tập SGK
  • Hỏi đáp
  • Đóng góp lý thuyết
Hãy tham gia nhóm Học sinh Hoc24OLM Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Câu hỏi

Hủy Xác nhận phù hợp Nhân Mai
  • Nhân Mai
9 tháng 5 2020 lúc 14:54

Viết chương trình nhập vào 1 xâu kí tự s từ bàn phím.

a) Tạo xâu mới, lấy tất cả kí tự chữ số trong xâu s. Xóa tất cả kí tự "a" và "b" trong xâu s.

b) thay thế cụm từ "tin" bằng cụm từ "tin học" trong s.

Giúp em với mọi người ơiiii

Lớp 11 Tin học Bài 12: Kiểu xâu 1 0 Khách Gửi Hủy Nguyễn Lê Phước Thịnh Nguyễn Lê Phước Thịnh CTV 9 tháng 5 2020 lúc 18:03

uses crt; var s,st,st1:string; d,i,vt,dem:integer; a:array[1..255]of integer; begin clrscr; write('nhap xau S:'); readln(s); d:=length(s); st:=''; for i:=1 to d do if s[i] in ['0'..'9'] then st:=st+s[i]; writeln('Xau moi vua duoc tao la: ',st); write('Xau ',s,' sau khi xoa cac ki tu a va b la:'); for i:=1 to d do if (s[i]<>'a') and (s[i]<>'b') then write(s[i]); writeln; st1:='tin'; vt:=pos(st1,s); if vt=0 then writeln(s) else begin inc(dem); a[dem]:=vt; end; if dem>0 then begin for i:=1 to dem do begin delete(s,a[i],3); insert('tin hoc',s,a[i]); end; writeln(s); end; readln; end.

Đúng 0 Bình luận (0) Khách Gửi Hủy Các câu hỏi tương tự

Từ khóa » Viết Chương Trình Nhập 1 Xâu Kí Tự