Diễn đàn học tập của Hocmai.vn
Liên hệ quảng cáo: xem chi tiết tại đây

Diendan.hocmai.vn - Học thày chẳng tày học bạn! » Ngoại khóa » Tin học - Máy tính » Tin học trong nhà trường » Học lập trình » Bài lập trình phần Chuỗi




Reply
  #1  
Old 04-12-2012
megamanxza's Avatar
megamanxza megamanxza is offline
MEM VIP
Thư kí
 
Join Date: 08-06-2012
Posts: 657
Điểm học tập:358
Thanks: 228
Thanked 422 Times in 305 Posts
Question Bài lập trình phần Chuỗi

Các bạn ơi, mình có một bài lập trình Pascal khó, cần mọi người giúp:
Viết chương trình nhập một xâu kí tự từ bàn phím, in ra màn hình xâu sau khi nén.
VD: Nhap xau ky tu: AABBCDEEESSS
Xau sau khi giai nen: 2A2BCD3E3S
Các bạn nhớ ghi code của chương trình dưới dạng Pascal ra nha! Mình đã biết thuật toán nhưng khi làm nó cứ báo lỗi "Exited with Exitcode=201" không à! Please help me!
Reply With Quote
  #2  
Old 06-12-2012
cuong276's Avatar
cuong276 cuong276 is offline
Thành viên
Lớp trưởng
 
Join Date: 07-03-2012
Location: Việt nam =.=
Posts: 1,026
Điểm học tập:245
Thanks: 273
Thanked 312 Times in 186 Posts
Đây! Không biết có đúng không nữa. Bạn thử text nha.
Code:
var s,st,s1:string;
    i,k,d,dem,code:integer;
    j:char;
function ktstn(a:char):boolean;
var j:char;
    kt:boolean;
begin
     kt:=true;
     for j:='1' to '9' do
         if a=j then
            begin
                 kt:=false;
                 break;
            end;
     ktstn:=kt;
end;
begin
     write('nhap s='); readln(s);
     d:=0;
     for i:=1 to length(s) do
         for j:='1' to '9' do
             if s[i]=j then inc(d);
     if d=0 then
        begin
             st:='';
             dem:=1;
             for i:=1 to length(s) do
                 begin
                      if s[i]=s[i+1] then inc(dem);
                      if s[i]<>s[i+1] then
                         begin
                              if dem=1 then st:=st+s[i];
                              if dem>1 then
                                 begin
                                      str(dem,s1);
                                      st:=st+s1+s[i];
                                      dem:=1;
                                 end;
                         end;
                 end;
             writeln('day sau khi doi la:');
             write(st);
        end
     else
         begin
              st:='';
              for i:=length(s) downto 1 do
                  begin
                       if (ktstn(s[i])=true) and (ktstn(s[i-1])=true) then st:=s[i]+st;
                       if (ktstn(s[i])=true) and (ktstn(s[i-1])=false) then
                          begin
                               val(s[i-1],dem,code);
                               for k:=1 to dem do st:=s[i]+st;
                          end;
                  end;
              writeln('day sau khi doi la:');
              write(st);
         end;
     readln;
end.
__________________
Tình yêu nào không mang nhiều cay đắng

Kỉ niệm nào nhớ mãi không nguôi

Chia ly nào không mang nhiều nước mắt

Dĩ vãng nào chua xót mãi trong tim
Reply With Quote okmegamanxza Đáp án hay hơn Thông báo xác nhận sai
The Following User Says Thank You to cuong276 For This Useful Post:
Reply

