Diễn đàn tin học Nguyễn Văn Linh

The second house for every one
 
IndexTrợ giúpTìm kiếmThành viênĐăng kýĐăng Nhập

Share | 
 

 Mọi người giúp mình bài này với.

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
hoangmanh
Gà mờ


Tổng số bài gửi : 2
Join date : 23/03/2010

Bài gửiTiêu đề: Mọi người giúp mình bài này với.   Tue 23 Mar 2010, 09:50

Bài 1:
Một cty có n cửa hàng. Biết doanh thu của mỗi cửa hàng trong tháng 11/2009. Viết chương trình pascal nhập dữ liệu,tính và in tổng doanh thu bán hàng trong tháng của các cửa hàng. đếm và in ra số cửa hàng có doanh thu nhỏ hơn trung bình của các cửa hàng.

Bài 2:
Một cửa hàng đã bán n mặt hàng. Cho biết tên hàng, số lượng bán, đơn giá mua vào và đơn giá bán ra của từng mặt hàng.Hãy viết chương trình pascal nhập dữ liêu tinh và in ra bảng kê bán hàng. Bảng gồm các cột: số thứ tự, đơn hàng, đơn giá mua, đơn giá bán, tiền lỗ.Cuối bảng có tổng tiền lỗ(chỉ ghi các hàng bán lỗ).
Về Đầu Trang Go down
hoangtin14
Mèo con


Tổng số bài gửi : 96
Join date : 08/02/2010
Age : 21
Đến từ : Bình Định

Bài gửiTiêu đề: Re: Mọi người giúp mình bài này với.   Tue 23 Mar 2010, 11:37

Mấy cái này thuộc kiểu bản ghi. mình ko rành lắm. admin giúp đi nha.
Về Đầu Trang Go down
littlelee
Admin
Admin


Tổng số bài gửi : 415
Join date : 20/12/2009
Age : 21
Đến từ : Nghĩa địa

Bài gửiTiêu đề: Re: Mọi người giúp mình bài này với.   Tue 23 Mar 2010, 11:54

Bài 1 thì không có gì cả.

Bài 2 thì có chỗ thế này: in ra bảng kê bán hàng. Phần này thì mình ko rành, vì mình ko rành đồ họa. Nếu cươgnx bức thì làm cũng được nhưng ko hay và cũng không đẹp.
Về Đầu Trang Go down
hoangmanh
Gà mờ


Tổng số bài gửi : 2
Join date : 23/03/2010

Bài gửiTiêu đề: Re: Mọi người giúp mình bài này với.   Tue 23 Mar 2010, 12:15

Admin gửi mình đoạn code bài 1 nhé. Xin cảm ơn
Về Đầu Trang Go down
littlelee
Admin
Admin


Tổng số bài gửi : 415
Join date : 20/12/2009
Age : 21
Đến từ : Nghĩa địa

Bài gửiTiêu đề: Re: Mọi người giúp mình bài này với.   Tue 23 Mar 2010, 12:22

Uhm, ok. Bài 1 thì không vấn đề gì. Chờ mình tí nhé.
Về Đầu Trang Go down
littlelee
Admin
Admin


Tổng số bài gửi : 415
Join date : 20/12/2009
Age : 21
Đến từ : Nghĩa địa

Bài gửiTiêu đề: Re: Mọi người giúp mình bài này với.   Tue 23 Mar 2010, 12:29

Code đây:
Code:
program banhang;
uses crt;
var a:array[1..100] of integer;
    i,n,s:longint;
begin
 clrscr;
 write('nhap so luong cac cua hang: ');readln(n);
 writeln('nhap doanh thu cua cac cua hang: ');
 for i:=1 to n do
  begin
  write('doanh thu cua cua hang thu ',i,' la: ');readln(a[i]);
  s:=s+a[i];
  end;
 writeln('tong doanh thu cua cac cua hang la: ',s);
 for i:=1 to n do
  if a[i]<(s/n) then writeln('cua hang ',i,' co doanh thu it hon doanh thu trung binh.');
readln;
end.
Về Đầu Trang Go down
littlelee
Admin
Admin


Tổng số bài gửi : 415
Join date : 20/12/2009
Age : 21
Đến từ : Nghĩa địa

Bài gửiTiêu đề: Re: Mọi người giúp mình bài này với.   Tue 23 Mar 2010, 12:30

Bạn xem nhé. Nếu có gì thì nhắc mình, minhf chỉnh lại theo ý.
Về Đầu Trang Go down
nh0x.ti_em
Gà con


Tổng số bài gửi : 10
Join date : 17/03/2010

Bài gửiTiêu đề: Re: Mọi người giúp mình bài này với.   Tue 23 Mar 2010, 14:01

***Viết chương trình nhập vào 1 xâu, đếm và xuất ra màn hình số kí tự là chữ số trong xâu vừa nhập****


giúp tí nha bạn :D
Về Đầu Trang Go down
littlelee
Admin
Admin


Tổng số bài gửi : 415
Join date : 20/12/2009
Age : 21
Đến từ : Nghĩa địa

Bài gửiTiêu đề: Re: Mọi người giúp mình bài này với.   Tue 23 Mar 2010, 17:38

