Ôn tập chương Cấu trúc và bảo mật các hệ cơ sở dữ liệu

Diệu Huyền

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ợ :))

Diệu Huyền
26 tháng 4 2020 lúc 13:57

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

Bình luận (0)
tth_new
26 tháng 4 2020 lúc 15:01

:v t hong biết tin luôn, năm nay lớp t không có được học Tin học.

Bình luận (0)
Diệu Huyền
26 tháng 4 2020 lúc 15:32

Cre : Của Chính : )

Đây là 1 topic ôn tập nha !

Bình luận (0)
Nguyễn Lê Phước Thịnh
26 tháng 4 2020 lúc 15:37

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

Bình luận (0)
Buddy
26 tháng 4 2020 lúc 15:38

Phạm Thị Diệu Huyền, mình ko biết đc tài trợ ko

Bình luận (0)
Nguyễn Lê Phước Thịnh
26 tháng 4 2020 lúc 15:46

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.

Bình luận (0)

Các câu hỏi tương tự
Nguyễn
Xem chi tiết
Nguyễn Thu Hằng
Xem chi tiết
Lê Anh Tuấn
Xem chi tiết
Lê Anh Tuấn
Xem chi tiết
NT Phú
Xem chi tiết
Nguyễn Trọng Bằng
Xem chi tiết
Hùng
Xem chi tiết
phát tuấn
Xem chi tiết
Trường Phúc
Xem chi tiết