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


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


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


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


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


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


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: 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 ...   Today at 18:51

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