Tin nâng cao :)
Câu 1 : Viết chương trình để nén và giải nén một xâu ký tự . (2đ)
Ví dụ: Xâu 'AAAAAAAAABBBCCCCCDDDDDDDEEFF' sau khi nén sẽ trở thành '9A3B5C7D2E2F'.
Câu 2 : Cho mảng 2 chiều A cấp mxn. Viết chương trình sắp xếp lại mảng A theo yêu cầu sau: (5đ)
Các dòng được sắp xếp lại theo thứ tự tăng dần của tổng các phần tử trên mỗi dòng theo hình zic-zac
Câu 3 : Viết chương trình giải phương trình bậc 5...
Đọc tiếp
Tin nâng cao :)
Câu 1 : Viết chương trình để nén và giải nén một xâu ký tự . (2đ)
Ví dụ: Xâu 'AAAAAAAAABBBCCCCCDDDDDDDEEFF' sau khi nén sẽ trở thành '9A3B5C7D2E2F'.
Câu 2 : Cho mảng 2 chiều A cấp mxn. Viết chương trình sắp xếp lại mảng A theo yêu cầu sau: (5đ)
Các dòng được sắp xếp lại theo thứ tự tăng dần của tổng các phần tử trên mỗi dòng theo hình zic-zac
Câu 3 : Viết chương trình giải phương trình bậc 5 (ax5 + bx + c = 0) (2đ)
Viết tay + 1
Cre : Không biết :)
@tth_new Anh giúp em làm chuyên gia soát bài hộ em ạ :) Anh chấm tr em chấm sau :)
Tuyển tài trợ :))
Câu 1:
uses crt;
var s,k,tam:string;
dem,i:integer;
begin
clrscr;
write('nhap xau S:'); readln(s);
dem:= 1;
for i:=2 to length(s) do
begin
if s[i]=s[i-1] then inc(dem);
if s[i]<>s[i-1] then
begin
str(dem,tam);
if dem>1 then k:=k+tam+s[i-1]
else k:=k+ s[i-1];
dem:= 1;
end;
if i=length(s) then
begin
str(dem,tam);
if dem >1 then k:=k+tam+s[i]
else k:=k+s[i];
end;
end;
for i:=1 to length(k) do
write(k[i]);
readln;
end.
Phạm Thị Diệu Huyền, mình ko biết đc tài trợ ko