1. Основные этапы: подготовка материала для выбранной темы презентации.
· Это изображения (простые и анимированные);
· Тексты и цитаты из статей, книг, и других источников информации.
· Видео и аудиозаписи, которые разнообразить и более наглядно раскрыть тему.
2. Сценарий – это иными словами схема презентации.
· Последовательность слайдов
· Сопровождения материалов на слайде словами рассказывающего, чтобы более подробно раскрыть тему
На первом слайде обычно отображается тема, на последующих слайдах - цели, основной материал презентации. Заканчивается презентация слайдом с выводом и слайдом с благодарностью слушателям, за просмотренный материал и уделенное время.
3. После того, как набран материал для презентации и подготовлена схема – следует самому ещё просмотреть, чтобы исключить ошибки, которые могли возникнуть во время её составления (перепутались слайды, допущены ошибки в тексте, изображение на слайде перекрывает текст, плохо выбран цвет фона из-за чего не видно текст). Далее, если к презентации есть устное сопровождение – следует включить презентацию и сопровождать её устно, чтобы по времени определить примерное время всей презентации. Также это даст возможность настроить переключение слайдов по времени, когда вы будете знать, сколько должен определенный слайд держаться на экране, чтобы вы успели закончить устное сопровождение данного слайда.
4. Отличие в том, что в интерактивной презентации можно создать кнопки, при нажатии на которые может включиться воспроизведение видео или аудиозаписи, изменение изображения, чтобы наглядно показать разницу между предыдущим.
В целом, интерактивная презентация предполагает собой взаимодействие человека с презентацией, то есть какие-то изменения с разрешения человека во время её показа.
Презентация по сценарию же, идет последовательно и без вмешательства в её ход.
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
function IsPrime(n:integer):boolean;
begin
if n<4 then Result:=True
else begin
var found:= (n mod 2 = 0);
var p:=3;
while (not found) and (sqr(p)<=n) do
begin
found:=(n mod p = 0);
p+=2
end;
Result:=not found
end
end;
begin
Writeln('k=',ArrRandom(ReadInteger('n='),1,999).Println.
Where(x->IsPrime(x)).Count)
end.
Тестовое решение:
n= 10
401 828 780 444 694 965 23 341 673 875
k=3
2. А вот так это пишется с процедурой
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
procedure IsPrime(n:integer; var res:boolean);
begin
if n<4 then res:=True
else begin
var found:= (n mod 2 = 0);
var p:=3;
while (not found) and (sqr(p)<=n) do
begin
found:=(n mod p = 0);
p+=2
end;
res:=not found
end
end;
begin
var a:=ArrRandom(ReadInteger('n='),1,999); a.Println;
var k:=0;
var prime:boolean;
foreach var e in a do begin
IsPrime(e,prime);
if Prime then Inc(k)
end;
Writeln('k=',k)
end.
Тестовое решение:
n= 12
199 43 71 365 417 904 170 212 694 103 161 689
k=4