Diễn đàn tin học Nguyễn Văn Linh
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.

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

The second house for every one
 
Trang ChínhLatest imagesTìm kiếmĐăng kýĐăng Nhập

 

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

Go down 
3 posters
Tác giảThông điệp
nh0x.ti_em
Gà con
nh0x.ti_em


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

bài tập về thủ tục ... Empty
Bài gửiTiêu đề: bài tập về thủ tục ...   bài tập về thủ tục ... I_icon_minitimeThu 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
littlelee


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

bài tập về thủ tục ... Empty
Bài gửiTiêu đề: Re: bài tập về thủ tục ...   bài tập về thủ tục ... I_icon_minitimeThu 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
littlelee


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

bài tập về thủ tục ... Empty
Bài gửiTiêu đề: Re: bài tập về thủ tục ...   bài tập về thủ tục ... I_icon_minitimeThu 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
nh0x.ti_em


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

bài tập về thủ tục ... Empty
Bài gửiTiêu đề: Re: bài tập về thủ tục ...   bài tập về thủ tục ... I_icon_minitimeFri 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)!
bài tập về thủ tục ... Latex
Về Đầu Trang Go down
littlelee
Admin
Admin
littlelee


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

bài tập về thủ tục ... Empty
Bài gửiTiêu đề: Re: bài tập về thủ tục ...   bài tập về thủ tục ... I_icon_minitimeMon 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)!
bài tập về thủ tục ... Latex

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
hoangtin14


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

bài tập về thủ tục ... Empty
Bài gửiTiêu đề: Re: bài tập về thủ tục ...   bài tập về thủ tục ... I_icon_minitimeMon 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 tập về thủ tục ... Empty
Bài gửiTiêu đề: Re: bài tập về thủ tục ...   bài tập về thủ tục ... I_icon_minitime

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