Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 4)

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<=9 then

writeln(f,b,' ошибок! 2. ');

{вывод текста в файл}

end;

close(f);

TextBackground(4); {Установка цвета экрана}

TextColor(12); {Установка цвета текста}

CLRSCR; {Очистка и закраска фона экрана}

Gotoxy(0,0); {Установка курсора в заданные координаты: X,Y}

WRITELN(m,' ',o,' ',n,' класс'); {вывод текста на экран}

GOTOXY(9,15); {Установка курсора в заданные координаты: X,Y}

GOTOXY(8,12); {Установка курсора в заданные координаты: X,Y}

if a=20 then {если то ...}

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 наиболее понравившуюся мне книгу: Попова В. Б. Эта книга помогла мне больше, чем другие. В ней написано доступным каждому языком. Я посоветовала бы эту книгу и тем, кто только собрался постигать вершины программирования.

Мне бы хотелось почаще использовать свои новые полученные знания на практике, а именно работать по специальности инженер-программист.

Характеристики

Список файлов реферата