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), упорядоченный по возрастанию, с сохранением упорядоченности. Система тестов
Номер теста |
Проверяемый случай |
Данные |
Результат |
|
D |
Массив А |
|||
1 |
D <= a1 |
0 |
A=(1, 3, 5) |
A=(0, 1, 3, 5) |
2 |
a1< D <= aN |
4 |
A=(1, 3, 5) |
A=(1, 3, 4, 5) |
3 |
aN < D |
6 |
A=(1, 3, 5) |
A=(1, 3, 5, 6) |
Демонстрация
Начало формы
Конец формы
Школьный АЯ
алг Включение (арг цел 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)
|
Блок-схема (фрагмент)
|
Turbo Pascal
Program Insertion;
Uses Crt;
Var A : Array [1..20] of Real;
D : Real;
N, i : Integer;
{--------------------------------------------}
Procedure InputOutput; {описание процедуры ввода-вывода}
Begin ClrScr;
Write(’Количество элементов массива - ’); ReadLn(N);
WriteLn(’Введите элементы массива, упорядоченные по возрастанию:’);
For i := 1 to N do
begin Write(’A[’ , i , ’] = ’); ReadLn(A[i])
end; WriteLn;
Write(’Введите число, которое требуется включить в массив: ’);
ReadLn(D);
ClrScr; Write(’Исходный массив :’);
For i := 1 to N do Write(A[i] : 5 : 1); WriteLn;
WriteLn(’Включаемый элемент – ’, D : 5 : 1);
End; { of InputOutput }
{--------------------------------------------}
Procedure Insert; {описание процедуры включения нового элемента}
Begin
i:=N;
While (i>=1) and (A[i]>D) do
begin A[i+1] := A[i]; {сдвиг очередного элемента вправо}
i:=i–1
end;
A[i+1] := D {включение числа D в последовательность}
End;
{--------------------------------------------}
Procedure Result; {описание процедуры вывода результатов}
Begin WriteLn;
Write(’О т в е т : массив с включенным элементом ’);
For i := 1 to N+1 do Write( A[i] : 5 : 1); WriteLn;
ReadLn
End;
{--------------------------------------------}
BEGIN
InputOutput; {вызов процедуры ввода-вывода }
Insert; {вызов процедуры включения нового элемента}
Result; {вызов процедуры вывода результатов }
END.
QBasic
CLS
INPUT "Количество элементов массива – ", N
DIM A(N+1)
PRINT "Введите элементы массива, упорядоченные по возрастанию:"
FOR i = 1 TO N
PRINT "A(" ; i ; ") = " ; : INPUT A(i)
NEXT i : PRINT
INPUT "Введите число, которое требуется включить в массив: ", D
CLS : PRINT "Исходный массив – ";
FOR i = 1 TO N
PRINT A(i) ;
NEXT i : PRINT
PRINT "Включаемый элемент – "; D
i = N
WHILE (i >= 1) AND (A[i]>D)
A(i+1) = A[i] : i = i – 1 'сдвиг очередного элемента вправо
WEND
A(i+1) = D ’включение числа D в последовательность
PRINT : PRINT "О т в е т : массив с включенным элементом ";
FOR i = 1 TO N + 1
PRINT A(i) ;
NEXT i : PRINT
END