TextBackground(11); {Установка цвета экрана} TextColor(9); {Установка цвета текста} CLRSCR; {Очистка и закраска фона экрана} Gotoxy(8,12); {Установка курсора в заданные координаты: X,Y} Writeln('6. Какое устройство может оказывать вредное воздействие на здоровье человека?'); {вывод текста на экран} Gotoxy(11,14); {Установка курсора в заданные координаты: X,Y} Writeln('1) принтер;'); {вывод текста на экран} Gotoxy(11,15); {Установка курсора в заданные координаты: X,Y} Writeln('2) монитор; '); {вывод текста на экран} Gotoxy(11,16); {Установка курсора в заданные координаты: X,Y} Writeln('3) системный блок;'); {вывод текста на экран} Gotoxy(11,17); {Установка курсора в заданные координаты: X,Y} Writeln('4) модем.'); {вывод текста на экран} Gotoxy(25,18); {Установка курсора в заданные координаты: X,Y} Readln(i); {ввод значения i с клавиатуры} if i='10' then goto finish; if i='2' then a:=a +1 {если то ...} else {Условие не выполнено} begin {начало составного оператора}
Error { Процедура вывода ошибки } end; {конец составного оператора}
TextBackground(10); {Установка цвета экрана} TextColor(14); {Установка цвета текста} CLRSCR; {Очистка и закраска фона экрана} Gotoxy(8,12); {Установка курсора в заданные координаты: X,Y} Writeln('7. Файл-это:'); {вывод текста на экран} Gotoxy(11,13); {Установка курсора в заданные координаты: X,Y} Writeln('1) программа в оперативной памяти;'); {вывод текста на экран} Gotoxy(11,14); {Установка курсора в заданные координаты: X,Y} Writeln('2) единица измерения информации; '); {вывод текста на экран} Gotoxy(11,15); {Установка курсора в заданные координаты: X,Y} Writeln('3) текст, распечатанный на принтере;'); {вывод текста на экран} Gotoxy(11,16); {Установка курсора в заданные координаты: X,Y} Writeln('4) программа или данные на диске.'); {вывод текста на экран} Gotoxy(25,17); {Установка курсора в заданные координаты: X,Y} Readln(i); {ввод значения i с клавиатуры} if i='10' then goto finish; if i='4' then a:=a +1 {если то ...} else {Условие не выполнено} begin {начало составного оператора}
TextBackground(11); {Установка цвета экрана} TextColor(9); {Установка цвета текста} CLRSCR; {Очистка и закраска фона экрана} Gotoxy(8,12); {Установка курсора в заданные координаты: X,Y} Writeln('8. Что называется алгоритмом?'); {вывод текста на экран} Gotoxy(11,13); {Установка курсора в заданные координаты: X,Y} Writeln('1) последовательность команд, которую может выполнить исполнитель;'); {вывод текста на экран} Gotoxy(11,14); {Установка курсора в заданные координаты: X,Y} Writeln('2) система команд исполнителя;'); {вывод текста на экран} Gotoxy(11,15); {Установка курсора в заданные координаты: X,Y} Writeln('3) ненумерованная последовательность строк;'); {вывод текста на экран} Gotoxy(11,16); {Установка курсора в заданные координаты: X,Y} Writeln('4) нумерованная последовательность строк. '); {вывод текста на экран} Gotoxy(25,17); {Установка курсора в заданные координаты: X,Y} Readln(i); {ввод значения i с клавиатуры} if i='10' then goto finish; if i='1' then a:=a +1 {если то ...} else {Условие не выполнено} begin {начало составного оператора}
TextBackground(10); {Установка цвета экрана} TextColor(14); {Установка цвета текста} CLRSCR; {Очистка и закраска фона экрана} Gotoxy(8,12); {Установка курсора в заданные координаты: X,Y} Writeln('9. Какая из последовательностей команд приведет исполнителя Черепашку в первоначальное место и положение?'); {вывод текста на экран} Gotoxy(11,14); {Установка курсора в заданные координаты: X,Y} Writeln('1) вперед (1 см), направо (90), вперед (1 см), направо (90), вперед '); {вывод текста на экран} Gotoxy(11,15); {Установка курсора в заданные координаты: X,Y} Writeln(' (1 см), направо (90), вперед (1 см), направо (90);'); {вывод текста на экран} Gotoxy(11,16); {Установка курсора в заданные координаты: X,Y} Writeln('2) вперед (1 см), направо (90), вперед (1 см), направо (90), вперед'); {вывод текста на экран} Gotoxy(11,17); {Установка курсора в заданные координаты: X,Y} Writeln(' (1 см), направо (90), вперед (1 см);'); {вывод текста на экран} Gotoxy(11,18); {Установка курсора в заданные координаты: X,Y} Writeln('3) вперед (1 см), направо (90), вперед (1 см), направо (90), вперед (1 см), направо (90); '); {вывод текста на экран} Gotoxy(11,20); {Установка курсора в заданные координаты: X,Y} Writeln('4) вперед (1 см), направо (90), вперед (1 см), направо (90). '); {вывод текста на экран} Gotoxy(25,21); {Установка курсора в заданные координаты: X,Y} Readln(i); {ввод значения i с клавиатуры} if i='10' then goto finish; if i='1' then a:=a +1 {если то ...} else {Условие не выполнено} begin {начало составного оператора}
TextBackground(11); {Установка цвета экрана} TextColor(9); {Установка цвета текста} CLRSCR; {Очистка и закраска фона экрана} Gotoxy(8,12); {Установка курсора в заданные координаты: X,Y} Writeln('10. Модель есть замещение изучаемого объекта другим объектом, который отражает: '); {вывод текста на экран} Gotoxy(11,14); {Установка курсора в заданные координаты: X,Y} Writeln('1) все стороны данного объекта; '); {вывод текста на экран} Gotoxy(11,15); {Установка курсора в заданные координаты: X,Y} Writeln('2) некоторые стороны данного объекта;'); {вывод текста на экран} Gotoxy(11,16); {Установка курсора в заданные координаты: X,Y} Writeln('3) существенные стороны данного объекта;'); {вывод текста на экран} Gotoxy(11,17); {Установка курсора в заданные координаты: X,Y} Writeln('4) несущественные стороны данного объекта.'); {вывод текста на экран} Gotoxy(25,18); {Установка курсора в заданные координаты: X,Y} Readln(i); {ввод значения i с клавиатуры} if i='10' then goto finish; if i='3' then a:=a +1 {если то ...} else {Условие не выполнено} begin {начало составного оператора}
TextBackground(10); {Установка цвета экрана} TextColor(14); {Установка цвета текста} CLRSCR; {Очистка и закраска фона экрана} Gotoxy(8,12); {Установка курсора в заданные координаты: X,Y} Writeln('11. Минимальным объектом, используемым в текстовом редакторе, является: '); {вывод текста на экран} Gotoxy(11,13); {Установка курсора в заданные координаты: X,Y} Writeln('1) слово;'); {вывод текста на экран} Gotoxy(11,14); {Установка курсора в заданные координаты: X,Y} Writeln('2) точка экрана (пиксель);'); {вывод текста на экран} Gotoxy(11,15); {Установка курсора в заданные координаты: X,Y} Writeln('3) абзац;'); {вывод текста на экран} Gotoxy(11,16); {Установка курсора в заданные координаты: X,Y} Writeln('4) символ (буква).'); {вывод текста на экран} Gotoxy(25,17); {Установка курсора в заданные координаты: X,Y} Readln(i); {ввод значения i с клавиатуры} if i='10' then goto finish; if i='4' then a:=a +1 {если то ...} else {Условие не выполнено} begin {начало составного оператора}
TextBackground(11); {Установка цвета экрана} TextColor(9); {Установка цвета текста} CLRSCR; {Очистка и закраска фона экрана} Gotoxy(8,12); {Установка курсора в заданные координаты: X,Y} Writeln('12. Количество разичных кодировок букв русского алфавита составляет: '); {вывод текста на экран} Gotoxy(11,13); {Установка курсора в заданные координаты: X,Y} Writeln('1) одну;'); {вывод текста на экран} Gotoxy(11,14); {Установка курсора в заданные координаты: X,Y} Writeln('2) две (MS-DOS, Windows);'); {вывод текста на экран} Gotoxy(11,15); {Установка курсора в заданные координаты: X,Y} Writeln('3) три (MS-DOS, Windows, Macintosh);'); {вывод текста на экран} Gotoxy(11,16); {Установка курсора в заданные координаты: X,Y} Writeln('4) пять (MS-DOS, Windows, Macintosh,ISO, КОИ-8).'); {вывод текста на экран} Gotoxy(25,17); {Установка курсора в заданные координаты: X,Y} Readln(i); {ввод значения i с клавиатуры} if i='10' then goto finish; if i='4' then a:=a +1 {если то ...} else {Условие не выполнено} begin {начало составного оператора}
TextBackground(10); {Установка цвета экрана} TextColor(14); {Установка цвета текста} CLRSCR; {Очистка и закраска фона экрана} Gotoxy(8,12); {Установка курсора в заданные координаты: X,Y} Writeln('13. Инструментами в графическом редакторе являются: '); {вывод текста на экран} Gotoxy(11,13); {Установка курсора в заданные координаты: X,Y} Writeln('1) линия, круг, прямоугольник; '); {вывод текста на экран} Gotoxy(11,14); {Установка курсора в заданные координаты: X,Y} Writeln('2) выделение, копирование, вставка;'); {вывод текста на экран} Gotoxy(11,15); {Установка курсора в заданные координаты: X,Y} Writeln('3) карандаш, кисть, ластик;'); {вывод текста на экран} Gotoxy(11,16); {Установка курсора в заданные координаты: X,Y} Writeln('4) наборы цветов.'); {вывод текста на экран} Gotoxy(25,17); {Установка курсора в заданные координаты: X,Y} Readln(i); {ввод значения i с клавиатуры} if i='10' then goto finish; if i='3' then a:=a +1 {если то ...} else {Условие не выполнено} begin {начало составного оператора}
TextBackground(11); {Установка цвета экрана} TextColor(9); {Установка цвета текста} CLRSCR; {Очистка и закраска фона экрана} Gotoxy(8,12); {Установка курсора в заданные координаты: X,Y} Writeln('14. Графический файл содержит полную информацию о каждой точке изображе- ния, если он сохранен в формате:'); {вывод текста на экран} Gotoxy(11,14); {Установка курсора в заданные координаты: X,Y} Writeln('1) BMP; '); {вывод текста на экран} Gotoxy(11,15); {Установка курсора в заданные координаты: X,Y} Writeln('2) JPG; '); {вывод текста на экран} Gotoxy(11,16); {Установка курсора в заданные координаты: X,Y} Writeln('3) TIF; '); {вывод текста на экран} Gotoxy(11,17); {Установка курсора в заданные координаты: X,Y} Writeln('4) GIF. '); {вывод текста на экран} Gotoxy(25,18); {Установка курсора в заданные координаты: X,Y} Readln(i); {ввод значения i с клавиатуры} if i='10' then goto finish; if i='1' then a:=a +1 {если то ...} else {Условие не выполнено} begin {начало составного оператора}
TextBackground(10); {Установка цвета экрана} TextColor(14); {Установка цвета текста} CLRSCR; {Очистка и закраска фона экрана} Gotoxy(8,12); {Установка курсора в заданные координаты: X,Y} Writeln('15. В состав мультимедийного компьютера входит: '); {вывод текста на экран} Gotoxy(11,13); {Установка курсора в заданные координаты: X,Y} Writeln('1) проекционная панель;'); {вывод текста на экран} Gotoxy(11,14); {Установка курсора в заданные координаты: X,Y} Writeln('2) CD-ROM дисковод и звуковая плата;'); {вывод текста на экран} Gotoxy(11,15); {Установка курсора в заданные координаты: X,Y} Writeln('3) модем;'); {вывод текста на экран} Gotoxy(11,16); {Установка курсора в заданные координаты: X,Y} Writeln('4) плоттер.'); {вывод текста на экран} Gotoxy(25,17); {Установка курсора в заданные координаты: X,Y} Readln(i); {ввод значения i с клавиатуры} if i='10' then goto finish; if i='2' then a:=a +1 {если то ...} else {Условие не выполнено} begin {начало составного оператора}
TextBackground(11); {Установка цвета экрана} TextColor(9); {Установка цвета текста} CLRSCR; {Очистка и закраска фона экрана} Gotoxy(8,12); {Установка курсора в заданные координаты: X,Y} Writeln('16. В электронных таблицах выделена группа ячеек А1:В3. Сколько ячеек входит в эту группу? '); {вывод текста на экран} Gotoxy(11,14); {Установка курсора в заданные координаты: X,Y} Writeln('1) 6; '); {вывод текста на экран} Gotoxy(11,15); {Установка курсора в заданные координаты: X,Y} Writeln('2) 5; '); {вывод текста на экран} Gotoxy(11,16); {Установка курсора в заданные координаты: X,Y} Writeln('3) 4; '); {вывод текста на экран} Gotoxy(11,17); {Установка курсора в заданные координаты: X,Y} Writeln('4) 3; '); {вывод текста на экран} Gotoxy(25,18); {Установка курсора в заданные координаты: X,Y} Readln(i); {ввод значения i с клавиатуры} if i='10' then goto finish; if i='1' then a:=a +1 {если то ...} else {Условие не выполнено} begin {начало составного оператора}
TextBackground(10); {Установка цвета экрана} TextColor(14); {Установка цвета текста} CLRSCR; {Очистка и закраска фона экрана} Gotoxy(8,12); {Установка курсора в заданные координаты: X,Y} Writeln('17. Основным элементом базы данных является: '); {вывод текста на экран} Gotoxy(11,13); {Установка курсора в заданные координаты: X,Y} Writeln('1) поле; '); {вывод текста на экран} Gotoxy(11,14); {Установка курсора в заданные координаты: X,Y} Writeln('2) форма; '); {вывод текста на экран} Gotoxy(11,15); {Установка курсора в заданные координаты: X,Y} Writeln('3) таблица; '); {вывод текста на экран} Gotoxy(11,16); {Установка курсора в заданные координаты: X,Y} Writeln('4) запись. '); {вывод текста на экран} Gotoxy(25,17); {Установка курсора в заданные координаты: X,Y} Readln(i); {ввод значения i с клавиатуры} if i='10' then goto finish; if i='4' then a:=a +1 {если то ...} else {Условие не выполнено} begin {начало составного оператора}
TextBackground(11); {Установка цвета экрана} TextColor(9); {Установка цвета текста} CLRSCR; {Очистка и закраска фона экрана} Gotoxy(8,12); {Установка курсора в заданные координаты: X,Y} Writeln('18. Модем, передающий информацию со скоростью 28800 бит/с, передает две'); {вывод текста на экран} Gotoxy(8,13); {Установка курсора в заданные координаты: X,Y} Writeln(' страницы текста (3600 байт) в течении:'); {вывод текста на экран} Gotoxy(11,14); {Установка курсора в заданные координаты: X,Y} Writeln('1) 1 сек;'); {вывод текста на экран} Gotoxy(11,15); {Установка курсора в заданные координаты: X,Y} Writeln('2) 1 минуты; '); {вывод текста на экран} Gotoxy(11,16); {Установка курсора в заданные координаты: X,Y} Writeln('3) 1 часа; '); {вывод текста на экран} Gotoxy(11,17); {Установка курсора в заданные координаты: X,Y} Writeln('4) 1 дня. '); {вывод текста на экран} Gotoxy(25,18); {Установка курсора в заданные координаты: X,Y} Readln(i); {ввод значения i с клавиатуры} if i='10' then goto finish; if i='1' then a:=a +1 {если то ...} else {Условие не выполнено} begin {начало составного оператора}
TextBackground(10); {Установка цвета экрана} TextColor(14); {Установка цвета текста} CLRSCR; {Очистка и закраска фона экрана} Gotoxy(8,12); {Установка курсора в заданные координаты: X,Y} Writeln('19. Какой из способов подключения к Интернет обеспечивает наибольшие '); {вывод текста на экран} Gotoxy(9,13); {Установка курсора в заданные координаты: X,Y} Writeln('возможности для доступа к информационным ресурсам?'); {вывод текста на экран} Gotoxy(11,14); {Установка курсора в заданные координаты: X,Y} Writeln('1) удаленный доступ по коммутируемому телефонному каналу; '); {вывод текста на экран} Gotoxy(11,15); {Установка курсора в заданные координаты: X,Y} Writeln('2) постоянное соединение по оптоволоконному каналу; '); {вывод текста на экран} Gotoxy(11,16); {Установка курсора в заданные координаты: X,Y} Writeln('3) постоянное соединение по выделенному телефонному каналу; ');
{вывод текста на экран} Gotoxy(11,17); {Установка курсора в заданные координаты: X,Y} Writeln('4) терминальное соединение по коммутируемому телефонному каналу.'); {вывод текста на экран} Gotoxy(25,18); {Установка курсора в заданные координаты: X,Y} Readln(i); {ввод значения i с клавиатуры} if i='10' then goto finish; if i='2' then a:=a +1 {если то ...} else {Условие не выполнено} begin {начало составного оператора}
TextBackground(11); {Установка цвета экрана} TextColor(9); {Установка цвета текста} CLRSCR; {Очистка и закраска фона экрана} Gotoxy(8,12); {Установка курсора в заданные координаты: X,Y} Writeln('20. Гипертекст-это: '); {вывод текста на экран} Gotoxy(11,13); {Установка курсора в заданные координаты: X,Y} Writeln('1) очень большой текст; '); {вывод текста на экран} Gotoxy(11,14); {Установка курсора в заданные координаты: X,Y} Writeln('2) структурированный текст, в котором могут осуществляться переходы по выделенным меткам;'); {вывод текста на экран} Gotoxy(11,16); {Установка курсора в заданные координаты: X,Y} Writeln('3) текст, набранный на компьютере; '); {вывод текста на экран} Gotoxy(11,17); {Установка курсора в заданные координаты: X,Y} Writeln('4) текст, в котором используется шрифт большого размера. '); {вывод текста на экран} Gotoxy(25,18); {Установка курсора в заданные координаты: X,Y} Readln(i); {ввод значения i с клавиатуры} if i='10' then goto finish; if i='2' then a:=a +1 {если то ...} else {Условие не выполнено} begin {начало составного оператора}
b:=20-a;
assign(f,'c:Tvorresult.txt'); append(f); { открываем файл для добавления записи } with D do begin
WRITELN(f,m,' ',o,' ',n,' класс');
{вывод текста в файл} if a=20 then {если то ...} writeln(f,'0 ошибок - 5+.');
{вывод текста в файл} if a=19 then writeln(f,'1 ошибка! 5.');
{вывод текста в файл} if (a=16) then writeln(f,b,' ошибки! 4. ');
{вывод текста в файл} if (a=10) then writeln(f,b,' ошибок! 3.');
{вывод текста в файл} if a
Страницы: 1, 2, 3
