Паскаль (практическое использование)
Gotoxy(8,12); {Установка курсора в заданные координаты: X,Y}
Writeln('1. В информатике количество информации определяется как:');
{вывод текста на экран}
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 {начало составного оператора}
Error { Процедура вывода ошибки }
end; {конец составного оператора}
TextBackground(11); {Установка цвета экрана}
TextColor(9); {Установка цвета текста}
CLRSCR; {Очистка и закраска фона экрана}
Gotoxy(8,12); {Установка курсора в заданные координаты: X,Y}
Writeln('2. Массовое производство персональных компьютеров началось:');
{вывод текста на экран}
Gotoxy(11,13); {Установка курсора в заданные координаты: X,Y}
Writeln('1) в 50-е гг.; '); {вывод текста на экран}
Gotoxy(11,14); {Установка курсора в заданные координаты: X,Y}
Writeln('2) в 60-е гг.; '); {вывод текста на экран}
Gotoxy(11,15); {Установка курсора в заданные координаты: 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. Модель есть замещение изучаемого объекта другим объектом,
который отражает: ');
{вывод текста на экран}
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 {начало составного оператора}
Error { Процедура вывода ошибки }
end; {конец составного оператора}
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 {начало составного оператора}
Error { Процедура вывода ошибки }
end; {конец составного оператора}
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 {начало составного оператора}
Error { Процедура вывода ошибки }
end; {конец составного оператора}
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 {начало составного оператора}
Error { Процедура вывода ошибки }
end; {конец составного оператора}
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 {начало составного оператора}
Error { Процедура вывода ошибки }
end; {конец составного оператора}
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 {начало составного оператора}
Error { Процедура вывода ошибки }
end; {конец составного оператора}
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 {начало составного оператора}
Error { Процедура вывода ошибки }
end; {конец составного оператора}
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 {начало составного оператора}
Error { Процедура вывода ошибки }
end; {конец составного оператора}
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 {начало составного оператора}
Error { Процедура вывода ошибки }
end; {конец составного оператора}
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 {начало составного оператора}
Error { Процедура вывода ошибки }
end; {конец составного оператора}
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 {начало составного оператора}
Error { Процедура вывода ошибки }
end; {конец составного оператора}
b:=20-a;
assign(f,'c:\Tvor\result.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 то ...}
writeln('Я не могу поверить! Вы ответили на все вопросы! Я
оцениваю Ваши знания оценкой 5+.');
{вывод текста на экран}
if a=19 then
writeln('Вы допустили 1 ошибку! Вы отлично ориентируетесь в мире
информатики. МОЛОДЕЦ!!! 5.');
{вывод текста на экран}
if (a=16) then
writeln('Вы допустили ',b,' ошибки! Мне бы хотелось, чтобы Вы в
следующий раз ответили лучше! 4. ');
{вывод текста на экран}
if (a=10) then
writeln('Вы допустили ',b,' ошибок! Я посоветовала бы Вам
изучать получше информатику! 3.');
{вывод текста на экран}
if a<=9 then
writeln('Вы допустили ',b,' ошибок! Ваши знания отвратительны!
Жду Вас на пересдачу зачета! 2. ');
{вывод текста на экран}
GOTOXY(0,14); {Установка курсора в заданные координаты: X,Y}
Line80; { нарисовать линию }
GOTOXY(9,15); {Установка курсора в заданные координаты: X,Y}
Writeln('Спасибо, что протестировались!!!'); {вывод текста на экран}
Delay(15000); {Задержка}
finish:
End. {конец программы}
Заключение.
Благодаря этой творческой работе я стала лучше ориентироваться в
информатике, ознакомилась с правилами выполнения творческой работы,
получила новые знания, узнала больше о программировании.
Хочу отметить 1 наиболее понравившуюся мне книгу: Попова В. Б. Эта
книга помогла мне больше, чем другие. В ней написано доступным каждому
языком. Я посоветовала бы эту книгу и тем, кто только собрался постигать
вершины программирования.
Мне бы хотелось почаще использовать свои новые полученные знания на
практике, а именно работать по специальности инженер-программист.
Страницы: 1, 2
|