Практикум по решению задач на ЭВМ. Тарова И.Н - 33 стр.

UptoLike

ВУЗ: 

ЕГУ им. Бунина | Елец

Составители: 

Рубрика: 

Практикум по решению задач на ЭВМ
writeln('s4 =',s4);
end.
4) Дано натуральное число n. Получить последовательность b
1
, b
2
,..,b
n
, где
ni
i
b
i
i
,..2,1,
!
2
==
program posled(input,output);
uses CRT;
var n,i,x,p:integer;b:real;
begin
clrscr;
write('Введите n: ');
read(n);
i:=1; x:=2; p:=1;b:=x/p;
writeln('1-й элемент последовательности: ',b);
for i:=2 to n do
begin
x:=x*2;
p:=p*i;
b:=x/p;
writeln (i,'-й элемент последовательности: ',b);
end;
end.
5) Дана последовательность чисел Фибоначи образовывающаяся по зако-
ну: U
i
=U
i-2
+U
i-1
(i=2,3,…,n) U
0
=0, U
1
=1. Дано натуральное число n>1. По-
лучить U
0
, U
1
,….
33
                          Практикум по решению задач на ЭВМ


             writeln('s4 =',s4);
  end.




4) Дано натуральное число n. Получить последовательность b1, b2,..,bn, где
       2i
bi =      , i = 1,2,..n
       i!

  program posled(input,output);
  uses CRT;
  var n,i,x,p:integer;b:real;
  begin
    clrscr;
    write('Введите n: ');
    read(n);
    i:=1; x:=2; p:=1;b:=x/p;
    writeln('1-й элемент последовательности: ',b);
    for i:=2 to n do
    begin
       x:=x*2;
       p:=p*i;
       b:=x/p;
       writeln (i,'-й элемент последовательности: ',b);
    end;
  end.




5) Дана последовательность чисел Фибоначи образовывающаяся по зако-
ну: Ui=Ui-2+Ui-1 (i=2,3,…,n) U0=0, U1=1. Дано натуральное число n>1. По-
лучить U0, U1,….


                                         33

Страницы