Số Hoàn Hảo, Fibonaci, Chính Phương Trong Lập Trình Pascal - 123doc

Có thể bạn quan tâm

Tải bản đầy đủ (.docx) (10 trang)

Trang chủ

Lớp 8

Tin học

Số hoàn hảo, fibonaci, chính phương Trong lập trình Pascal

Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (87.1 KB, 10 trang )

Số hồn hảo.Số hồn thiện (hay cịn gọi là số hoàn chỉnh, số hoàn hảo hoặc số hoàn thành) làmột số nguyên dương mà tổng các ước nguyên dương của nó (số ngun dươngchia hết cho nó) bằng chính nó.Ví dụ:Số 6 có ước nhỏ hơn nó là 1,2,3. Tổng là 1+2+3=6 vậy 6 là số hh.Số 8 chia hết cho 1, 2, 4 tổng 1+2+4=7 → 8 không phải là số hh.Số 28 chia hết cho 1, 2,4, 7, 14 tổng 1+2+4+7+14=28 → 28 là số hh.1. Nhập vào số nguyên n, kiểm tra n có phải là số hồnhảo khơng?Nhận xét: số hồn hảo là số có tổng các ước thực sự bằng chínhnó.- Để kiểm tra n có phải là số hồn hảo khơng? Ta sẽ tìm ước thực sự củan rồi cộng các ước thực sự lại, nếu tổng các ước thực sự bằng n thì n làsố hồn hảo.b. Chương trình tham khảo:Programsohoanhao; Vari,n,tong:longint;BeginReadln(n);Tong:=0;For i:=1 to n-1 doIf n mod i = 0 then tong:=tong+i;If tong=n then write (n, ‘la so hoan hao’);Readln; End.Viết chương trình nhập vào một số n từ bàn phím thơng báo ra mànhình số đó có phải là số hồn hảo hay khơng (u cầu dùng hàm).12PROGRAM SoHoanHao;3USES CRT;4VAR n:INTEGER;5FUNCTION KiemTra(x:INTEGER):BOOLEAN;67VAR tam,i:INTEGER;BEGIN8tam:=0;9FOR i:= 1 TO (x DIV 2) DO10IF x MOD i = 0 THEN tam:=tam+i;11IF tam = x THEN KiemTra:=TRUE12Else KiemTra:=False;13END;14BEGIN15Clrscr;16Write('Nhap so can kiem tra ');Readln(n);17IF KiemTra(n) THEN1819202122Writeln('So ',n,' la so hoan hao')ELSEWriteln('So ',n,' khong phai la so hoan hao');Readln;END.23Yêu cầu: Cho dãy số a1, a2,... an. Hãy giúp Bờm đếm xem trong dãy có bao nhiêusố có tổng các chữ số là số hồn hảo.Dữ liệu vào: Từ file BAI2.INP gồm:- Dòng đầu tiên là số nguyên dương n (n ≤ 100).- n dòng tiếp theo ghi n số nguyên a1, a2,... an (0 ≤ ai ≤109). Kết quả: Ghi ra file BAI2.OUT gồm: Một dòng duy nhất là kết quả của bài toánprogram sohoanhao;uses crt;var N,i,dem:longint;a:array[1..100] of longint;f1,f2:text;function sohoanhao(n:longint):boolean;var S,i:longint;shh:boolean;BeginS:=0;shh:=true;for i:=1 to n-1 do if n mod i = 0 then S:=S+i;if nS then shh:=false;sohoanhao:=shh;End;{----------------------------------------------------}BEGINassign(f1,'sohoanhao.inp');reset(f1);assign(f2,'sohoanhao.out');rewrite(f2);readln(f1,N); dem:=0;for i:=1 to N doBeginreadln(f1,a[i]);if sohoanhao(a[i]) then inc(dem);End;write(f2,dem);close(f1);close(f2); END.Bài 2. Số chính phươngCho số nguyên n, kiểm tra n có phải là số chính phương khơng?Ý tưởng: Dựa trên định nghĩa số chính phương: là bình phương của một số tựnhiên.Ta có:= 0.0,0,,,,Nhận xét: Số chính phương là số có phần thập phân của căn bậc 2 là 0.Như vậy, để viết chương trình ta sử dụng hàm sqrt() để lấy căn bậc 2, hàm frac ()để lấy phần thập phân.Chương trình tham khảo:Program CP; Var n:longint;BeginWrite (‘nhap n:’); Readln (n);If (frac(sqrt(n))=0) and (n>=0) then write (n, ‘la so CP’) else write (n, ‘ko la soCP’);ReadldnEnd.In ra số chính phương nhỏ hơn 100.Ý tưởng:Để kiểm tra lần lượt các số chính phương nhỏ hơn 100 thì ta sẽ kiểm tra lần lượtcác số từ 0 đến 99 có phải là số chính phương khơng, bằng câu lệnh for… to … doChương trình tham khảo:Program CP; Var i:longint; BeginFor i:=0 to 99 doIf frac(sqrt(i))=0 then write (i,’ ‘); Readldn End.Tính tổng các số chính phương trong dãy số tự nhiên liên tiếp 1, 2, 3, ..., N (N 9 2 3 4 5 6 7Đưa các phần tử trong mảng a lui về sau 1 đơn vị, sau đó chèn số k vào vị trí đầutiên của dãy. In kết quả.Chương trình tham khảo:Var a:array[1..50] of longint; I,n,k: longint;BeginRead (n);read (k);For i:=1 to n do read (a[i]); For i:=n+1 downto 2 doA[i]:=a[i-1]; A[1]:=k;For i:=1 to n+1 do Write (a[i], ‘ ‘); Readln;Readln; End.BT: Viết chương trình nhập vào 1 dãy số nguyên a gồm n phần tử. Chèn số kvào vị trí cuối cùng của dãy.Lấy ví dụ:23 4 5 6 7 => 2 3 4 5 6 7 9Giữ nguyên các phần tử của dãy, sau đó chèn số k vào vị trí cuối cùng của dãy. Inkết quả.Chương trình tham khảo:Var a:array[1..50] of longint; I,n: longint;BeginRead (n); read (k);For i:=1 to n do read (a[i]);For i:=1 to n+1 do a[n+1]:=k; For i:=1 to n+1 do write (a[i], ‘ ‘);Readln; Readln; End.BT: Viết chương trình nhập vào 1 dãy số nguyên a gồm n phần tử. kiểm tra sốk, nếu số k là số chính phương thì chèn số k vào vị trí đầu dãy, ngược lại thìchèn vào cuối dãy. Ý tưởng:Lấy ví dụ:3 3 4 5 6 7 => 9 2 3 4 5 6 746 3 7 8 1 => 4 6 3 7 8 1 5BT: Kiểm tra số k có phải là số chính phương khơng,nếu số k là số chính phương thì chèn số k vào vị trí đầu dãy, ngược lại thì chènvào cuối dãy. In kết quả.Chương trình tham khảo:Var a:array[1..50] of longint; I,n,k: longint;BeginRead (n);read (k);For i:=1 to n do read (a[i]); If frac(sqrt(k)) = 0 thenbeginFor i:=n+1 downto 2 doA[i]:=a[i-1];A[1]:=k;End;If frac(sqrt(k)) 0 then beginFor i:=1 to n+1 doA[n+1]:=k;End;For i:=1 to n+1 do Write (a[i], ‘ ‘); Readln;Readln; End. BT: Viết chương trình nhập vào 1 dãy số nguyên a gồm n phần tử. Sắp xếpmảng theo thứ tự chẵn 1 hàng, lẻ 1 hàng.Ý tưởng:Lấy ví dụ:2 3 4 5 6 7 => 2 4 63571 1 1 1 1 1 => 1 1 1 1 1 12 2 2 2 2 2 => 2 2 2 2 2 23 3 3 3 4 5 => 3 3 3 3 54Nhập vào các phần tử của mảng.Kiểm tra lần lượt các phần tử của mảng. nếu là phần tử chẵn thì in ra. Sau đóxuống dịng, trở về vị trí ban đầu, kiểm tra lần lượt các phần tử của mảng, nếu phầntử là số lẻ thì in ra.Chương trình tham khảo:Var a:array [1..50] of longint; I,n:longint;Begin Read (n);For i:=1 to n do Read (a[i]);For i:=1 to n doIf a[i] mod 2 = 0 then write (a[i],’ ‘); writeln;For i:=1 to n doIf i mod 2 then write (a[i],’ ‘); Readln.End.

Tài liệu liên quan

Phương pháp xấp xỉ trung bình phương hay còn gọi là phương pháp bình phương tối thiểu để xấp xỉ hàm trong thực nghiệm
- 61
- 1
- 6
Tài liệu luận văn:bài toán dùng phương pháp xấp xỉ trung bình phương (hay còn gọi là phương pháp bình phương tối thiểu) để xấp xỉ hàm trong thực nghiệm pot
- 68
- 942
- 2
SKKN thiết kế một giáo án văn học địa phương trong chương trình ngữ văn 9 (THCS)
- 17
- 532
- 0
KỸ THUẬT TRỒNG và CHĂM sóc dưa CHUỘT HAY CÒN GỌI LÀ DƯA LEO
- 13
- 630
- 0
Hướng dẫn học sinh một vài phương pháp giải bài toán về số chính phương trong chương trình khối 8 THCS
- 21
- 456
- 0
Đánh giá sự tham gia của người dân địa phương trong quá trình xây dựng nông mới tại xã phương tiến, huyện vị xuyên, tỉnh hà giang
- 95
- 205
- 0
Phương pháp dạy học môn lịch sử địa phương trong chương trình THCS để phát huy tính năng động, sáng tạo của học sinh
- 21
- 290
- 0
Tri thức địa phương trong sử dụng và bảo vệ nguồn tài nguyên thiên nhiên của người tày ở huyện ba bể, tỉnh bắc kạn
- 237
- 214
- 0
Cách tạo tab hay còn gọi là tạo dấu chấm trong word
- 6
- 135
- 0
skkn phương pháp dạy học môn lịch sử địa phương trong chương trình THCS để phát huy tính năng động, sáng tạo của học sinh
- 21
- 295
- 0