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

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ỗ).

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.

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.

Admin gửi mình đoạn code bài 1 nhé. Xin cảm ơn

Uhm, ok. Bài 1 thì không vấn đề gì. Chờ mình tí nhé.

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.

Bạn xem nhé. Nếu có gì thì nhắc mình, minhf chỉnh lại theo ý.

***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

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

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

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.

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

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.

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.

Ái chà. lit nhanh nhỉ. Mình gửi bài cùng 1 lúc đó.^^

He he, chậm hơn mình rồi

Hihi vui ghê. À nè, đăng nhập vô chatbox đi, mihnf có việc tí. Vô yahoo thì lát quá.