Sư phụ nào giúp em với

[accxaydung]

Làm cho em một đoạn nhỏ của bài tập pascal với!!!!!!!!!!!!!!

Nhập một từ đếm số lần xuất hiện của từ trong sâu.

gợi ý là:
St1:='Việt nam dân chủ cộng hòa'
st2:=' dân'
Pos(st1,st2)
d:=0;
while (pos(st1,st2)<>0) do d:=d+1;
delete(st,pos(st1,st2),lenght(st1)
thế mà em chẳng cho nó chạy đc

[muadongvinhcuu]

Bạn cần đọc kĩ lại cấu trúc hàm pos!

P.s:"xâu" chứ ko phải "sâu" nhé bạn [IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG]

[dunghoang]

uses crt;
var st: string;
     i: byte;
     j: char;
dem:array['A'..'Z'] of byte;
begin
clrscr;
write('Nhap sau: ');
readln(st);
for i:=1 to length(st) do st[i]:=upcase(st[i]);
for j:='A' to 'Z' do dem[j]:=0;
for j:= 'A' to 'Z' do
for i:=1 to length(st) do
if j = st[i] then dem[j]:=dem[j]+1;
for j:='A' to 'Z' do
if dem[j] > 0 then writeln(j,' : ',dem[j],' lan.');
readln;
end.

Bạn tự test lại nhé

[quanghnn]

Code bạn đây

var st1,st2:string; dem:byte;   begin
     write('Nhap xau 1: ');
     readln(st1);
     write('Nhap xau 2: ');
     readln(st2);
      while pos(st2,st1)<>0 do
        begin
                dem:=dem+1;
                delete(st1,pos(st2,st1),length(st2));
        end;
     write(dem);
   readln

end.

Bạn chú ý biến nhá

delete(st,pos(st1,st2),lenght(st1)

không phải là st mà là st1 nhá
Code mình đã hoàn chỉnh bạn có thể tham khảo [IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG]

[tuongts]

cảm ơn nhá. Nhưng sai đề mất rùi. Đếm cả một cụm từ mà bạn chứ có phải từng chữ cái đâu. Tiện thể giải quyết hộ mình ý mình chuyển kí tự đầu các chữ thành chữ hoa

[tandatcit]

cảm ơn nhá. Nhưng sai đề mất rùi. Đếm cả một cụm từ mà bạn chứ có phải từng chữ cái đâu. Tiện thể giải quyết hộ mình ý mình chuyển kí tự đầu các chữ thành chữ hoa

Chuyển thành chữ hoa thì bạn dùng hàm Upcase
vd nha:

var s:string;i:longint;
begin
Write('Moi nhap xau '); readln(s);
s[1]:=upcase(s[1]);
for i:=2 to length(s) do
      if (s[i]=' ')and(s[i+1]>='a')and(s[i+1]<='z') then s[i+1]:=upcase(s[i+1]);
write(s);
readln;
end.