Вопрос 13. Укажи те верный в ариант рисования прям оугольника:
A. Rectangle (100, 200, 100, 200)
B. Recta ngle (100, 200, 200, 4 00)
C. Recta ngle (100, 200 .5 , 200, 4 00 .5 )
D. Rectangle (100, 200, 100)
Вопрос 1 4 . Процедура, вы водящая те кст в левый верхний угол экран а :
A. TextOut( 10 ,10, ‘Privet’ )
B. T extOut( 10 ,10, “Privet” )
C. T extOut( 10 ,10, Privet)
D. TextOut( 10 ,10, ‘Privet’ , clblack)
Критерии оценив ания:
12-14 баллов – «5»
8- 10 баллов – «4»
6-7 баллов — «3»
0-5 баллов – «2»
Для скачивания поделитесь материалом в соцсетях
После того как вы поделитесь материалом внизу появится ссылка для скачивания.
Получить код —>
Информатика — еще материалы к урокам:
- Зачёт «Перевод чисел в системах счисления» 9 класс
- Практическая работа «Векторная графика. Векторный редактор Corel Draw» 9 класс
- Зачёт «Информационные модели» 10 класс
- Тест «Табличный процессор MS Excel» 9 класс
- Презентация «Файлы и папки» 4 класс
- Контрольные работы для выходного тестирования по разделу «Основы компьютерного черчения в САПР Компас 3D» 5 класс
Предметы
Алгебра
Английский язык
Биология
География
Геометрия
ИЗО
Информатика
История
Литература
Математика
Музыка
МХК
Начальная школа
ОБЖ
Обществознание
Окружающий мир
ОРКСЭ
Педагогика
Русский язык
Технология
Физика
Физкультура
Химия
Экология
Похожие материалы
- 8-01-2018, 15:18 Презентация «Линейные и разветвляющиеся алгоритмы. Реализация на
- 23-12-2017, 09:09 Презентация «Ветвления в среде программирования Turbo Pascal»
- 23-06-2017, 12:59 Презентация «Графика в Pascal ABC.NET»
- 18-03-2017, 12:33 Презентация «Графика в Turbo Pascal» 11 класс
- 1-11-2016, 18:45 Презентация «Введение в язык программирования Pascal»
- 23-09-2016, 12:45 Презентация «Программируем на Pascal»
- 1-09-2016, 16:32 Презентация «Программирование в среде PASCAL»
- 6-01-2016, 13:22 Презентация «Основы языка Pascal»
Источник: uchitelya.com
Строим график в PascalABC
Pascal Урок 11. Простое приложение Windows Forms
Включение графического режима в Паскале
Графический режим – это особый режим вывода на экран. Он является альтернативой текстовому режиму и отменяет его. Вначале графический режим обязательно должен быть запущен (инициирован), а в конце работы с ним – закрыт. Для этого используют следующие процедуры и функции.
Процедура InitGraph(Var grDr,grMd:integer;path:string);
grDr – графический драйвер, grMd – графический режим (mode), допустимый для этого драйвера; Path – полное имя каталога, в котором находятся графические драйверы. Если этот параметр задается пустой строкой (т.е. ’’), то подразумевается, что файлы драйверов находятся в текущем каталоге.
Первые два параметра являются параметрами-переменными и должны быть объявлены в описании переменных. Перед инициированием графического режима необходимо задать тип используемого драйвера. Это можно сделать самим или определить автоматически. Вполне возможно, что вам придется предварительно обновить драйвера для корректной работы графики на вашей операционной системе. И тут вам может пригодиться IObit Driver Booster — программа для обновления устаревших драйверов, которую можно получить тут: driverbooster.ru.
grDr : = Detect; — драйвер определяется автоматически или grDr : = Vga; — задан тип драйвера Vga.
Функция GraphResult.
Функция GraphResult- возвращает код ошибки для последней выполненной графической операции (в том числе и InitGraph, и De-tectGraph). Тип результата – целый.
Определены более десяти кодов ошибок. Если ошибки нет, то функция GraphResult возвращает код, равный 0 (соответствующая константа – GrOk). В противном случае возвращаемый код не равен 0. Причину ошибки можно узнать, обратившись к функции GraphErrorMsg. Входным параметром этой функции должен быть код ошибки, а возвращает функция строку, содержащую причину возникновения ошибки.
Процедура CloseGraph; – закрывает графический режим и восстанавливает исходный текстовый режим экрана, освобождает память, занимаемую графическим драйвером.
Пример. Стандартный фрагмент для работы с графикой.
Program. Uses graph; . Var grDr ,grMd,Er:integer; . Begin grDr := Detect; InitGraph(grDr,grMd,’’); Er := GraphResult; < Код ошибки >If Er=grOk then Begin < Графический режим >. CloseGraph; End Else WriteLn(’Ошибка графики:’,Er,’.,GraphErrorMsg(Er)); . end.
Пример. Переключение в текстовый режим и обратно.
Begin . RestoreCrtMode; < переход в текстовый режим Crt >. SetGraphMode(grMd); < Снова графический режим >. end;
Источник: upbyte.net