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

CLS

INPUT "Введите натуральное М : " , M

F0 = 1 : F1 = 1 : F2 = 2

S = 4 ’4 – сумма первых трех чисел Фибоначчи

PRINT "Числа Фибоначчи, не превосходящие "; M ; " : " ; F0 ; F1 ;

WHILE F2 <= M

F0=F1 : F1=F2 : PRINT F1;

F2=F0+F1 : S=S+F2

WEND

S=S–F2 ’вычитание из суммы последнего числа, которое превосходит М

PRINT : PRINT : PRINT "О т в е т : Сумма этих чисел равна "; S

END

Пример 4.5. Включить заданное число D в массив A(N), упорядоченный по возрастанию, с сохранением упорядоченности.

Система тестов

Демонстрация

Начало формы

Конец формы

Школьный АЯ

алгВключение (арг целN, арг вещD,арг рез вещ табA[1:N+1])

дано| А – упорядоченная по возрастанию последовательность

надо| в А включено число D с сохранением упорядоченности

нач целi

i:=N

нц пока (i>=1) и (A[i]>D)

A[i+1] := A[i] | сдвиг очередного элемента вправо на одну позицию

i := i–1

кц

A[i+1] := D | включение числа D в последовательность

Кон

Исполнение алгоритма Обозначение проверяемого условия: (i >= 1) и (A[i] > D) => (1) Номер теста i (1) Массив А + + + -(кц) (1, 3, 5) (1, 3, 5, 5) (1, 3, 3, 5) (1, 1, 3, 5) (0, 1, 3, 5) + -(кц) (1, 3, 5) (1, 3, 5, 5) (1, 3, 4, 5) -(кц) (1, 3, 5) (1, 3, 5, 6)

Блок-схема (фрагмент)