Паскаль (практическое использование)
бъекта другим объектом,
который отражает: ');
{вывод текста на экран}
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); {Установка курсора в зада
| |  скачать работу |
Паскаль (практическое использование) |
