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ợ :))
4 Gp nếu xuất sắc,2 GP nếu đúng ( thiếu ít) còn 1 GP nếu thiếu nhiều
:v t hong biết tin luôn, năm nay lớp t không có được học Tin học.
Cre : Của Chính : )
Đây là 1 topic ôn tập nha !
Câu 2 đề có vấn đề: Phải là sắp xếp ma trận theo thứ tự tăng dần zigzac thì mới đúng.Tổng có liên quan gì đâu
Phạm Thị Diệu Huyền, mình ko biết đc tài trợ ko
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.