Bookmarks


Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

 
Bài giảng mới
PEN-I: môn Vật lí - thầy Đỗ Ngọc Hà, thầy Phạm Văn Tùng : [KN1]. ​Nắm vững quan hệ giữa x, v, p, a, F, Wđ, Wt​ (P2)
PEN-I: môn Vật lí - thầy Đỗ Ngọc Hà, thầy Phạm Văn Tùng : [KN1]. ​Nắm vững quan hệ giữa x, v, p, a, F, Wđ, Wt​ (P2)
PEN-I: môn Vật lí - thầy Đỗ Ngọc Hà, thầy Phạm Văn Tùng : Bài 3 Bài giảng (Phần 3)
PEN-I: môn Vật lí - thầy Đỗ Ngọc Hà, thầy Phạm Văn Tùng : Bài 3 Bài giảng (Phần 3)
Ôn luyện Toán lớp 9 : Bài 11. Bài tập về cung chứa góc - Tứ giác nội tiếp (Tiết 3)
Ôn luyện Toán lớp 9 : Bài 11. Bài tập về cung chứa góc - Tứ giác nội tiếp (Tiết 3)
Ôn luyện Toán lớp 9 : Bài 10. Bài tập về cung chứa góc - Tứ giác nội tiếp (Tiết 2)
Ôn luyện Toán lớp 9 : Bài 10. Bài tập về cung chứa góc - Tứ giác nội tiếp (Tiết 2)
Ôn luyện Toán lớp 9 : Bài 9. Bài tập về cung chứa góc - Tứ giác nội tiếp (Tiết 1)
Ôn luyện Toán lớp 9 : Bài 9. Bài tập về cung chứa góc - Tứ giác nội tiếp (Tiết 1)
Ôn luyện Toán lớp 9 : Bài 8. Bài tập về góc có đỉnh bên trong, bên ngoài đường tròn (Tiết 2)
Ôn luyện Toán lớp 9 : Bài 8. Bài tập về góc có đỉnh bên trong, bên ngoài đường tròn (Tiết 2)
Ôn luyện Toán lớp 9 : Bài 7. Bài tập về góc có đỉnh bên trong, bên ngoài đường tròn (Tiết 1)
Ôn luyện Toán lớp 9 : Bài 7. Bài tập về góc có đỉnh bên trong, bên ngoài đường tròn (Tiết 1)
Ôn luyện Toán lớp 9 : Bài 6. Bài tập về góc tạo bởi tiếp tuyến và dây cung (Tiết 2)
Ôn luyện Toán lớp 9 : Bài 6. Bài tập về góc tạo bởi tiếp tuyến và dây cung (Tiết 2)
Tiếng anh lớp 6 - thầy Mạnh : Unit 5.Đại từ nhân xưng và cách sở hữu
Tiếng anh lớp 6 - thầy Mạnh : Unit 5.Đại từ nhân xưng và cách sở hữu
Ôn luyện Toán lớp 9 : Bài 5. Bài tập về góc tạo bởi tiếp tuyến và dây cung (Tiết 1)
Ôn luyện Toán lớp 9 : Bài 5. Bài tập về góc tạo bởi tiếp tuyến và dây cung (Tiết 1)

Đề thi mới
PEN-I: môn Vật lí - thầy Bùi Gia Nội (Khá - Giỏi) 12 : Đề số 3
PEN-I: môn Vật lí - thầy Bùi Gia Nội (Khá - Giỏi) 12 : Đề số 3
PEN-I: môn Hoá học - thầy Vũ Khắc Ngọc-TB -TB Khá 12 : Đề 01 - 2015
PEN-I: môn Hoá học - thầy Vũ Khắc Ngọc-TB -TB Khá 12 : Đề 01 - 2015
PEN-I: môn Vật lí - thầy Đỗ Ngọc Hà, thầy Phạm Văn Tùng 12 : Đề số 3
PEN-I: môn Vật lí - thầy Đỗ Ngọc Hà, thầy Phạm Văn Tùng 12 : Đề số 3
Thi thử đại học 12 : Đề thi thử Đại học 2014- 2015
Thi thử đại học 12 : Đề thi thử Đại học 2014- 2015
PEN-I: môn Hoá học - thầy Phạm Ngọc Sơn 12 : Đề số 03
PEN-I: môn Hoá học - thầy Phạm Ngọc Sơn 12 : Đề số 03
PEN-I: môn Sinh học - thầy Nguyễn Thành Công 12 : Đề thi tự luyện số 03
PEN-I: môn Sinh học - thầy Nguyễn Thành Công 12 : Đề thi tự luyện số 03
PEN-I: môn Tiếng Anh - cô Nguyệt Ca 12 : Đề thi tự luyện số 02 (Đề Online)
PEN-I: môn Tiếng Anh - cô Nguyệt Ca 12 : Đề thi tự luyện số 02 (Đề Online)
PEN-I: môn Vật lí - thầy Bùi Gia Nội (TB - TB Khá) 12 : Đề số 4
PEN-I: môn Vật lí - thầy Bùi Gia Nội (TB - TB Khá) 12 : Đề số 4
Thi thử đại học 12 : Đề tự luyện miễn phí
Thi thử đại học 12 : Đề tự luyện miễn phí
PEN-I: môn Hoá học - thầy Vũ Khắc Ngọc-Khá-Giỏi 12 : Đề thi tự luyện số 01
PEN-I: môn Hoá học - thầy Vũ Khắc Ngọc-Khá-Giỏi 12 : Đề thi tự luyện số 01




All times are GMT +7. The time now is 17:38.
Powered by vBulletin® Version 3.8.2
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.

Giấy phép cung cấp dịch vụ mạng xã hội trực tuyến số 196/GXN-TTĐT Cục Quản lý PTTH&TTĐT cấp ngày 11/11/2011.