Практическая работа «Циклические конструкции»

Практическая работа «Циклические конструкции»

Вариант 1

Задание 1. Запишите программу без ошибок.

Programm Sum  Up;

  Var   x; S; P : Real; 

            I; n : Integer;

BEGIN   ClrScr

  Write (Введите n =); 

   Readln(n);

  Write ('Введите x = ');  

   Readln(x);

  S = 1  P = 1;

  For  1 to n do;

    begin

      P := - P*x /i;

      S := S + P

    End.

  Writeln ('О т в е т : S = ', S : 7 : 3 );

Readln

END. 

Задание 2. Записать алгоритм.

1.     Числа Фибоначчи  (Fi)  определяются по формулам  F0  = F1 =  1; Fi  =  Fi-1 +  Fi-2   при  i  =  2, 3, ...  Найдите сумму из чисел Фибоначчи, которое превосходит заданное число M (M>0).

2.     Дана последовательность из N целых чисел. Определите, со скольких положительных чисел она начинается.

Практическая работа «Циклические конструкции»

Вариант 2.

Задание 1. Запишите программу без ошибок.

Programm SummaFib

  Uses Crt;

  Var  M, F0, F1, F2, S : Inteder       

BEGIN

  ClrScr;

  Write  (Введите натуральное М :);

  Raedln(M);

  F0=1; F1=1; F=2;

  S:=4;            

  Write(’Числа Фибоначчи, не превосходящие ’, M, ’ :’, F0:4, F1:4);

  White F2<=M do;

    begin

      F0:=F1;

      F1:=F2;

     Write(F1 : 4);

      F2:=F0+F1; S:=S+F2;

    End.

  S=S–F2;

  Writeln(О т в е т : Сумма этих чисел равна  S);

Readln

END.

Задание 2. Записать алгоритм.

1.     Вычислите сумму Z = 1 + 2 + 3 + ... . Вычисления прекратите, когда значение Z превысит заданное значение A.

2.     Проверьте, есть ли в заданной целочисленной последовательности a1,  a2 ,  ... ,  aN  элементы, равные нулю. Если есть, найдите номер первого из них, если нет - выдайте соответствующий текст.