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

UptoLike

ВУЗ: 

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

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

Рубрика: 

Тарова И.Н., Терехов Ю.П., Масина О.Н., Скоков А.В.
program fibbon(input,output);
uses CRT;
var n,i,u0,u1,u:longint;
begin
clrscr;
write('Введите число элементов последовательности Фиббоначи: ');
read(n);
u0:=0;
u1:=1;
writeln('0-й элемент последовательности: ',u0);
writeln('1-й элемент последовательности: ',u1);
for i:=2 to n do
begin
u:=u0+u1;
u0:=u1;
u1:=u;
writeln(i,'-й элемент последовательности: ',u);
end;
end.
Лабораторная работа №7
Сочетание цикла и разветвления
1) Даны натуральные числа n, q
1
, q
2
, …, q
n
. Найти члены последовательно-
сти, которые обладают тем свойством, что корни уравнения
действительны и положительны.
053
2
=−+
i
qx
2) Даны целые числа q
1
, q
2
, …, q
50
. Получить сумму тех чисел последова-
тельности, которые:
а) кратны 5;
б) нечетны и отрицательны;
в) удовлетворяют условию
|
q
i
|
<i
2
.
3) Даны натуральные числа n, q
1
,…,q
n
. Найти те члены данной последова-
тельности, которые:
a) при делении на 7 дают остаток 1, 2, 3.
b) являются удвоенными нечетными числами.
34
                              Тарова И.Н., Терехов Ю.П., Масина О.Н., Скоков А.В.



  program fibbon(input,output);
  uses CRT;
  var n,i,u0,u1,u:longint;
  begin
    clrscr;
    write('Введите число элементов последовательности Фиббоначи: ');
    read(n);
    u0:=0;
    u1:=1;
    writeln('0-й элемент последовательности: ',u0);
    writeln('1-й элемент последовательности: ',u1);
    for i:=2 to n do
    begin
       u:=u0+u1;
       u0:=u1;
       u1:=u;
       writeln(i,'-й элемент последовательности: ',u);
    end;
  end.




Лабораторная работа №7
                         Сочетание цикла и разветвления
1) Даны натуральные числа n, q1, q2, …, qn. Найти члены последовательно-
сти, которые обладают тем свойством, что корни уравнения
x 2 + 3qi − 5 = 0 действительны и положительны.

2) Даны целые числа q1, q2, …, q50. Получить сумму тех чисел последова-
тельности, которые:
а) кратны 5;
 б) нечетны и отрицательны;
в) удовлетворяют условию |qi|

Страницы