vuagatay

Công ty Phú lợi Ltd có M cửa hàng . Cho biết tên cửa hàng,số người bán hàng,và tiền bán hàng thu được trong 1 tháng của mỗi cửa hàng Viết chương trình tính năng suất bán hàng trung bình trong tháng của mỗi cửa hàng. Năng suất trung bình = tiền bán hàng /số người bán.
In bản NĂNG SUẤT BÁN HÀNG theo trình tự giảm dần của năng suất trung bình Bẳng gồm các cột Thứ tự, Tên cửa hàng, Năng suất trung bình .Cuối cột năng suất trung bình in năng suất trung bình của cả công ty( năng suất trung bình của một người bán hàng tính cho toàn công ty).

thietkewebsite

Quên hết trơn rùi. Giờ viết giải thuật hết nổi rồi, ai biết thì bạn đi kìa

__________________
THIẾT KẾ WEBSITE CHUYÊN NGHIỆP

TƯ VẤN TRỰC TUYẾN
HOTLINE: 0906.305.305 / 08.2587.517
Y!M: -
TÌM KIẾM BẤT ĐỘNG SẢN TRỰC TUYẾN

DANH BẠ WEBSITE VIỆT NAM

baobinhday

Trời, sao bài này xương thế. Lại phải in ra theo cột mới khó chứ. Để từ từ tớ nghĩ đã.

__________________
http://osobux.info/?r=baobinhday
http://www.buxout.com/?r=baobinhday
http://bux.to/?r=baobinhday

vuagatay

các pro giúp cho nhé

datset

bạn có vẻ yêu pascal nhỉ, bạn định đi thi hsg đấy à mà học kinh thế, hay bạn liên hệ với mình qua yahoo: one_chicken_and_two_ducks, mình và bạn cùng học hỏi kinh nghiệm của nhau

gothdn

Cả màn hình 80 chữ chia sao cho đều 3 khoảng. Khi in ra dòng tên chẳng hạn write('Anh A':30) thì ra màn hình dòng tên luôn luôn là 30 chữ ( thêm khỏang trắng) vậy là đc cột tên 30 ô, còn lại 2 cột kia tương tự

__________________
Rồng hay khủng long nhỉ ^^

(Chỉ là nuôi 1 bé rồng thôi ko phải virus đâu mà sợ ^^)
Minilyrics 6.0.3697 tự down và hiện lyric khi chơi nhạc, video, lyric tự rơi trên destop !

thuclepro

Giúp bạn thêm bài nữa vậy. Gần 10 năm chưa đụng lại cái này, nhưng đọc vào lại ham. Hix, bài này bạn kiểm tra lại chính tả nhé. Và căn chỉnh lại khoảng cách các cột sao cho đẹp nhé. Máy mình ko có pascal, với lại các space khi post bai lên toàn bị thu hẹp lại nên bạn phải chỉnh chút xíu.
Mà này nhớ cám ơn tôi nhá.
BB chúc thành công!


Uses crt;
Var m,i,j,tongtien,tongnguoi:integer;
ten:array[1..100] of char;
songuoi:array[1..100] of integer;
sotien:array[1..100] of integer;
nangsuat:array[1..100] of real;
nangsuatcty:real;
tentam:char;
nangsuattam:real;
begin
clrscr;
write('nhap so cua hang:'); readln(m);
For i:=1 to m do
Begin
write('ten cua hang thu ',i,' la:'); readln(ten[i]);
write('so nguoi cua hang thu ',i,' la:'); readln(songuoi[i]);
write('so tien hang thang cua cua hang thu ',i,' la:'); readln(sotien[i]);
nangsuat[i]:=sotien[i]/songuoi[i];
End;
For i:=1 to m-1 do
for j:=i+1 to m do
if nangsuat[i]<nangsuat[j] then
Begin
nangsuattam:=nangsuat[i];
nangsuat[i]:=nangsuat[j];
nangsuat[j]:=nangsuattam;
tentam:=ten[i];
ten[i]:=ten[j];
ten[j]:=tentam;
end;
tongtien:=0;
tongnguoi:=0;
for i:=1 to m do
begin
tongtien:=tongtien+sotien[i];
tongnguoi:=tongnguoi+songuoi[i];
end;
nangsuatcty:=tongtien/tongnguoi;

Writeln('STT TENCUAHANG NSTB');
for i:=1 to m do
Writeln(i:4,' ',ten[i]:16,' ',nangsuat[i]:8:2);
write(' ',nangsuatcty:8:2);
readln;
end.

vuagatay

thanks you nhé thế là mình xong phần bài tập rồi giờ còn lý thuyết nữa thôi hihi

thuclepro

hjx,co một người cảm ơn, lâu lên chức quá đi

dat061192

ten và tentam nên đặt là string chứ char là sai rồi. và khúc cuối lúc in ra nó ko cí ngay hàng. i đùng cho nó vị trí nào hết.

__________________
thấy hay nhớ cảm ơn nha!: rất mong các bạn làm đừng làm chữ kí bằng hình ảnh là diễn đàn load chậm lắm:

swallow2603

biet nho` dc kiểu ji` minh` cũng tìm bài thật khó để đó các bạn

thuclepro

Bạn ơi, xem lại kiến thức đi nhé, đây ko phải là VB đâu, nếu dùng string trong pascal thì làm phức tạp lên đấy. String liên quan đến từng kí tự trong 1 chữ, còn chart thì nó là nguyên cả chữ. bạn dùng string xem có chạy được không rồi hãy nói nhé.

minhngq

Cái này thì đúng là bồ nhầm thiệt rồi. Trong Pascal, kiểu char chỉ có 1 byte để lưu 1 ký tự thôi chứ không lưu chuỗi được. Muốn lưu chuỗi trong Pascal phải dùng string (string = array[0..255] of char).
Có lẽ bồ bị nhầm sang C/C++, trong C/C++ có thể lưu chuỗi dưới dạng (char*)

Cheers,

datahu

ac mình cũng có hoc nhưng còn gà lém còn monh các pác chỉ giùm....