BÀI 18 DÃY SỐ FIBONACI Dãy số Fibonaci là 1 dãy số có nhiều phần tử, có đặc tính chung là 2 phần tử đầu là 1, phần tử sau bằng tổng của 2 phần tử trước đó.
BÀI 18 DÃY SỐ FIBONACI Dãy số Fibonaci là 1 dãy số có nhiều phần tử, có đặc tính chung là 2 phần tử đầu là 1, phần tử sau bằng tổng của 2 phần tử trước đó. Ví dụ dãy 1 1 2 3 5 8 13 21 là dãy Fibonaci có 8 phần tử. Em hãy viết chương trình để tìm giá trị của phần tử thứ n (0>= n <= 20) và tính tổng của các phần tử ở vị trí chẳn trong dãy này. Dữ liệu vào từ file FIBO.INP gồm 1 số nguyên n Kết quả ghi ra file FIBO.OUT gồm 2 dòng. Dòng 1 là số thứ n của dãy Fibonaci. Dòng 2 là tổng của các số Fibonaci ở vị trí chẳn Ví dụ FIBO.INP 9 FIBO.OUT 33 33 pascal aa
Lời giải 1 :
uses crt;
var i,o: text;
n,j,s: integer;
a: array[1..20] of integer;
begin
assign(i,'FIBO.INP'); reset(i);
assign(o,'FIBO.OUT'); rewrite(o);
read(i,n); close(i);
a[1]:=1;
a[2]:=1;
for j:=3 to n do begin
a[j]:=a[j-1]+a[j-2];
if j mod 2 = 0 then s:=s+a[j];
end;
writeln(o,a[n]);
write(o,s+1);
close(o);
end.
Thảo luận
Lời giải 2 :
uses crt;
var tong,i,n:longint;
a:array[1..1000] of longint;
begin
clrscr;
tong:=1;
readln(n);
a[1]:=1;
a[2]:=1;
if n>=3 then
begin
for i:=3 to n do
begin
a[i]:=a[i-1]+a[i-2];
if i mod 2=0 then
tong:=tong+a[n];
end;
writeln(a[i]);
write(tong);
end;
if n=2 then
begin
writeln(a[n]);
write(tong);
end;
if n=1 then
begin
writeln(a[n]);
write(0);
end;
readln;
end.
Có thể bạn quan tâm
Bạn có biết?
Tin học, tiếng Anh: informatics, tiếng Pháp: informatique, là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng (ảo). Với cách hiểu hiện nay, tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin.
Nguồn : Wikipedia - Bách khoa toàn thưTâm sự 9
Lớp 9 - Là năm cuối ở cấp trung học cơ sở, sắp phải bước vào một kì thi căng thẳng và sắp chia tay bạn bè, thầy cô và cả kì vọng của phụ huynh ngày càng lớn mang tên "Lên cấp 3". Thật là áp lực nhưng các em hãy cứ tự tin vào bản thân là sẻ vượt qua nhé!
Nguồn : ADMIN :))Xem thêm tại https://loigiaisgk.com/cau-hoi or https://giaibtsgk.com/cau-hoi
Copyright © 2021 HOCTAPSGK