Question

viết chươg trình quản lí sách mỗi cuốn sách gồm tên sách , nxb , năm sx , giá tiền và số lượng: a. đưa ra giá sách các cuốn sách của nhà xuất bản giáo dục b. tính tổng tiền sách c. sắp xếp danh sách theo năm xuất bản giảm dần và gia ra màn hình d. in ra giá sách dưới 10.000đ và sau năm 2000

Answer 1

B (Erik) Bạn nên cho vd thì người giải sẽ hiểu rõ đề hơn...

Answer 2

uses crt;

var n,x,y,z,t,u: integer;

A: array[1..100] of string;

B: array[1..100] of string;

C: array[1..100] of integer;

D: array[1..100] of longint;

E: array[1..100] of integer;

tong,tam: longint;

BEGIN

clrscr;

writeln('Nhap so quyen sach: '); read(n);

for x:=1 to n do

begin writeln('Sach ',x,' ten: '); read(a[x]) end;

for y:=1 to n do

begin writeln('NXB sach ',y, 'la: '); read(b[y]) end;

{nhap: giaoduc; kimdong};

for z:=1 to n do

begin writeln('Nam san xuat sach ',z,'la: '); read(c[z]) end;

for t:=1 to n do

begin writeln('Gia cua sach ',t, 'la: '); read(d[t]) end;

{don vi la dong};

for u:=1 to n do

begin writeln('So luong sach ',u,'la: '); read(e[u]) end;

{-------------------------------------------------------}

for y:=1 to n do

if b[y] = giaoduc then write('Gia cua cuon ',a[y], la: ', d[y]);

tong:=0;

for t:=1 to n do

tong:= tong + d[t];

writeln('Tong tien sach la: ',d[t], 'dong');

for z:=1 to n-1 do

For j:=z+1 to n do

If c[z]<c[j] then

Begin

tam:=c[z];

c[z]:=c[j];

c[j]:=tam;

End;

Writeln(' Day sau khi sap xep giam dan la:');

For z:=1 to n do

Write(c[z]:4);

for z:=1 to n do

for t:=1 to n do

if c[z] >= 2000 and d[z] < 10000 then writeln(a[z]);

READLN

END.

Có thể sai :v