Axborot tizimlari va texnologiyalari kafedrasi m ustaqil ta’lim mavzu

6-masala. L nomerli Fibonachchi sonini ekranga chiqaring.
Yechish. 1,1,2,3,5,8,13,21,34,...sonlar Fibonachchi sonlar ketma-ketligini ifodalaydi. Bu sonlar ketma-ketligida uchinchi hadidan boshlab har bir son o’zidan oldingi ikkita sonning yig’indisiga teng.
program misol 6;
var n,v,w,r,i:integer;
begin
write('n='); read(n);
w:=0;v:=1;i:=1;
while ir:=v+w; w:=v; v:=r;
i:=i+1;end;
Writeln('v=',v);
end.
3.7-masala. N natural son va A haqiqiy son berilgan. Quyidagi ko’paytmani hisoblang:
A(A+1)(A+2) ... (A+N)
Yechish. Berilgan ko’paytmani k bilan belgilaymiz.
program misol 7;
var a,p:real;i,n:integer;
begin
write('n='); read(n);
write('a='); read(a);
p:=1;
for i:=0 to n do
p:=p*(a+i);
write('p=',p);
end.
3.8-masala. Natural sonni tub ko’paytuvchilarga ajrating.
program misol 8;
var n,i:integer;
begin
write('n='); read(n);
for i:=1 to n do
if n mod i=0 then begin
write('i=',i);
end.
3.9-masala. 1 dan 10 gacha bo’lgan sonlardan sikl qadami 1 ga teng holda kvadrat chiqaring.
Yechish. Berilgan x sondan chiqarilgan kvadrat ildizning qiymatini y bilan belgilaymiz.y=x²
program misol 9;
var a,b,i:byte;
s:real;
begin
write('a='); read(a);
write('b='); read(b);
for i:=a to b do begin
Writeln(sqr(i));
end.