Edogawa_Conan nội dung
Có 4 mục bởi Edogawa_Conan (Tìm giới hạn từ 29-04-2020)
#235928 Help!
Đã gửi bởi Edogawa_Conan on 27-04-2010 - 21:50 trong Hình học
Cho (O;R) và 2 điểm A,B nằm ngoài đường tròn sao cho OA=2R. Tìm điểm M nằm trên đường tròn (O;R) sao cho MA+2MB đạt giá trị nhỏ nhất.
#235965 Help!
Đã gửi bởi Edogawa_Conan on 28-04-2010 - 14:52 trong Hình học
Ừ A,B là 2 điểm nằm ngoài đường tròn hết và B bất kì. Mình đã trích y nguyên đề rồi đó.
#258044 Biến đổi tổng thàng tích. Help me!
Đã gửi bởi Edogawa_Conan on 14-04-2011 - 21:29 trong Các bài toán Lượng giác khác
Biến đổi tổng thàng tích:
a) 2sin(2a) - cos(2a) - 7sina + 2cosa + 4
b) 1-x.cosa - x.cos2b + x.cos(a+2b)
c) cos^2(a) + cos^3(a) + 2sina - 2
a) 2sin(2a) - cos(2a) - 7sina + 2cosa + 4
b) 1-x.cosa - x.cos2b + x.cos(a+2b)
c) cos^2(a) + cos^3(a) + 2sina - 2
#258069 Trao đổi kinh nghiệm giải các bài tập Pascal
Đã gửi bởi Edogawa_Conan on 15-04-2011 - 11:18 trong Tin học phổ cập
Bài 3:
3/(tin học trẻ TP Đà Nẵng năm 2010-THCS) Cho biết rằng với mọi số nguyên dương lớn hơn 2 đều có thể viết được thành tổng hữu hạn các số fibonacci khác nhau. Hãy tìm cách phân tích một số nguyên dương N (N>2) thành tổng các số fibonnaci khác nhau sao cho số số hạng là nhiều nhất.
program bt; var s:string; nho,f:array[0..1000]of longint; v:array[1..1000]of boolean; n,t:longint;k,i,j,d:integer; function fb(x:integer;i:integer):integer; begin for j:=1 to i do if x=f[j] then begin fb:=j; break; end else fb:=0; end; begin writeln('nhap n'); readln(n); fillchar(v,sizeof(v),false); s:='';f[0]:=1;f[1]:=1;i:=0;t:=0;d:=0; while t<n do begin inc(i); f[i]:=f[i-1]+f[i-2];k:=1; while (n-t<f[i]) and (k<i) do begin d:=fb(t+f[i]-n,i); if d>0 then begin t:=t-f[d];v[d]:=false; end else begin t:=t-f[i-k];v[i-k]:=false; inc(k); end;end; if (n-t>=f[i])and(v[i]=false) then begin t:=t+f[i];v[i]:=true; end; end; for j:=1 to i do if v[j]=true then s:=chr(f[j]+48)+' + '+s; delete(s,length(s),1); writeln('so phan tich: ',s); readln; end.
- Diễn đàn Toán học
- → Edogawa_Conan nội dung