Xreferat.com » Рефераты по информатике и программированию » Паскаль (практическое использование)

Паскаль (практическое использование)

клавиатуры}

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: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<=18) and (a>=16) then

Если Вам нужна помощь с академической работой (курсовая, контрольная, диплом, реферат и т.д.), обратитесь к нашим специалистам. Более 90000 специалистов готовы Вам помочь.
Бесплатные корректировки и доработки. Бесплатная оценка стоимости работы.

Поможем написать работу на аналогичную тему

Получить выполненную работу или консультацию специалиста по вашему учебному проекту
Нужна помощь в написании работы?
Мы - биржа профессиональных авторов (преподавателей и доцентов вузов). Пишем статьи РИНЦ, ВАК, Scopus. Помогаем в публикации. Правки вносим бесплатно.

Похожие рефераты: