Паскаль (практическое использование)
координаты: X,Y}
Writeln('3) в 70-е гг.;'); {вывод текста на экран}
Gotoxy(11,16); {Установка курсора в заданные координаты: X,Y}
Writeln('4) в 80-е гг.'); {вывод текста на экран}
Gotoxy(25,17); {Установка курсора в заданные координаты: X,Y}
Readln(i); {ввод значения i с клавиатуры}
if i='10' then goto finish;
if i='4' then a:=a +1 {если <условие> то ...}
else {Условие не выполнено}
begin {начало составного оператора}
Error { Процедура вывода ошибки }
end; {конец составного оператора}
TextBackground(10); {Установка цвета экрана}
TextColor(14); {Установка цвета текста}
CLRSCR; {Очистка и закраска фона экрана}
Gotoxy(8,12); {Установка курсора в заданные координаты: X,Y}
Writeln('3. За единицу измерение количества информации принят:');
{вывод текста на экран}
Gotoxy(11,13); {Установка курсора в заданные координаты: X,Y}
Writeln('1) 1 бод; '); {вывод текста на экран}
Gotoxy(11,14); {Установка курсора в заданные координаты: X,Y}
Writeln('2) 1 бит; '); {вывод текста на экран}
Gotoxy(11,15); {Установка курсора в заданные координаты: X,Y}
Writeln('3) 1 байт;'); {вывод текста на экран}
Gotoxy(11,16); {Установка курсора в заданные координаты: X,Y}
Writeln('4) 1 килобайт.'); {вывод текста на экран}
Gotoxy(25,17); {Установка курсора в заданные координаты: X,Y}
Readln(i); {ввод значения i с клавиатуры}
if i='10' then goto finish;
if i='2' then a:=a +1 {если <условие> то ...}
else {Условие не выполнено}
begin {начало составного оператора}
Error { Процедура вывода ошибки }
end; {конец составного оператора}
TextBackground(11); {Установка цвета экрана}
TextColor(9); {Установка цвета текста}
CLRSCR; {Очистка и закраска фона экрана}
Gotoxy(8,12); {Установка курсора в заданные координаты: X,Y}
Writeln('4. Как записывается десятичное число 5 в двоичной системе
счисления?');
{вывод текста на экран}
Gotoxy(11,13); {Установка курсора в заданные координаты: X,Y}
Writeln('1) 101; '); {вывод текста на экран}
Gotoxy(11,14); {Установка курсора в заданные координаты: X,Y}
Writeln('2) 110; '); {вывод текста на экран}
Gotoxy(11,15); {Установка курсора в заданные координаты: X,Y}
Writeln('3) 111;'); {вывод текста на экран}
Gotoxy(11,16); {Установка курсора в заданные координаты: X,Y}
Writeln('4) 100.'); {вывод текста на экран}
Gotoxy(25,17); {Установка курсора в заданные координаты: X,Y}
Readln(i); {ввод значения i с клавиатуры}
if i='10' then goto finish;
if i='1' then a:=a +1 {если <условие> то ...}
else {Условие не выполнено}
begin {начало составного оператора}
Error { Процедура вывода ошибки }
end; {конец составного оператора}
TextBackground(10); {Установка цвета экрана}
TextColor(14); {Установка цвета текста}
CLRSCR; {Очистка и закраска фона экрана}
Gotoxy(8,12); {Установка курсора в заданные координаты: X,Y}
Writeln('5. Производительность работы компьютера (скорость его работы)
зависит от:');
{вывод текста на экран}
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='2' then a:=a +1 {если <условие> то ...}
else {Условие не выполнено}
begin {начало составного оператора}
Error { Процедура вывода ошибки }
end; {конец составного оператора}
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 {начало составного оператора}
Error { Процедура вывода ошибки }
end; {конец составного оператора}
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 {начало составного оператора}
Error { Процедура вывода ошибки }
end; {конец составного оператора}
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 {начало составного оператора}
Error { Процедура вывода ошибки }
end; {конец составного оператора}
TextBackground(11); {Установка цвета экрана}
TextColor(9); {Установка цвета текста}
CLRSCR; {Очистка и закраска фона экрана}
Gotoxy(8,12); {Установка курсора в заданные координаты: X,Y}
Writeln('10. Модель есть замещение изучаемого о
| | скачать работу |
Паскаль (практическое использование) |