nh0x.ti_em đã viết:
***Viết chương trình nhập vào 1 xâu, đếm và xuất ra màn hình số kí tự là chữ số trong xâu vừa nhập****


giúp tí nha bạn :D


Bài của bạn đây:
Code:
var s:string; i,dem:integer;
begin
write('nhap xau: ');readln(s);
for i:=1 to length(s) do
if s[i] in ['0'..'9'] then inc(dem);
writeln('trong xau vua nhap co ',dem,' ki tu so.');
readln;
end
Về Đầu Trang Go down
nh0x.ti_em
Gà con


Tổng số bài gửi : 10
Join date : 17/03/2010

Bài gửiTiêu đề: Re: Mọi người giúp mình bài này với.   Wed 24 Mar 2010, 19:44

1/viết chương trình nhập vào 2 số nguyên a vs b sau đó ghi giá trị vào " Kq.INP"

bài này là phần bài tập của tệp nha bạn

tk nha :p
Về Đầu Trang Go down
hoangtin14
Mèo con


Tổng số bài gửi : 96
Join date : 08/02/2010
Age : 21
Đến từ : Bình Định

Bài gửiTiêu đề: Re: Mọi người giúp mình bài này với.   Wed 24 Mar 2010, 20:20

Nhập 2 số nguyên rồi ghi vào tệp thì dễ mà. bạn nên tự làm những bài dễ như thế này cho quen cấu trúc.
Về Đầu Trang Go down
nh0x.ti_em
Gà con


Tổng số bài gửi : 10
Join date : 17/03/2010

Bài gửiTiêu đề: Re: Mọi người giúp mình bài này với.   Wed 24 Mar 2010, 20:44

trời ..... mình k biết làm cách nào luôn á...ở trường cô giảng k hỉu tí ti gì hết ..ví dụ 1,2 bài rùi mình mới có cơ sở để làm bạn ui :D
Về Đầu Trang Go down
littlelee
Admin
Admin


Tổng số bài gửi : 415
Join date : 20/12/2009
Age : 21
Đến từ : Nghĩa địa

Bài gửiTiêu đề: Re: Mọi người giúp mình bài này với.   Wed 24 Mar 2010, 20:59

nh0x.ti_em đã viết:
trời ..... mình k biết làm cách nào luôn á...ở trường cô giảng k hỉu tí ti gì hết ..ví dụ 1,2 bài rùi mình mới có cơ sở để làm bạn ui :D

^^ .
Code:
var a,b:integer; f:text;
begin
 write('nhap a: ');readln(a);
 write('nhap b: ');readln(b);
 assign(f,'Kq.inp');
 rewrite(f);
 write(f,a,b);
 close(f);
 writeln('Hai so a va b da duoc ghi vao file.');
readln;
end.
Về Đầu Trang Go down
hoangtin14
Mèo con


Tổng số bài gửi : 96
Join date : 08/02/2010
Age : 21
Đến từ : Bình Định

Bài gửiTiêu đề: Re: Mọi người giúp mình bài này với.   Wed 24 Mar 2010, 21:01

Do bạn ghi ko rõ đề nên mình chỉ làm nhập hai số và ghi hai số vào file thui nha. có j thì nói mình sửa.

Code:
Program ghi_file;
Uses wincrt;
var
f:text;
a,b:integer;
Begin
Clrscr;
assign(f,'kq.inp');
rewrite(f);
Write('Nhap so a:');
Readln(a);
Writeln(f,a);
Write('Nhap so b:');
Readln(b);
Writeln(f,b);
Close(f);
End.
Về Đầu Trang Go down
hoangtin14
Mèo con


Tổng số bài gửi : 96
Join date : 08/02/2010
Age : 21
Đến từ : Bình Định

Bài gửiTiêu đề: Re: Mọi người giúp mình bài này với.   Wed 24 Mar 2010, 21:01

Ái chà. lit nhanh nhỉ. Mình gửi bài cùng 1 lúc đó.^^
Về Đầu Trang Go down
littlelee
Admin
Admin


Tổng số bài gửi : 415
Join date : 20/12/2009
Age : 21
Đến từ : Nghĩa địa

Bài gửiTiêu đề: Re: Mọi người giúp mình bài này với.   Wed 24 Mar 2010, 21:02

He he, chậm hơn mình rồi
Về Đầu Trang Go down
littlelee
Admin
Admin


Tổng số bài gửi : 415
Join date : 20/12/2009
Age : 21
Đến từ : Nghĩa địa

Bài gửiTiêu đề: Re: Mọi người giúp mình bài này với.   Wed 24 Mar 2010, 21:03

Hihi vui ghê. À nè, đăng nhập vô chatbox đi, mihnf có việc tí. Vô yahoo thì lát quá.
Về Đầu Trang Go down
Sponsored content




Bài gửiTiêu đề: Re: Mọi người giúp mình bài này với.   Today at 18:52

Về Đầu Trang Go down
 
Mọi người giúp mình bài này với.
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
Diễn đàn tin học Nguyễn Văn Linh :: Góc tin học :: Lớp chuyên tin-
Chuyển đến