План презентації «Гривня» 1. Визначити мету презентації 2. Розробити структуру презентації (на слайді повинно бути 1-2 фотки і їх опис) 3. Скласти сценарій презентації за зразком.
Зразок (запропонований): - Титулка (Назва презентації та її автор); - Інші перші гривні ( з папки); - Основні відомості про гривню; - Про що «говорять» банкноти; - Сучасні номінали гривня (на кожному слайді 1 номінал з описом); - Знаки захисту на номіналах; - Як відрізнити гривню від підробки; - Портрети видатних людей на купюрах; - Видатні місця України на гривні; - Кінцевий слайд.
4. Розробити анімаційні ефекти слайдів; 5. Однаковий шрифт Заголовка та підзаголовка на кожному слайді; 6. Розробити однакові ефекти зміни слайдів; 7. Додати музичний супровід слайдів; 8. Зробити на кожному слайді кнопки переходу; 9. Зберегти презентацію у власній папці.
1. Запись НЕ ВЕРНА. В операторе цикла for i:= 1 to sqrt(k) do значение, возвращаемое функцией sqrt имеет тип real, а в этом операторе все значения должны приводиться к целочисленному типу. Автоматическое приведение типа real к integer в языке Паскаль невозможно, его нужно осуществлять явно при функции Trunc() или Round().
2. НИ РАЗУ И НИЧЕГО НЕ БУДЕТ НАПЕЧАТАНО. Программа не откомпилируется из-за ошибок, которых в операторе if k write(k); сразу две. Первая - после k пропущено ключевое слово then. Вторая состоит в том, что после if должно следовать логическое выражение, а k имеет тип char, но не boolean.
3. ОДИН РАЗ, БУДЕТ ВЫВЕДЕНО True. В цикле должны быть значения порядкового типа и тип boolean этому требованию удовлетворяет. При входе в цикл f=false, цикл выполняется, затем f=true и цикл завершается. При однократном проходе по циклу выполнится оператор g:= not f и g получит значение true. Это значение и будет выведено.
// PascalABC.NET 3.2, сборка 1399 от 08.03.2017 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('Количество строк в матрице:'); var m:=ReadInteger('Количество столбцов в матрице:'); Writeln('*** Исходная матрица [',n,',',m,'] ***'); var a:=MatrRandom(n,m,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); Write('Количество элементов, превышающих 2, равно '); Writeln(a.Rows.SelectMany(x->x).Where(x->x>2).Count) end.
В операторе цикла for i:= 1 to sqrt(k) do значение, возвращаемое функцией sqrt имеет тип real, а в этом операторе все значения должны приводиться к целочисленному типу. Автоматическое приведение типа real к integer в языке Паскаль невозможно, его нужно осуществлять явно при функции Trunc() или Round().
2. НИ РАЗУ И НИЧЕГО НЕ БУДЕТ НАПЕЧАТАНО. Программа не откомпилируется из-за ошибок, которых в операторе if k write(k); сразу две.
Первая - после k пропущено ключевое слово then.
Вторая состоит в том, что после if должно следовать логическое выражение, а k имеет тип char, но не boolean.
3. ОДИН РАЗ, БУДЕТ ВЫВЕДЕНО True.
В цикле должны быть значения порядкового типа и тип boolean этому требованию удовлетворяет. При входе в цикл f=false, цикл выполняется, затем f=true и цикл завершается. При однократном проходе по циклу выполнится оператор g:= not f и g получит значение true. Это значение и будет выведено.