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


МУНИЦИПАЛЬНОЕ АВТОНОМНОЕ ОБЩЕОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ «СРЕДНЯЯ ОБЩЕОБРАЗОВАТЕЛЬНАЯ ШКОЛА № 112 Г. ЧЕЛЯБИНСКА»
Выполнила учитель
информатики и ИКТ
первой категории
Юсупова Евгения Викторовна
г.Челябинск, 2014

Практическая работа «Циклические конструкции»
Задание 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. Записать алгоритм.
Числа Фибоначчи (Fi) определяются по формулам F0 = F1 = 1; Fi = Fi-1 + Fi-2 при i = 2, 3, ... Найдите сумму из чисел Фибоначчи, которое превосходит заданное число M (M>0).
Дана последовательность из N целых чисел. Определите, со скольких положительных чисел она начинается.

Практическая работа «Циклические конструкции»
Задание 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. Записать алгоритм.
Вычислите сумму Z = 1 + 2 + 3 + ... . Вычисления прекратите, когда значение Z превысит заданное значение A.
Проверьте, есть ли в заданной целочисленной последовательности a1, a2 , ... , aN элементы, равные нулю. Если есть, найдите номер первого из них, если нет - выдайте соответствующий текст.

Приложенные файлы

  • docx PRalg
    Размер файла: 15 kB Загрузок: 3