tag:blogger.com,1999:blog-5960836988659640122.post4516021738626356961..comments2024-03-27T20:35:49.022+07:00Comments on Code Pascal - Bai tap Pascal - Hoc Pascal truc tuyen - Tin hoc 11: Đếm số lần xuất hiện của mỗi chữ cái trong xâuĐô Rê Mon ĐZhttp://www.blogger.com/profile/15083814602565259047noreply@blogger.comBlogger21125tag:blogger.com,1999:blog-5960836988659640122.post-26045354400538781152019-07-13T09:35:24.562+07:002019-07-13T09:35:24.562+07:00Như con cakNhư con cakAnonymousnoreply@blogger.comtag:blogger.com,1999:blog-5960836988659640122.post-14837994598248248642019-03-20T23:00:58.733+07:002019-03-20T23:00:58.733+07:00Viết chương trình này giúp mình với ạ: Nhập vào mộ...Viết chương trình này giúp mình với ạ: Nhập vào một xâu S bất kỳ, thông báo ra màn hình số lần xuất hiện của mỗi chữ số trong S?Anonymoushttps://www.blogger.com/profile/11093709336544990816noreply@blogger.comtag:blogger.com,1999:blog-5960836988659640122.post-82846528748549398122018-06-30T19:18:47.054+07:002018-06-30T19:18:47.054+07:00thế thì đếm xem trong chuỗi có bao nhiêu chữ n thì...thế thì đếm xem trong chuỗi có bao nhiêu chữ n thì làm sao Anonymousnoreply@blogger.comtag:blogger.com,1999:blog-5960836988659640122.post-10427951894248090452017-06-28T07:50:48.273+07:002017-06-28T07:50:48.273+07:00ccccAnonymousnoreply@blogger.comtag:blogger.com,1999:blog-5960836988659640122.post-6455039601437469212017-05-14T11:06:18.848+07:002017-05-14T11:06:18.848+07:00Đáp án: Số lần xuất hiện nhiều nhất của 1 kí tự tr...Đáp án: Số lần xuất hiện nhiều nhất của 1 kí tự trong chuổi.<br />uses crt;<br />var st:string[255];<br /> max, dem,i:byte;<br /> tam,ch:char;<br />begin<br /> clrscr;<br /> write('nhap chuoi st: ');readln(st);<br /> max:=0;<br /> for i:=1 to length(st) do<br /> st[i]:=upcase(st[i]);<br /> for ch:='A' to 'Z' do<br /> begin<br /> dem:=0;<br /> for i:=1 to length(st) do<br /> if ch=st[i] then dem:=dem+1;<br /> if dem>0 then writeln(' chu ',ch ,' xuat hien ', dem ,' lan');<br /> if max < dem then <br /> begin max:=dem; tam:=ch; end;<br /> <br /> end;<br /> write( ' ki tu xuat hien nhieu nhat la ', tam ,' so la ', max); <br /> readln;<br /><br />end.Anonymoushttps://www.blogger.com/profile/00736408285299566786noreply@blogger.comtag:blogger.com,1999:blog-5960836988659640122.post-32226865888453607502017-05-14T10:58:59.113+07:002017-05-14T10:58:59.113+07:00Đếm số lượng từng kí tự trong chuỗi.
VD: 'abca...Đếm số lượng từng kí tự trong chuỗi.<br />VD: 'abca'<br /> 2 chu a<br /> 1 chu b<br /> 1 chu c<br />Giải:<br />uses crt;<br />var st:string[255];<br /> dem,i:byte;<br /> ch:char;<br />begin<br /> clrscr;<br /> write('nhap chuoi st: ');readln(st);<br /> for i:=1 to length(st) do<br /> st[i]:=upcase(st[i]);<br /> for ch:='A' to 'Z' do<br /> begin<br /> dem:=0;<br /> for i:=1 to length(st) do<br /> if ch=st[i] then dem:=dem+1;<br /> if dem>0 then writeln(' chu ',ch ,' xuat hien ', dem ,' lan');<br /> end;<br /> readln;<br /><br />end.Anonymoushttps://www.blogger.com/profile/00736408285299566786noreply@blogger.comtag:blogger.com,1999:blog-5960836988659640122.post-54455327108951405202017-03-30T16:13:31.027+07:002017-03-30T16:13:31.027+07:00chỉ cho e một bài với đó là:
e hãy tìm số lần xuất...chỉ cho e một bài với đó là:<br />e hãy tìm số lần xuất hiện nhiều nhất của một kí tự trong xâu pascal.mau mau nhagiup e bài nàyhttps://www.blogger.com/profile/12566946768421993786noreply@blogger.comtag:blogger.com,1999:blog-5960836988659640122.post-32873730763114490912016-05-30T10:27:44.567+07:002016-05-30T10:27:44.567+07:00chạy nhưng không ra kết quảchạy nhưng không ra kết quảAnonymoushttps://www.blogger.com/profile/13055096529763984964noreply@blogger.comtag:blogger.com,1999:blog-5960836988659640122.post-23406379613767179242016-03-04T09:37:19.043+07:002016-03-04T09:37:19.043+07:00Var s:string;
N,i,d:integer;
C:char;
Begin
...Var s:string;<br /> N,i,d:integer;<br /> C:char;<br />Begin<br /> Writeln ('nhap s:');<br /> Readln(s);<br /> For c:=upcase('a') to upcase('z') do<br /> Begin<br /> D:=0;<br /> For i:=1 to length(s) do<br /> If upcase (s[i])=c then d:=d+1;<br /> If d>=1 then write('chu',c,'xuat hien:',d,'lan');<br /> End;<br />Readln<br />End.<br />congmiencthttps://www.blogger.com/profile/14909396859600861532noreply@blogger.comtag:blogger.com,1999:blog-5960836988659640122.post-626560164798236262016-03-04T09:36:17.562+07:002016-03-04T09:36:17.562+07:00Var s:string;
N,i,d:integer;
C:char;
Begin
...Var s:string;<br /> N,i,d:integer;<br /> C:char;<br />Begin<br /> Writeln ('nhap s:');<br /> Readln(s);<br /> For c:=upcase('a') to upcase('z') do<br /> Begin<br /> D:=0;<br /> For i:=1 to length(s) do<br /> If upcase (s[i])=c then d:=d+1;<br /> If d>=1 then write('chu',c,'xuat hien:',d,'lan');<br /> End;<br />Readln<br />End.<br />congmiencthttps://www.blogger.com/profile/14909396859600861532noreply@blogger.comtag:blogger.com,1999:blog-5960836988659640122.post-41597328411003335912014-12-25T04:00:10.533+07:002014-12-25T04:00:10.533+07:00Kho giáo trình nhiều chuyên ngành: Anh văn căn bản...Kho giáo trình nhiều chuyên ngành: <a href="http://tailieu-hoctap.blogspot.com/p/tieng-anh-can-ban.html" rel="nofollow">Anh văn căn bản</a> || <a href="http://tailieu-hoctap.blogspot.com/p/845-chu-han-tieng-viet-845-chu-han.html" rel="nofollow">Ngữ pháp tiếng nhật</a> || <a href="http://tailieu-hoctap.blogspot.com/p/blog-page_80.html" rel="nofollow">Giáo trình WEB</a> || <a href="http://tailieu-hoctap.blogspot.com/p/toefl-ielts-toeic.html" rel="nofollow">Tài liệu thi TOEFL - IELTS - TOEIC</a> || <a href="http://tailieu-hoctap.blogspot.com/p/co-khi-che-tao-may_13.html" rel="nofollow">Cơ khí chế tạo máy</a> || <a href="http://tailieu-hoctap.blogspot.com/p/ien-ien-tu.html" rel="nofollow">Điện tử căn bản</a> || <a href="http://tailieu-hoctap.blogspot.com/" rel="nofollow">Giáo trình đề thi</a> || <a href="http://tailieu-hoctap.blogspot.com/p/blog-page_12.html" rel="nofollow">Lập trình C++</a> || <a href="http://tailieu-hoctap.blogspot.com/p/o-hoa-ung-dung.html" rel="nofollow">Giáo trình đồ họa</a> || <a href="http://tailieu-hoctap.blogspot.com/p/o-hoa-ung-dung.html" rel="nofollow">Giáo trình Access</a> || <a href="http://tailieu-hoctap.blogspot.com/p/o-hoa-ung-dung.html" rel="nofollow">Giáo trình Photoshop</a>Anonymoushttps://www.blogger.com/profile/07434853201731124959noreply@blogger.comtag:blogger.com,1999:blog-5960836988659640122.post-50060729286743235282014-06-27T10:45:31.298+07:002014-06-27T10:45:31.298+07:00Các bạn xem hộ mình sai ở đâu với ạ
uses crt; ...Các bạn xem hộ mình sai ở đâu với ạ<br /><br /><br /><br /><br />uses crt; <br />var s: string; <br /> i,j,t,n: integer;<br />begin<br /> clrscr; <br /> write('Nhap mot xau ki tu : ');readln(s);<br /> t:=0;<br /> n:=length(s);<br /> for i:=1 to n do<br /> if (s[i]='h')and((s[i-1]=' ')or(i=1)) then<br /> for j:=i to n do<br /> begin<br /> if (s[j]='o')and((s[j+1]=' ')or(j=n)) then<br /> t:=t+1;<br /> if (s[j]=' ') then<br /> break;<br /> end;<br /> writeln('Co ',t,' tu.');<br /> readln;<br />end.Anonymousnoreply@blogger.comtag:blogger.com,1999:blog-5960836988659640122.post-33323547093602127652014-05-16T19:30:55.526+07:002014-05-16T19:30:55.526+07:00sao ko co cach tinh so thu tu vay`
sao ko co cach tinh so thu tu vay`<br />Anonymousnoreply@blogger.comtag:blogger.com,1999:blog-5960836988659640122.post-11122699299192164042014-01-04T14:40:51.698+07:002014-01-04T14:40:51.698+07:00Nặc danh nói...Nặc danh nói...Anonymoushttps://www.blogger.com/profile/06082588907365391195noreply@blogger.comtag:blogger.com,1999:blog-5960836988659640122.post-47008025240629719642013-12-05T07:32:29.274+07:002013-12-05T07:32:29.274+07:00cho minh hoi ti dc kocho minh hoi ti dc koAnonymousnoreply@blogger.comtag:blogger.com,1999:blog-5960836988659640122.post-20255266687534247252013-05-28T22:48:12.200+07:002013-05-28T22:48:12.200+07:00tai vi khong co bien mang dem[' '] nen chu...tai vi khong co bien mang dem[' '] nen chuong trinh bi loi.Anonymoushttps://www.blogger.com/profile/10220115089192608755noreply@blogger.comtag:blogger.com,1999:blog-5960836988659640122.post-59069640023577970092013-05-28T22:46:43.030+07:002013-05-28T22:46:43.030+07:00neu trong xau co khoang trang thi chuong trinh se ...neu trong xau co khoang trang thi chuong trinh se khong chayAnonymoushttps://www.blogger.com/profile/10220115089192608755noreply@blogger.comtag:blogger.com,1999:blog-5960836988659640122.post-91924394722817964432013-05-16T20:31:19.812+07:002013-05-16T20:31:19.812+07:00sao hk chay
sao hk chay<br /><br />Anonymoushttps://www.blogger.com/profile/09930431758552270289noreply@blogger.comtag:blogger.com,1999:blog-5960836988659640122.post-4663041247899365422013-03-27T20:37:53.811+07:002013-03-27T20:37:53.811+07:00Thực ra dem đã mặc định = 0 rồi bạn
Thực ra dem đã mặc định = 0 rồi bạn<br />Anonymousnoreply@blogger.comtag:blogger.com,1999:blog-5960836988659640122.post-57610623320215330592013-03-18T23:39:05.572+07:002013-03-18T23:39:05.572+07:00thiếu dem:=0 đó nha bạnthiếu dem:=0 đó nha bạnAnonymoushttps://www.blogger.com/profile/03881868483971238446noreply@blogger.comtag:blogger.com,1999:blog-5960836988659640122.post-458431643117846562013-03-15T23:48:08.060+07:002013-03-15T23:48:08.060+07:00I am in fact delighted to read this blog posts whi...I am in fact delighted to read this blog posts which consists of lots of valuable <br />data, thanks for providing such data.<br /><br />my blog post <a href="http://Callworld.ru/profile/serena9978" rel="nofollow">chapter 7 bankruptcy florida</a>Anonymousnoreply@blogger.com