Nhập xâu họ tên từ bàn phím đếm số từ trong xâu
XÂU KÍ TỰBài 1 :Lập trình đếm số lần xuất hiện ở mỗi loại kí tự thuộc bảng chữ cái tiếng Anh trong một xâu kí tự Str . Bài 2 :Cho số tự nhiên n và xâu có độ dài n . Hãy biến đổi xâu đã cho bằng cách thay đổi trong đó :a. Tất cả các dấu ! bằng dấu chấm .b. Mỗi một nhóm các dấu chấm liền nhau bằng một dấu chấm .c. Một nhóm các dấu chấm đứng liền nhau bằng dấu ba chấm .Bài 3 :Cho số tự nhiên n và một dãy các kí tự S1 , S2 , … , Sn . Hãy tìm số tự nhiên I đầu tiên sao cho các kí tự Si , Si+1 đều là chữ cái a . Nếu trong dãy không có những cặp như vậy thì thông báo . Bài 4 :Cho số tự nhiên n và dãy các kí tự S1 , S2 , … , Sn . Biết rằng trong dãy có ít nhất một dấu phẩy . Hãy tìm số tự nhiên i sao cho :a. Si là dấu phẩy đầu tiên . b. Si là dấu phầy cuối cùng . Bài 5 :Viết chương trình nhập một xâu kí tự , sau đó chỉ ra xem xâu đó có phải là xâu đối xứng không ( xâu đối xứnglà xâu có các kí tự giống nhau và đối xứng nhau qua điểm giữa xâu , ví dụ ‘ABBA’ hoặc ‘ABCBA’ ) .Bài 6 :Cho một xâu kí tự S . Hãy viết chương trình tính xem trong S có bao nhiêu loại kí tự khác nhau ( phân biệt chữ in hoa với chữ in thường ) . Ví dụ với S là “Pascal” ta có đáp số là 5 .Bài 7 :Viết chương trình nhập một xâu kí tự và biến đổi chúng thành toàn chữ in hoa .Bài 8 :Họ tên một học sinh được nhập từ bàn phím . Bạn hãy viết chương trình điều chỉnh lại các kí tự đầu của các từ đơn trong tên của học sinh ấy trở thành chữ in hoa .Bài 9 :Viết chương trình nhập xãu kí tự từ bàn phím , sau đó gọt xâu lại bằng cách cách xoá đi các kí tự trống ở hai đầu của xâu . Ví dụ nếu nhập xâu “ Ha noi “ , thì kết quả sẽ là “Ha noi” .ĐP N:B1Var A: array [ 'A' 'Z'] of integer; S: string; ch: char; i: integer; BEGIN Write(' Cho mot xau ki tu : '); Readln(s); For ch:= 'A' to 'Z' do A[ch]:=0; For i:=1 to length(s) do Begin If Upcase(S[i]) in (['A' 'Z']) then Begin S[i]:= Upcase(S[i]); A[S[i]]:= A[S[i]]+1; End; End; For ch:= 'A' to 'Z' do Writeln('So lan xuat hien cua ',ch,' trong xau la: ', A[ch]:4) ; Readln ; END .B2aVar S: string; i: byte; BEGIN Write(' Cho mot xau ki tu S = '); Readln(S); For i:=1 to length(S) do If S[i] = '!' then S[i]:= '.'; Write( ' Chuoi sau khi da bien doi la : ', S); Readln; END .B2bUses crt; Var S : string; i : byte; BEGIN Clrscr; Write(' Cho mot xau ki tu S = '); Readln(S); i:=1; While i< length(S) do If (S[i]='.')and(S[i+1]='.') then Delete(S,i,1) Else inc(i); Write('Chuoi sau khi da bien doi la: ' ,S); Readln; END .B2cUses crt; Var S: string; i, j: byte; BEGIN Clrscr; Write('Nhap xau S='); Readln(S); i:=1; While i<=Length(S) do Begin If S[i]='.' then Begin j:=i; While (S[i]='.')and(i<=length(S)) do inc(i); dec(i); If (i-j)=1 then insert('.',S,i) Else If (i-j)>2 then Begin Delete(S,j+2,i-j-2); i:=j+1; End; End ; Inc(i); End; Write('Chuoi sau khi bien doi la: ',S); Readln; END .B3Var S: string; i: integer; BEGIN Write(' Cho mot xau ki tu : '); Readln(S); i:= pos('aa', S); {tìm vị trí xâu con 'aa' trong S} If i<>0 then Writeln(' Ton tai "aa" tai vi tri ', i) Else Writeln(' Khong ton tai .') ; Readln; END .B4a Var S: string; i: integer; BEGIN Write('Cho mot xau S co dau ",": '); Readln(S); i:= pos(',', S); (* vị trí của dấu ',' trong S *) If i<> 0 then Write(' Vi tri thoa man la: ', i); Readln; END .B4bVar S: string; i: integer; BEGIN Write('Cho mot xau S co dau ",": '); Readln(S); i:= length(S); While (i>=1)and(S[i] <> ',' ) do i:=i -1; If i>=1 then Write('So thu tu thoa man la: ', i) Else Write('Khong ton tai.'); Readln; END .B5Uses Crt; Var St : string; dx : Boolean; i, len: byte; BEGIN Clrscr; Write(' Nhap xau St = '); Readln(St); dx:= True; i:=1; len:= Length(St); While dx and (i<=(len div 2)) do Begin dx:=(St[i] = St[len - i+1]); inc(i); End; If dx then Write(' St la xau doi xung ') Else Write(' St khong phai la xau doi xung ') ; Readln; END .B6Var S: string; i, j, dem: integer; t: boolean; BEGIN Write('Cho mot xau ki tu S: '); Readln(S); dem:=0; For i:=1 to length(S) do Begin t:=false; For j:=1 to i-1 do if (S[j]=S[i]) then t:=true; If not t then dem:= dem+1; End; Write('So ki tu khac nhau cua xau S la: ', Dem); Readln; END .B7Var S : string; i : integer; BEGIN Write('Cho mot xau ky tu: '); Readln(S); For i:=1 to length(S) do If S[i] in ['a' 'z'] then S[i]:= Upcase(S[i]); Write('Chuoi sau khi da bien doi la: ', S); Readln; END .B8Uses crt; Const Chu=['a' 'z']; Var Hoten: string; i,len: byte; BEGIN Clrscr; Write('Ho ten='); Readln(Hoten); Len:=length(Hoten); If Hoten[1] in Chu then Hoten[1]:=Upcase(Hoten[1]); For i:=2 to len do If (Hoten[i-1]=#32)and(Hoten[i] in Chu) then Hoten[i]:=Upcase(Hoten[i]); Write('Ho ten sau khi dieu chinh la: ', Hoten); Readln; END .B9Var S: String; BEGIN Write('Cho mot xau ky tu: '); Readln(S); While S[1] = #32 do Delete(S,1,1); While (S[length(S)] = #32) do Delete(S,length(S),1); Write('Chuoi sau khi da bien doi la: ', S); Readln; END . Show
Bạn có thể dùng các ngôn ngữ bàn phím khác nhau (đôi khi còn gọi là phương thức nhập) trên Chromebook để: Nếu thêm nhiều ngôn ngữ bàn phím, bạn có thể chuyển đổi giữa các ngôn ngữ từ kệ, bên cạnh thời gian. Mẹo: Bạn cũng có thể chuyển đổi ngôn ngữ bằng cách nhấn đồng thời Ctrl + Shift + phím cách cho tới khi nhìn thấy ngôn ngữ mà mình muốn. Để quay về ngôn ngữ trước đó, hãy nhấn đồng thời Ctrl + phím cách. Bàn phím quốc tế Hoa Kỳ có các dấu nhấn trọng âm sau:
Dùng các tổ hợp phím sau đây để nhập các ký tự quốc tế cụ thể trên bàn phím quốc tế Hoa Kỳ. Lưu ý quan trọng: Phím AltGr là phím Alt ở bên phải bàn phím.
Thông tin này có hữu ích không? Chúng tôi có thể cải thiện trang này bằng cách nào? Top 1 ✅ Viết chương tình nhập từ bàn phím một xâu kí tự S và thông báo ra màn hình số lần xuất hiện của mỗi chữ cái tiêng Anh trong S (không phân biệt chữ hoa nam 2022 được cập nhật mới nhất lúc 2021-12-31 02:49:53 cùng với các chủ đề liên quan khác Viết chương tình nhập từ bàn phím một xâu kí tự S ѵà thông báo ra màn hình số lần xuất hiện c̠ủa̠ mỗi chữ cái tiêng Anh trong S (không phân biệt chữ hoaHỏi: Viết chương tình nhập từ bàn phím một xâu kí tự S ѵà thông báo ra màn hình số lần xuất hiện c̠ủa̠ mỗi chữ cái tiêng Anh trong S (không phân biệt chữ hoaViết chương tình nhập từ bàn phím một xâu kí tự S ѵà thông báo ra màn hình số lần xuất hiện c̠ủa̠ mỗi chữ cái tiêng Anh trong S (không phân biệt chữ hoa hay chữ thường).Đề này nhưng muốn thông báo ra màn hình số lần xuất hiện c̠ủa̠ tất cả các chữ cái từ a-z ra luôn thì phải Ɩàm sao ạ?? Mình đang cần gấp ạ mong các bạn giúp đỡ Đáp: baothah:uses crt;var s:string;a:array[‘A’..’Z’] of longint;x:char;i:longint;beginclrscr;readln(s);for i:=1 to length(s) dobeginx:=upcase(s[i]);if x in[‘A’..’Z’] then a[x]:=a[x]+1;end;for x:=’A’ to ‘Z’ do if a[x]>0 then writeln(x,’ ‘,a[x]);readln end. baothah:uses crt;var s:string;a:array[‘A’..’Z’] of longint;x:char;i:longint;beginclrscr;readln(s);for i:=1 to length(s) dobeginx:=upcase(s[i]);if x in[‘A’..’Z’] then a[x]:=a[x]+1;end;for x:=’A’ to ‘Z’ do if a[x]>0 then writeln(x,’ ‘,a[x]);readln end. uses crt;var s:string;a:array[‘A’..’Z’] of longint;x:char;i:longint;beginclrscr;readln(s);for i:=1 to length(s) dobeginx:=upcase(s[i]);if x in[‘A’..’Z’] then a[x]:=a[x]+1;end;for x:=’A’ to ‘Z’ do if a[x]>0 then writeln(x,’ ‘,a[x]);readln end. Viết chương tình nhập từ bàn phím một xâu kí tự S ѵà thông báo ra màn hình số lần xuất hiện c̠ủa̠ mỗi chữ cái tiêng Anh trong S (không phân biệt chữ hoaXem thêm : ... Vừa rồi, baoseoul.com đã gửi tới các bạn chi tiết về chủ đề Viết chương tình nhập từ bàn phím một xâu kí tự S và thông báo ra màn hình số lần xuất hiện của mỗi chữ cái tiêng Anh trong S (không phân biệt chữ hoa nam 2022 ❤️️, hi vọng với thông tin hữu ích mà bài viết "Viết chương tình nhập từ bàn phím một xâu kí tự S và thông báo ra màn hình số lần xuất hiện của mỗi chữ cái tiêng Anh trong S (không phân biệt chữ hoa nam 2022" mang lại sẽ giúp các bạn trẻ quan tâm hơn về Viết chương tình nhập từ bàn phím một xâu kí tự S và thông báo ra màn hình số lần xuất hiện của mỗi chữ cái tiêng Anh trong S (không phân biệt chữ hoa nam 2022 [ ❤️️❤️️ ] hiện nay. Hãy cùng baoseoul.com phát triển thêm nhiều bài viết hay về Viết chương tình nhập từ bàn phím một xâu kí tự S và thông báo ra màn hình số lần xuất hiện của mỗi chữ cái tiêng Anh trong S (không phân biệt chữ hoa nam 2022 bạn nhé. Bài tập xâu cơ bản trong PascalBạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (641.31 KB, 29 trang ) KIỂU DỮ LIỆU CÓ CẤU TRÚC TRONG PASCALBÀI TẬP XÂUCƠ BẢN-NÂNG CAOGV: Phạm Thị Bích TườngEmail: THÀNH PHỐ HỒ CHÍ MINH - 20181MỤC LỤCBÀI TẬP CƠ BẢN .................................................................................................................... 3Bài tập 1: Nhập xâu kí tự bất kì ......................................................................................... 3a)Đếm số lần xuất hiện của 1 kí tự nào đó trong câu. ............................................... 3b)Liệt kê các kí tự có mặt trong xâu cùng số lần xuất hiện của các kí tự đó. ...... 3Bài 2: Nhập 1 xâu kí tự. ....................................................................................................... 3a)Xét xem trong xâu có K kí tự kề nhau mà như nhau hay không? .................... 3b)Hãy xóa đi kí tự kề nhau mà như nhau, chỉ giữ lại một. .................................... 3Bài 3: Nhập 1 xâu kí tự. Kiểm tra tính đối xứng của xâu đó. Nếu xâu không đốixứng thì đảo xâu. .............................................................................................................. 4Bài 4: Cho 1 xâu kí tự. Tính xem trong số đó có bao nhiêu loại kí tự khác nhau (không phân biệt in hoa hay in thường). ......................................................................... 5Bài 5: Cho 1 xâu kí tự bất kì, tính: Số lượng các kí tự số, Số lượng các kí tự chữ cái............................................................................................................................................. 6Bài 6: Cho 1 xâu kí tự bất kì (cả số lẫn chữ). Viết chương trình tách các phần là số |