Большинство программ создаются для решения какой-либо задачи. В процессе решения задачи на компьютере пользователю нужно ввести обрабатываемые данные, указать, как их обрабатывать, задать способ вывода полученных результатов. Поэтому как программист вы должны знать:
v как ввести информацию в память (ввод),
v как хранить информацию в памяти (данные);
v как указать правильные команды для обработки данных (операции);
v как передать обратно данные из программы пользователю (вывод).
Вы должны упорядочить команды таким образом, чтобы:
v некоторые из них выполнялись только в том случае, если соблюдается некоторое условие или ряд условий (условное выполнение);
v другие выполнялись повторно некоторое число раз (циклы);
v третьи выделялись в отдельные части, которые могут быть неоднократно выполнены в разных местах программы (подпрограммы).
Таким образом, как программист вы должны уметь использовать семь основных элементов программирования: ввод, данные, операции, вывод, условное выполнение, циклы и подпрограммы и на их основе строить программы.
Этот список не является исчерпывающим, однако он содержит те элементы, которые обычно присущи всем программам (и процедурным языкам программирования). Многие языки программирования, в том числе и Паскаль, имеют еще дополнительные средства, которые вы изучите далее. Ниже дается краткое описание каждого элемента.
Ввод означает считывание значений, поступающих с клавиатуры, с диска или из порта ввода-вывода.
Данные — это константы, переменные и структуры, содержащие числа (целые и вещественные), текст (символы и строки) или адреса (переменных и структур).
Операции осуществляют присваивание значений, их комбинирование (сложение, деление и т.д.) и сравнение значений (равные, неравные и т. д.).
Вывод означает запись информации на экран, на диск или в порт ввода-вывода.
Условное выполнение предполагает выполнение набора команд в случае, если удовлетворяется (является истинным) некоторое условие (если это условие а удовлетворяется, то эти команды пропускаются или же выполняется другой набор команд) или если некоторый элемент данных имеет некоторое специальное значение или значение из некоторого спектра.
Благодаря циклам некоторый набор команд выполняется повторно или фиксированное число раз, или пока является истинным некоторое условие, или пока некоторое условие не стало истинным.
Подпрограмма представляет собой набор команд, который имеет имя и может быть неоднократно вызван из любого места программы по его имени.
Текст программы
{Учебная программа - итоговый тест по информатике}
Program informatika; {Заголовок программы}
Uses Crt; {Подключение модуля}
{ Процедура вывода строки из 80 решеток }
Procedure Line80;
var
i:integer;
begin
for i:=1 to 80 do write('#');
writeln;
end;
{ Процедура вывода ошибки }
Procedure Error;
begin
TextBackground(0);
TextColor(4);
CLRSCR;
Gotoxy(10,13);
Writeln('ВЫОШИБЛИСЬ!!! БУДЬТЕ ВНИМАТЕЛЬНЫВ СЛЕДУЮЩИЙ РАЗ!!!');
Delay(5000);
end;
label { раздел описания меток }
finish;
var {Описания раздела переменных}
D:record
end;
f:text; { файл итогов опроса}
a,b:integer; {переменные a,b - целого типа}
m,n,o,i:string; {переменные m,n,o,i - строкового типа}
Begin {начало программы}
TextBackground(1); {Установка цвета экрана}
TextColor(9); {Установка цвета текста}
CLRSCR; {Очистка и закраска фона экрана}
Gotoxy(30,7); {Установка курсора в заданные координаты: X,Y}
WriteLn('УЧЕБНАЯ ПРОГРАММА');
Gotoxy(30,8); {Установка курсора в заданные координаты: X,Y}
WriteLn('"ТЕСТ ПО ИНФОРМАТИКЕ"');
Gotoxy(30,9); {Установка курсора в заданные координаты: X,Y}
WriteLn('(практическое использование');
Gotoxy(30,10); {Установка курсора в заданные координаты: X,Y}
WriteLn('среды Turbo Pascal)');
TextColor(14); {Установка цвета текста}
Gotoxy(45,14); {Установка курсора в заданные координаты: X,Y}
WriteLn('творческая работа');
Gotoxy(45,15); {Установка курсора в заданные координаты: X,Y}
WriteLn('учащегося 11 класса А школьно-');
Gotoxy(45,16); {Установка курсора в заданные координаты: X,Y}
WriteLn('подготовительного факультета ТПУ');
TextColor(0); {Установка цвета текста}
Gotoxy(45,17); {Установка курсора в заданные координаты: X,Y}
Writeln('Дмитриевой Светланы');
TextColor(3); {Установка цвета текста}
Gotoxy(45,19); {Установка курсора в заданные координаты: X,Y}
WriteLn('Руководитель');
Gotoxy(45,20); {Установка курсора в заданные координаты: X,Y}
Writeln('учитель информатики');
TextColor(0); {Установка цвета текста}
Gotoxy(45,21); {Установка курсора в заданные координаты: X,Y}
WriteLn('Сидорова Е.В.');
TextColor(12); {Установка цвета текста}
GOTOXY(0,25); {Установка курсора в заданные координаты: X,Y}
Line80; { нарисовать линию }
TextColor(8); {Установка цвета текста}
Gotoxy(50,27); {Установка курсора в заданные координаты: X,Y}
Writeln('Для продолжения нажмите [ENTER]');
Readln;
TextBackground(red); {Установка цвета экрана}
TextColor(14+16); {Установка цвета текста}
CLRSCR; {Очистка и закраска фона экрана}
Gotoxy(8,12); {Установка курсора в заданные координаты: X,Y}
WriteLn('Имя:'); {вывод текста на экран}
GOTOXY(13,12); {Установка курсора в заданные координаты: X,Y}
ReadLn(o); {ввод значения о с клавиатуры}
GOTOXY(8,14); {Установка курсора в заданные координаты: X,Y}
WriteLn('Фамилия:'); {вывод текста на экран}
GOTOXY(17,14); {Установка курсора в заданные координаты: X,Y}
readln(m); {ввод значения m с клавиатуры}
GOTOXY(8,16); {Установка курсора в заданные координаты: X,Y}
writeln('Класс (с буквой):'); {вывод текста на экран}
GOTOXY(26,16); {Установка курсора в заданные координаты: X,Y}
readln(n); {ввод значения n с клавиатуры}
a:=0; {переменной а присваивается число 0}
TextBackground(10); {Установка цвета экрана}
TextColor(14); {Установка цвета текста}
CLRSCR; {Очистка и закраска фона экрана}
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<=18) and (a>=16) then
writeln(f,b,' ошибки! 4. ');
{вывод текста в файл}
if (a<=15) and (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<=18) and (a>=16) then
writeln('Вы допустили ',b,' ошибки! Мне бы хотелось, чтобы Вы в следующий раз ответили лучше! 4. ');
{вывод текста на экран}
if (a<=15) and (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 наиболее понравившуюся мне книгу: Попова В. Б. Эта книга помогла мне больше, чем другие. В ней написано доступным каждому языком. Я посоветовала бы эту книгу и тем, кто только собрался постигать вершины программирования.
Мне бы хотелось почаще использовать свои новые полученные знания на практике, а именно работать по специальности инженер-программист.