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 | 
 

 bài tập về thủ tục ...

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
nh0x.ti_em
Gà con
avatar

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

Bài gửiTiêu đề: bài tập về thủ tục ...   Thu 01 Apr 2010, 17:17

program bt3;
uses crt;
var n:integer;
procedure nhapmang(k:integer);
var a:array[1..50] of integer;
i:integer;

begin
for i:=1 to k do
begin
write('nhap ptu thu ',i,':');
readln(a[i]);
end;
end;

begin
clrscr;
write('nhap so ptu :');
readln(n);
nhapmang(n);
readln;

end.






mới biết cái nhập mảng này à
còn tính tích và xuất mảng ra bạn giúp mình cái nha :D
Về Đầu Trang Go down
littlelee
Admin
Admin
avatar

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

Bài gửiTiêu đề: Re: bài tập về thủ tục ...   Thu 01 Apr 2010, 18:29

À hóa ra bạn mới vùa học về hàm và thủ tục thôi à. Bạn làm ở trên được rồi đấy. Bạn làm tương tự với xuất thôi. Còn bạn bảo tính tích là tích gì thì mình ko hiểu lắm. Thôi thì ở đây mình tính tích của tất cả các phần tử nha.

Code:
uses crt;
var a:array[1..100] of integer;
    i,n:integer; s:longint;

procedure nhap;
 begin
  clrscr;
  write('nhap vao so luong phan tu cua day: ');readln(n);
  writeln('Nhap vao day so:');
  for i:=1 to n do
  begin
    write('a[',i,']=');readln(a[i]);
 end;

procedure tinhtich;
 begin
  s:=1;
  for i:=1 to n do s:=s*a[i];
 end;

procedure xuat;
 begin
  Writeln('Day vua nhap vao la:');
  for i:=1 to n do write(a[i],' ');
  writeln('tich cua day tren la: ',s);
  readln;
 end; 

begin
 nhap;
 tinhtich;
 xuat;
end;
Về Đầu Trang Go down
littlelee
Admin
Admin
avatar

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

Bài gửiTiêu đề: Re: bài tập về thủ tục ...   Thu 01 Apr 2010, 18:31

Ở trên mình dùng biến toàn cục và không truyền tham biến. Nếu thích thì bạn chỉnh lại.
Về Đầu Trang Go down
nh0x.ti_em
Gà con
avatar

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

Bài gửiTiêu đề: Re: bài tập về thủ tục ...   Fri 02 Apr 2010, 22:12

tk nha
còn bài này nữa không biết lớp 9 học tới tổ hợp chưa ta???
1/Viết chương trình nhập vào bàn phím .Tính tổ hợp

C chập k của n = n!/k!*(n-k)!
Về Đầu Trang Go down
littlelee
Admin
Admin
avatar

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

Bài gửiTiêu đề: Re: bài tập về thủ tục ...   Mon 05 Apr 2010, 12:30

nh0x.ti_em đã viết:
tk nha
còn bài này nữa không biết lớp 9 học tới tổ hợp chưa ta???
1/Viết chương trình nhập vào bàn phím .Tính tổ hợp

C chập k của n = n!/k!*(n-k)!

Mà nhập là nhập gì nhỉ. Ở đây có đến hai biến là k và n mà. Công thức thì có rồi, chỉ cần nhập rồi tính thôi.
Về Đầu Trang Go down
hoangtin14
Mèo con
avatar

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

Bài gửiTiêu đề: Re: bài tập về thủ tục ...   Mon 05 Apr 2010, 20:12

bài này dùng đúng 1 chương trình con (function) tính giai thừa rồi áp dụng công thức ở trên tính là xong.
Về Đầu Trang Go down
Sponsored content




Bài gửiTiêu đề: Re: bài tập về thủ tục ...   

Về Đầu Trang Go down
 
bài tập về thủ tục ...
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