giúp hộ mình code bài ni cái

[1hakunamatata]

nhập vào 1 xâu gồm các chữ cái in hoa, xuất ra xâu có dạng được nén lại.
vd: in: AABBBBBDKKKB out: 2A5BD3KB

[thienha20]

run=1;
str="";
kytubatdau=chuoi[0];
for i: 1-> length(chuoi)
{
if(kytubatdau==chuoi[i])run++;
else
{
if(run==1) str= str + kytubatdau;
else
{
str= str + run + kytubatdau;
run = 1;
}
kytubatdau=chuoi[i];
}
}

==> ket qua in ra "str"

[1hakunamatata]

pascal chơ mô fai là C+, chuyển sang pascal cấy!! tks

[1hakunamatata]

run=1;
str="";
kytubatdau=chuoi[0];
for i: 1-> length(chuoi)
{
if(kytubatdau==chuoi[i])run++;
else
{
if(run==1) str= str + kytubatdau;
else
{
str= str + run + kytubatdau;
run = 1;
}
kytubatdau=chuoi[i];
}
}

==> ket qua in ra "str"

có ai chuyển cho mình sang pascal được không???

[dangxuanthong]

chờ mình down pascal về cái giúp bạn.

[Dennis Bergkamp]

Bà mịa.

Thứ 1: Phải làm rồi mới hỏi xem sai chỗ nào, đằng này lười ko chịu làm rồi nhờ giải dùm, như vậy đã là quá tệ.

Thứ 2: C hay Pascal chỉ khác nhau cách viết chứ thuật toán như nhau, đã biết thuật toán rồi mà còn ko biết làm nữa thì thực sự là quá quá tệ hại.

[dangxuanthong]

Code của bạn đây:

program nenxau;

var xau :string;
i,j,k :integer;
ch :char;

begin
write('Nhap xau: ');
readln(xau);

j:=length(xau);
i:=1;
write('Xau nen: ');

ch:=xau[1];
while (i<=j) do
begin
k:=0;
while (ch=xau[i]) do
begin
inc(k);
inc(i);
end;
ch:=xau[i];
if (k=1) then
write(xau[i-1])
else
write(k,xau[i-1]);
end;
readln;
end.
--------------------------------
chúc ban học tốt.

[dangxuanthong]

Bà mịa.

Thứ 1: Phải làm rồi mới hỏi xem sai chỗ nào, đằng này lười ko chịu làm rồi nhờ giải dùm, như vậy đã là quá tệ.

Thứ 2: C hay Pascal chỉ khác nhau cách viết chứ thuật toán như nhau, đã biết thuật toán rồi mà còn ko biết làm nữa thì thực sự là quá quá tệ hại.

Thôi anh nạ, người ta đã nhờ, mình không giúp thì thôi, làm gì nóng thế.
Đã bị ban rồi mà lị.....

[.......]

.............................................

var m:byte; u:char; st:string;
begin
write('Nhap xau: ');
readln(st);
while length(st)<>0 do
begin
m:=0; u:=st[1];
while pos(u,st)<>0 do
begin
m:=m+1;
delete(st,pos(u,st),1);
end;
write(m,u);
end;
readln
end.

...............................................
Bạn cũng có thể sử dụng cách này

[mapmapkaka]

Hay quá mình cũng đang làm bài này