nh0x.ti_em Gà con
Tổng số bài gửi : 10 Join date : 17/03/2010
| Tiê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 | |
|
littlelee Admin
Tổng số bài gửi : 415 Join date : 20/12/2009 Age : 29 Đến từ : Nghĩa địa
| Tiê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; | |
|
littlelee Admin
Tổng số bài gửi : 415 Join date : 20/12/2009 Age : 29 Đến từ : Nghĩa địa
| Tiê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. | |
|
nh0x.ti_em Gà con
Tổng số bài gửi : 10 Join date : 17/03/2010
| Tiê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)! | |
|
littlelee Admin
Tổng số bài gửi : 415 Join date : 20/12/2009 Age : 29 Đến từ : Nghĩa địa
| Tiê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. | |
|
hoangtin14 Mèo con
Tổng số bài gửi : 96 Join date : 08/02/2010 Age : 29 Đến từ : Bình Định
| Tiê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. | |
|
Sponsored content
| Tiêu đề: Re: bài tập về thủ tục ... | |
| |
|