Đến nội dung

dehin

dehin

Đăng ký: 29-01-2010
Offline Đăng nhập: 05-05-2012 - 00:11
****-

Trong chủ đề: [pascal] ai biết thì giúp với

02-10-2010 - 12:03

Xóa các số nguyên tố trong mảng, rồi in ra.( Ko dùng Function theo yêu cầu của bạn)
( Nếu dùng Function thì chương trình sẽ trông mạch lạc hơn)
program xoa_so_ngto_trong_mang;
uses crt;
type  mang=array[1..200] of integer;
var a,b:mang;
	i,j,n:byte;
	t:word;
Begin
clrscr;
write('Nhap so phan tu cua mang:');
readln(n);
for i:=1 to n do
Begin
  write('Nhap a[',i,']=');
  readln(a[i]);
End;

writeln('Mang ban dau:');
for i:=1 to n do write(a[i],' ');

j:=1;
for i:=1 to n do
Begin
if a&#91;i&#93;<2 then Begin b&#91;j&#93;&#58;=a&#91;i&#93;; j&#58;=j+1; End
  else
   for
   t&#58;=2 to trunc&#40;sqrt&#40;a&#91;i&#93;&#41;&#41; do
	 if a&#91;i&#93; mod t=0 then Begin b&#91;j&#93;&#58;=a&#91;i&#93;; j&#58;=j+1; break; End;
End;
writeln;
writeln&#40;&#39;Mang sau khi xoa cac so nguyen to&#58;&#39;&#41;;
for i&#58;=1 to j-1 do write&#40;b&#91;i&#93;,&#39; &#39;&#41;;
readln;
End.

Trong chủ đề: Giúp mình 1 bài tích phân đang ôn

10-09-2010 - 12:24

Bài này làm tích phân từng phân thôi.
Làm tưng bước cho bạn xem này:
$I = \int\limits_1^2 {(3x + 2)\ln xdx} $
$\left\{ \begin{array}{l} u = \ln x \Rightarrow du = dx/x \\ dv = (3x + 2)dx \Rightarrow v = \dfrac{3}{2}{x^2} + 2x \\ \end{array} \right.$
$ \Rightarrow I = \left. {\left. {uv} \right|_1^2 - \int\limits_1^2 {vdu = } \ln :P\dfrac{3}{2}{x^2} + 2x)} \right|_1^2 - \int\limits_1^2 {(\dfrac{3}{2}x + 2)dx} $
$ = 10\ln 2 - \left. {(\dfrac{3}{4}{x^2} + 2x)} \right|_1^2 = 10\ln 2 - 17/4$

Trong chủ đề: Đề toán KSTN 2009

02-09-2010 - 10:22

Lời giải đầy đủ như sau:
1)Ta có $x = \dfrac{{b - x}}{{b - a}}a + \dfrac{{x - a}}{{b - a}}b$
Mà $ \dfrac{{b - x}}{{b - a}} + \dfrac{{x - a}}{{b - a}} = 1$
$ \Rightarrow f(x) \ge \dfrac{{b - x}}{{b - a}}f(a) + \dfrac{{x - a}}{{b - a}}f(b)$
Tích phân 2 vế trên [a,b]
$ \Rightarrow \int\limits_a^b {f(x)dx} \ge \int\limits_a^b {\dfrac{{b - x}}{{b - a}}f(a)dx + \int\limits_a^b {\dfrac{{x - a}}{{b - a}}f(b)dx} } $
$= (b - a)\dfrac{{f(a) + f(b)}}{2}=dfcm$

2) Câu mà đề thi hỏi
Đặt $x = \dfrac{{a + b}}{2} + t$
$ \Rightarrow I = \int\limits_a^b {f(x)dx} = \int\limits_{ - \dfrac{{b - a}}{2}}^{\dfrac{{b - a}}{2}} {f(} \dfrac{{a + b}}{2} + t)dt = \int\limits_{ - \dfrac{{b - a}}{2}}^0 {f(} \dfrac{{a + b}}{2} + t)dt + \int\limits_0^{\dfrac{{b - a}}{2}} {f(} \dfrac{{a + b}}{2} + t)dt$
$ = \int\limits_0^{\dfrac{{b - a}}{2}} {\left[ {f(\dfrac{{a + b}}{2} + t) + f(\dfrac{{a + b}}{2} - t)} \right]dt} $
( Do$ \,\,\,\,\int\limits_{ - \dfrac{{b - a}}{2}}^0 {f(} \dfrac{{a + b}}{2} + t)dt = \int\limits_0^{\dfrac{{b - a}}{2}} {f(} \dfrac{{a + b}}{2} - t)dt$ )
$ I \le \int\limits_0^{\dfrac{{b - a}}{2}} {2f} (\dfrac{{a + b}}{2})dt = (b - a)f(\dfrac{{a + b}}{2})$
=>Dfcm

Trong chủ đề: Đề toán KSTN 2009

02-09-2010 - 10:05

+)Dề Toán năm 2000 có bài này đâu nhỉ. Làm gì mà ngc nhau.
+) Sorry ban inhtoan chép đúng đề rồi, chả hiểu sao lại nhìn cái đề của mình lại bảo nhầm.
Bài 5 trích từ 1 bài đầy đủ của nó là.
Cho $f:R \to R $ liên tục thỏa mãn:
$f{\rm{[}}\lambda x + (1 - \lambda )y] \ge \lambda f(x) + (1 - \lambda )f(y),\,\,\,\forall x,y \in R\,\,\,va\,\,\,\forall \lambda \in (0,1)$

Chứng minh rằng:
$(b - a)\dfrac{{f(a) + f(b)}}{2} \le \int\limits_a^b {f(x)dx} \le (b - a)f(\dfrac{{a + b}}{2})$

Trong chủ đề: Đề toán KSTN 2009

02-09-2010 - 08:38

Ai bảo là đề ngc nhau.
Bạn inhtoan chép sai đề bài 5 rồi, Xem lại đi.