Dãy Số Hạnh Phúc - Tin Học Tây Sơn

Tin học Tây SơnBạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.

Nỗ lực hết sức để thành công hay thất bại ta đều nở nụ cười

• 
• 
• 

  Tìm kiếm

  Display results as :Số bàiChủ đề

  Advanced Search

• 
• 
• 

Dãy số hạnh phúc5 posters

Tin học Tây Sơn :: Bài tập

Trang 1 trong tổng số 1 trang

Dãy số hạnh phúc

by Admin Fri Jan 23, 2015 3:53 pm

Dãy số tự nhiên a1 , a2 ,a3... ak được gọi là hạnh phúc nếu nó thoả mãn các điều kiện sau :- Dãy trên là một dãy giảm dần .- Với mọi i ( 1<=i <= k ) ai hoặc là số nguyên tố , hoặc phải là ước của một trong các số a1 , a2 , ... , aiVD : 18 17 13 11 9 7 6 5 3 2 là dãy hạnh phúcViết chương trình nhập 1 số tự nhiên N từ bàn phím và in ra màn hình một dãy số hạnh phúc càng dài càng tốt với số hạng đầu tiên là N.dayso.INP | hanhphuc.OUT18 | 18 17 13 11 9 7 6 5 3 2 AdminGiáo viênTổng số bài gửi : 192Điểm thành tích : 20349Reputation : -6Join date : 29/12/2014 LikeDislike

Re: Dãy số hạnh phúc

by thuynhu Sun Jan 25, 2015 8:33 am

Code:program hanhphuc;uses crt;var f,j:text; n,i,h:integer;function ktsnt(var x:integer):boolean;var kt:boolean;begin kt:=true; i:=2; while (i<x)and(kt=true) do if x mod i = 0 then kt:=false else i:=i+1; ktsnt:=kt;end;procedure timdayhanhphuc;begin h:=n-1; while h>1 do begin if ktsnt(h)=true then begin write(j,h,' '); h:=h-1; end else if n mod h = 0 then begin write(j,h,' '); h:=h-1; end else h:=h-1; end;end;begin clrscr; assign(f,'d:\hanhphuc.inp'); reset(f); assign(j,'d:\hanhphuc.out'); rewrite(j); readln(f,n); writeln(j,n,' '); timdayhanhphuc; close(f); close(j); readln;end. thuynhuThánh codeTổng số bài gửi : 73Điểm thành tích : 20129Reputation : 1Join date : 03/01/2015Age : 25 LikeDislike

Re: Dãy số hạnh phúc

by Sponsored content

Sponsored content

Re: Dãy số hạnh phúc

by lyhuynh3112 Sun Jan 25, 2015 8:35 am

Code:program hanhphuc;uses crt;var f,j:text; n,i,h:integer;function ktsnt(var x:integer):boolean;var kt:boolean;begin kt:=true; i:=2; while (i<x)and(kt=true) do if x mod i = 0 then kt:=false else i:=i+1; ktsnt:=kt;end;procedure timdayhanhphuc;begin h:=n-1; while h>1 do begin if ktsnt(h)=true then begin write(j,h,' '); h:=h-1; end else if n mod h = 0 then begin write(j,h,' '); h:=h-1; end else h:=h-1; end;end;begin clrscr; assign(f,'d:\hanhphuc.inp'); reset(f); assign(j,'d:\hanhphuc.out'); rewrite(j); readln(f,n); writeln(j,n,' '); timdayhanhphuc; close(f); close(j); readln;end.lyhuynh3112Bắt đầu học nâng caoTổng số bài gửi : 37Điểm thành tích : 20090Reputation : 0Join date : 03/01/2015Age : 24Đến từ : dong pho LikeDislike

Re: Dãy số hạnh phúc

by Admin Sun Jan 25, 2015 8:50 am

có vẻ sáng nay Như hạnh phúc hơn hôm qua nhỉAdminGiáo viênTổng số bài gửi : 192Điểm thành tích : 20349Reputation : -6Join date : 29/12/2014 LikeDislike

Re: Dãy số hạnh phúc

by Thành Lợi Sun Jan 25, 2015 8:57 am

Code:program Hanhphuc;uses crt;var f,j:text; n,i,h:integer;function ktsnt(var x:integer):boolean;var kt:boolean;begin kt:=true; i:=2; while (i<x)and(kt=true) do if x mod i = 0 then kt:=false else i:=i+1; ktsnt:=kt;end;procedure timdayhanhphuc;begin h:=n-1; while h>1 do begin if ktsnt(h)=true then begin write(j,h,' '); h:=h-1; end else if n mod h = 0 then begin write(j,h,' '); h:=h-1; end else h:=h-1; end;end;begin clrscr; assign(f,'d:\codon.inp'); reset(f); assign(j,'d:\hanhphuc.out'); rewrite(j); readln(f,n); writeln(j,n,' '); timdayhanhphuc; close(f); close(j); readln;end. Thành LợiChăm chỉTổng số bài gửi : 108Điểm thành tích : 20144Reputation : -35Join date : 03/01/2015Age : 25Đến từ : Việt Nam LikeDislike

Re: Dãy số hạnh phúc

by Minh Trang Sun Jan 25, 2015 9:54 am

Code:program hp;uses crt;var t,f:text; i,n:integer; A:array [1..100]of integer;procedure dofile;var x:integer;begin readln(f,x);end;function ktnt(x:integer):boolean;var i:integer; kt:boolean;begin kt:=true; for i:= 2 to x-1 do if x mod i=0 then kt:=false;ktnt:=kt;end;function ktuoc(x:integer):boolean;var kt:boolean;begin kt:=false; for i:= 2 to x-1 do if x mod i=0 then a[i]:=i; if n mod a[i]= 0 then kt:=true;ktuoc:=kt;end;beginclrscr;assign(f,'d:\FA.inp');reset(f);assign(t,'d:\hp.out');rewrite(t);dofile;for i:= n-1 downto 2 doif (ktnt(i)=true )or (ktuoc(n)=true) then write(t,i);close(f);close(t);readlnend.Sáng nay em bị bất hạnh rồi Minh TrangNắm được căn bảnTổng số bài gửi : 25Điểm thành tích : 20077Reputation : -3Join date : 03/01/2015Age : 25Đến từ : Trường THCS Bình thuận LikeDislike

Re: Dãy số hạnh phúc

by Admin Sun Jan 25, 2015 10:01 am

phải rồi, dãy hp bao gồm chính nó, em quên điều đó nên...AdminGiáo viênTổng số bài gửi : 192Điểm thành tích : 20349Reputation : -6Join date : 29/12/2014 LikeDislike

Re: Dãy số hạnh phúc

by Sponsored content

Sponsored content

Tin học Tây Sơn :: Bài tập

Trang 1 trong tổng số 1 trangChuyển đến: Chọn Diễn Đàn||--Bài tập|--Tài liệu học tập|--Thử thách Permissions in this forum:Bạn không có quyền trả lời bài viết

• Trang Chính
• Free forum | ©phpBB | Free forum support | Báo cáo lạm dụng | Thảo luận mới nhất