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ự . (3đ)
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: (3đ)
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
Câu 3 : Viết chương trình giải phương trình bậc 5 (ax5 + bx + c = 0) (3đ)
Viết tay + 1
Cre : Không biết :)
Nguyễn Lê Phước Thịnh 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ợ :))
Bài cũ có đề vấn đề :) Đăng lại nha !
Câu 3.
Chắc đề bậc 2 thôi. Nhưng sửa lên bậc 5 thì dùng ntn khi không có công thức để áp dụng?
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.
