1 Для чего используется программа Pinnacle Studio? А. для создания текстовых документов
Б. для работы с базами данных
В. для создания графических объектов
Г. Для создания видеороликов
2 .Какой вкладки нет в диалоговом окне программы Pinnacle Studio?
А. монтаж
Б. файл
В. импорт
Г. Вывод фильма
3.Как в программе Pinnacle Studio открыть инструментарий эффектов для объекта (отметьте правильные варианты)?
А. используя контекстное меню объекта
Б. через строку меню выбрав пункт Инструментарий
В. Двойным щелчком на объекте
Г. С кнопки Картинка
4. Как настроить время показа объекта (отметьте правильные варианты)?
А. Используя временную шкалу
Б. с вкладки Импортировать
В. используя пункт меню Файл
Г. двойным щелчком на объекте
5. Можно ли изменить начертание шрифта в титрах
А. да
Б. нет
6. Возможно ли добавить свои звуковые эффекты в создаваемый видеоролик?
А. программа дает возможность использовать только стандартные звуковые эффекты
Б. Можно добавить свои звуковые эффекты
В. В программе имеется возможность лишь для добавления музыки
7. Можно ли осуществить вывод фильма сразу на диск?
А. Да.
Б. Нет
8. Как добавить объекты в рабочую плоскость программы(отметьте правильные варианты)?
А. перетащив левой кнопкой мыши
Б. перетащив правой кнопкой мыши
В. через пункт меню
Г. используя контекстное меню
Д. двойным щелчком мыши
9. Как удалить ненужный объект с рабочей плоскости?
А. через контекстное меню
Б. двойным щелчком на объекте
В. используя пункт меню
10.Какие виды объектов нельзя добавить в видеоряд?
А. Музыку
Б. Рисунки
В. Фото
Г. Таблицы
Д. Текст
Е. Базу данных
В n будем хранить количество чисел, которые ещё нужно вывести. a и b - предыдущее и текущее числа Фибоначчи. По определению, следующее число Фибоначчи равно сумме двух предыдущих, так что новое значение b будет a + b. Чтобы не заводить новую временную переменную, новое значение a можно будет найти, вычитая из нового b старое a, получится (a + b) - a = b.
Код процедуры:
procedure print_fib(n: integer);
var a, b, t: integer;
begin
a := 0;
b := 1;
while n > 0 do
begin
write(b, ' ');
b := a + b;
a := b - a;
n := n - 1;
end;
end;
Пример основной программы:
begin
print_fib(10)
end.
Вывод:
1 1 2 3 5 8 13 21 34 55
begin
var a:=ReadLines('m17.txt').JoinIntoString.ToIntegers;
a.Println;
var b:=a.Select((x,i)->Rec(x,i)).Where(x->x.Item1<0)
.Select(x->x.Item2).ToArray;
if b.Count<>2 then
Writeln('Количество отрицательных элементов не равно двум')
else begin
a:=SeqFill(b[0],0).Concat(a.Skip(b[0]).Take(b[1]-b[0]+1))
.Concat(SeqFill(a.Length-b[1]-1,0)).ToArray;
a.Println
end
end.
Тестовое решение:
23 14 7 15 0 13 -6 41 18 13 8 42 27 -11 3 19 10
0 0 0 0 0 0 -6 41 18 13 8 42 27 -11 0 0 0
Файл с исходными данными имеет имя m17.txt. Тестовый файл находится во вложении. Разбивка на строки сделана по 5 значений, но может быть совершенно произвольной. Также нет привязки именно к 17 числам, главное - чтобы отрицательных чисел было ровно два, иначе будет выдано сообщение о их неверном количестве.