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

DH

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

DH
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)
H24
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)
DH
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)
NT
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)
H24
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)
NT
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ự
H24
Xem chi tiết
NH
Xem chi tiết
LT
Xem chi tiết
LT
Xem chi tiết
NP
Xem chi tiết
NB
Xem chi tiết
H24
Xem chi tiết
PT
Xem chi tiết
TP
Xem chi tiết