Jaliyiah Sophia
Thống kê
- Nhóm: Thành viên
- Bài viết: 20
- Lượt xem: 3435
- Danh hiệu: Binh nhất
- Tuổi: 30 tuổi
- Ngày sinh: Tháng tám 19, 1993
-
Giới tính
Nữ
-
Đến từ
1516 4th str NW Calgary, T2M 2Z1, Alberta, Canada
-
Sở thích
đọc sách... làm Toán, Hóa, Sinh...
- Website URL http://diendan3T.net
Công cụ người dùng
Lần ghé thăm cuối
Trong chủ đề: Chương trình con - Pascal
19-04-2010 - 00:03
Để tính tam giác pascal thì sử dụng cách 2 , nhưng chỉ lưu 2 dòng thôi rồi cập nhật lại , vì kết quả ở dòng i chỉ phụ thuộc vào dòng i-1
Bài 2 :
Sử dụng một biến enter để nhận lệnh cần tính là hình gì, với mỗi hình ta trả về procedure để xử lý cho hình đó. và tính cụ thể ra.
ví dụ :
function getareasquare:longint;
begin
readln(n); // n la canh hinh vuong
exit(n*n);
end;
readln(enter);
if (enter=1) then ans:=getareasquare;
các hình khác tương tự
Bài 3:
1.
ans:=0;
for i:=1 to n do inc(ans,a+ans[i][n-i+1]);
dec(ans,a[n div 2 + 1][n div 2 + 1]);
2.
[i]chẵn :
ans=0;
i:=0;
while (i<=n) do
begin
inc(i,2);
for j:=1 to n do
inc(ans,a[i][j](a[i][j]);
end;
[i]lẻ :
ans:=0;
i:=-1;
while (i<=n) do
begin
// tương tự như trên
end;
3.
làm tương tự câu 2, để ý kết quả phải là số real hay là extended.
4.
count:=0;
for i:=1 to n do
for j :=1 to n fo
if (1<=a[i][j]) and (a[i][j]<=5) then
inc(count);
5.
câu này không hiểu lắm, cái hàng nào với cột nào h ?
nếu có 1 hàng x và cột y cố định thì lưu làm 2 mảng rồi ráp vào thôi
Bài 4:
gọi g[i] là x^i.
f[i] là i!
g[0]:=1;
for i:=1 to n do g[i]:=g[i-1]*x;
f[0]:=1;
for i:=1 to n+1 do f[i]:=f[i-1]*i;
ans:=0;
for i:=1 to n do
ans:=ans + ((1+g[i])/f[i+1]);
Trong chủ đề: Chương trình con - Pascal
18-04-2010 - 11:46
xem lại chỗ đó đi bạnBài 1 có 3 cách:
C1:
Function C(n,k:byte):longint;
Begin
If k=0 then C:=1 else if n=0 then C:=0
Else C:=C(n-1,k-1)+C(n-1,k)
End;
C2:
var C:aray[0..100,0..100] of longintl
Begin
C[0,0]:=0;
For i:=1 to n do C[i,i]:=1;
For i:=1 to n do C[i,0]:=1;
For i:=2 to n do
for j:=1 to i-1 do C[i,j]:=C[i-1,j-1]+C[i-1,j];
Write(C[n,k]);
End.
C3:
Function GT( x: byte):longint;
var S:longint;
t:byte;
Begin
S:=1;
For t:=1 to n do S:=S*i;
GT:=S;
End;
Function C(n,k:byte):longint;
Begin
C:=GT(n)/(GT(k)*GT(n-k))
End;
Nhận xét
C1:Chương trình dễ viết, ngắn gọn, nhưng tốc độ tính toán sẽ chậm do lặp lại tính toán nhiều.
C2: Chương trình dài hơn nhưng tốc độ tính toán nhanh hơn C1 do mỗi C[,j] chỉ tính toán 1 lần.
Song phải cần 1 không gian lớn để lưu trữ dữ liệu.
C3: Chương trình thực hiện nhanh nhất, tiết kiệm bộ nhớ nhất.
Trong chủ đề: Ma phương chẵn - Pascal
19-03-2010 - 18:53
Trong chủ đề: Đăng ký tham gia trại hè toán học 2009
21-07-2009 - 13:14
2- Tuổi: 16
3- Quê quán: HCMC
4- Nick trên diễn đàn (Nếu có): diendan3T, Jaliyiah Sophia
5- Đối tương (HS/SV/GV/?): Học sinh^^
6- Đến từ trường (hoặc cơ quan): ISOE [Calgary] [diễn đàn 3T]
7- Nguyện vọng, mong ước: [đang si nghĩ ạ^^]
8- Số điện thoại: 01229 656 818
9- Email: [email protected]
Trong chủ đề: Thành lập đoàn Nam Bộ
21-07-2009 - 13:08
2- Tuổi: 16
3- Quê quán: HCMC
4- Nick trên diễn đàn (Nếu có):diendan3T, Jaliyiah Sophia
5- Đối tương (HS/SV/GV/?): Học sinh^^
6- Đến từ trường (hoặc cơ quan)?: ISOE [Calgary]
7- Nguyện vọng, mong ước: không có ạ
8- Số điện thoại: 01229 656 818
9- Email: [email protected]
- Diễn đàn Toán học
- → Đang xem trang cá nhân: Bài viết: Jaliyiah Sophia