Đã gửi bởi
Để 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]);
