Банк рефератов содержит более 364 тысяч рефератов, курсовых и дипломных работ, шпаргалок и докладов по различным дисциплинам: истории, психологии, экономике, менеджменту, философии, праву, экологии. А также изложения, сочинения по литературе, отчеты по практике, топики по английскому.
Полнотекстовый поиск
Всего работ:
364139
Теги названий
Разделы
Авиация и космонавтика (304)
Административное право (123)
Арбитражный процесс (23)
Архитектура (113)
Астрология (4)
Астрономия (4814)
Банковское дело (5227)
Безопасность жизнедеятельности (2616)
Биографии (3423)
Биология (4214)
Биология и химия (1518)
Биржевое дело (68)
Ботаника и сельское хоз-во (2836)
Бухгалтерский учет и аудит (8269)
Валютные отношения (50)
Ветеринария (50)
Военная кафедра (762)
ГДЗ (2)
География (5275)
Геодезия (30)
Геология (1222)
Геополитика (43)
Государство и право (20403)
Гражданское право и процесс (465)
Делопроизводство (19)
Деньги и кредит (108)
ЕГЭ (173)
Естествознание (96)
Журналистика (899)
ЗНО (54)
Зоология (34)
Издательское дело и полиграфия (476)
Инвестиции (106)
Иностранный язык (62791)
Информатика (3562)
Информатика, программирование (6444)
Исторические личности (2165)
История (21319)
История техники (766)
Кибернетика (64)
Коммуникации и связь (3145)
Компьютерные науки (60)
Косметология (17)
Краеведение и этнография (588)
Краткое содержание произведений (1000)
Криминалистика (106)
Криминология (48)
Криптология (3)
Кулинария (1167)
Культура и искусство (8485)
Культурология (537)
Литература : зарубежная (2044)
Литература и русский язык (11657)
Логика (532)
Логистика (21)
Маркетинг (7985)
Математика (3721)
Медицина, здоровье (10549)
Медицинские науки (88)
Международное публичное право (58)
Международное частное право (36)
Международные отношения (2257)
Менеджмент (12491)
Металлургия (91)
Москвоведение (797)
Музыка (1338)
Муниципальное право (24)
Налоги, налогообложение (214)
Наука и техника (1141)
Начертательная геометрия (3)
Оккультизм и уфология (8)
Остальные рефераты (21692)
Педагогика (7850)
Политология (3801)
Право (682)
Право, юриспруденция (2881)
Предпринимательство (475)
Прикладные науки (1)
Промышленность, производство (7100)
Психология (8692)
психология, педагогика (4121)
Радиоэлектроника (443)
Реклама (952)
Религия и мифология (2967)
Риторика (23)
Сексология (748)
Социология (4876)
Статистика (95)
Страхование (107)
Строительные науки (7)
Строительство (2004)
Схемотехника (15)
Таможенная система (663)
Теория государства и права (240)
Теория организации (39)
Теплотехника (25)
Технология (624)
Товароведение (16)
Транспорт (2652)
Трудовое право (136)
Туризм (90)
Уголовное право и процесс (406)
Управление (95)
Управленческие науки (24)
Физика (3462)
Физкультура и спорт (4482)
Философия (7216)
Финансовые науки (4592)
Финансы (5386)
Фотография (3)
Химия (2244)
Хозяйственное право (23)
Цифровые устройства (29)
Экологическое право (35)
Экология (4517)
Экономика (20644)
Экономико-математическое моделирование (666)
Экономическая география (119)
Экономическая теория (2573)
Этика (889)
Юриспруденция (288)
Языковедение (148)
Языкознание, филология (1140)

Контрольная работа: Среда программирования программы Borland Pascal 70

Название: Среда программирования программы Borland Pascal 70
Раздел: Рефераты по информатике
Тип: контрольная работа Добавлен 01:25:50 04 декабря 2010 Похожие работы
Просмотров: 27 Комментариев: 20 Оценило: 2 человек Средний балл: 5 Оценка: неизвестно     Скачать

Введение

Данная программа, написанная в среде программирования BorlandPascal 7.0, является электронным тестирующим пособием в области химии для 8-11 классов. В данное время существует достаточное количество программ, охватывающих различные области наук, в частности химии, использующиеся учеными. В связи с тем, что химические закономерности весьма разнообразны, одной программой их невозможно описать. Так как сейчас в школах осуществляется более основательное внедрение компьютерных технологий в систему обучения, но тем не менее, узко распространены автоматизированные проверки знаний учащихся, мною решено представить программу, позволяющую тестировать знания в системе обучения среднего образования. Создание подобных программ предусматривает значительное облегчение работы преподавателей и позволяет учащимся расширить знания в области информационных технологий.

Разработка программы

Модель и метод решения задачи

Поставленная задача требует выполнения считывания данных из файлов, вводом данных с клавиатуры и их последующим сравнением. В процессе сопоставления возникает задача выявления правильности сравнения и учета в ходе работы программы. Также требуется подключения драйвера мыши и реализация программы на его основе.

Описание структуры данных

В процессе работы программы осуществляется считывание данных из четырех текстовых файлов, в которых используются данные строкового типа длиной равной 72 символам. Задается запись с полем строкового типа, который записывается в массив и производится его вывод на экран. Переменная строкового типа, введенная с клавиатуры ставится в соответствие дополнительной строке из файла вне массива.

Алгоритм решения задачи

a – переменная, вводимая с клавиатуры

b переменная из дополнительной строки из файла, сравниваемая с переменной а

c – строковаяпеременная, считываемая из массива

n количество истинности сравнения переменныхa иb

k номер считанного массива

m количество массивов из файла

Руководство программиста

Для осуществления задачи используются основная программа, выполняющая все основные функции и модульная программа, содержащая интерфейсную часть знакомства пользователя с программой. А также используются четыре входных файла.

В программе используются:

Функция Button Pressed ( x 1, y 1, x 2, y 2: integer ): boolean . Функция осуществляет проверку на нажатие клавиши в области заданной формальными параметрами целочисленного типа.

Процедура GraphInit выполняет инициализацию графика и предусматривает проверку на ошибку, в результате чего, программа выходит из графического режима работы.

Процедура Face прорисовывает интерфейс с помощью стандартных процедур библиотеки Graph .

Используются следующие процедуры библиотеки Graph :

1. SetFillStyle(pattern, color: word) – устанавливает образец штриховки и цвет.

2. Bar(x1,y1,x2,y2: integer) – рисует полосу заданного размера, используя текущий стиль и цвет.

3. SetColor(color: word) – устанавливает основной цвет, которым будет осуществляться рисование.

4. Line(x1,y1,x2.y2: integer) – рисует линию от точки (x1,y1) до точки (x2,y2).

5. OutTextxy(x,y: integer, textstring: string) – выводит текст в заданную область экрана.

Процедура PressButton с помощью мышипроизводит нажатие кнопки, прорисованной в интерфейсе. Задается условие нажатия кнопки мыши в определенной области экрана, с последующим выполнением процедур указанных в условии.

Процедуры Question 4, Question 3, Question 2, Question 1 – выполняют считывание строковых данных длиной в 72 символа из файлов, указанных в процедурах. Задаются файловые переменные текстового типа. С помощью массива с девятью составляющими на экран выводятся строки записи q . Десятая дополнительная строка сравнивается со строковой переменной, введенной с клавиатуры и в случае истинности сравнения значение целочисленной переменной sum увеличивается на единицу. Результирующая сумма выводится на экран. Также в процедурах создается эффект протекания времени, которая выполняется переменной timer целочисленного типа, прибавляющей единицу в цикле, приостанавливая работу процедурой Delay до 50000 миллисекунд.

Модуль Entr реализуется с помощью библиотеки Graph для создания интерфейса в процедуре Enter .

Свеления о модулях.

Модуль – это автономно компилируемая программная единица, включающая в себя различные компоненты раздела описаний и, возможно, некоторые исполняемые операторы инициирующей части. В них выделяется некоторая видимая интерфейсная часть, в которой сконцентрированы описания глобальных типов, констант и переменных, а также приводятся заголовки глобальных процедур и функций. Появление объектов в интерфейсной части делает их доступными для других модулей и для основной программы. Тела процедур и функций располагаются в исполняемой части модуля, которая может быть скрыта от пользователей.

Модуль имеет следующую структуру:

UNIT < имя>; { начинает заголовок модуля}

INTERFACE { начинает интерфейсную часть модуля}

< интерфейсная часть>

IMPLEMENTATION { начинает исполняемую часть}

< исполняемая часть>

BEGIN { начинает инициирующую часть модуля}

< инициирующая часть>

END . { признакконца модуля}

Таким образом, модуль состоит из заголовка и трех составных частей, любая из которых может быть пустой.

Для правильной работы среды Турбо Паскаля и возможности подключения средств, имя следующее за UNIT должно совпадать с именем дискового файла, в который помещается исходный текст модуля. Имя модуля служит для его связывания с другими модулями и основной программой.

В интерфейсной части содержатся объявления всех глобальных объектов модуля, которые должны стать доступными основной программе и другим модулям. При объявлении глобальных подпрограмм в интерфейсной части указывается только их заголовок.

Исполняемая часть содержит описания подпрограмм, объявленных в интерфейсной части. В ней могут объявляться локальные для модуля объекты – вспомогательные типы, константы, переменные и блоки. Описанию подпрограммы, объявленной в интерфейсной части модуля, в исполняемой части должен предшествовать заголовок, в котором можно опускать список формальных переменных, так как они уже описаны в интерфейсной части.

Инициирующая часть завершает модуль. Она может отсутствовать вместе с начинающим словом BEGIN или быть пустой. В инициирующей части размещаются исполняемые операторы, содержащие некоторый фрагмент программы. Эти операторы исполняются до передачи управления основной программе и обычно используются для подготовки ее к работе.

Определены три режима компиляции модулей:

При компиляции в режимеCOMPILE , все упоминающиеся в предложении USES модули должны быть предварительно откомпилированы и результаты помещены в одноименные файлы с расширением TPU.

В режиме MAKE компилятор проверяет наличие TPU-файлов для каждого объявленного модуля. Если какой-либо из файлов не обнаружен, система пытается отыскать одноименный файл с расширением PAS, и если искомый файл найден, приступает к его компиляции. Кроме того, в этом режиме система следит за возможными изменениями исходного текста любого используемого модуля. Если в PAS-файл внесены какие-либо изменения, то независимо от того, есть ли уже в каталоге соответствующий TPU-файл или нет, система осуществляет его компиляцию перед компиляцией основной программы.

В режиме BUILD существующие TPU-файлы игнорируются, и система пытается отыскать и компилировать соответствующий PAS-файл для каждого объявленного в предложении USES модуля.

Файловые переменные, использованные в программе являются текстовыми.

Сведения о файлах

Файл это либо именованная часть внешней памяти ПК, либо логическое устройство – потенциальный источник или приемник информации.

Любой файл имеет три характерные особенности.

1. У файла есть имя, что дает возможность программе работать одновременно с несколькими файлами.

2. Файл содержит компоненты одного типа.

3. Длина вновь создаваемого файла не оговаривается при его объявлении и ограничивается только емкостью устройств внешней памяти.

Файловый тип можно задать одним из трех способов:

1. <имя> = file of <тип> - типизированные файлы;

2. <имя> = text – текстовые файлы;

3. <имя> = file – нетипизированные файлы.

Файловая переменная связывается с именем файла в результате обращения к стандартной процедуре Assign :

Assign ( <файловая переменная>, <имя файла>)

Инициировать файл означает указать для этого файла направление передачи данных. В Турбо Паскале можно открыть файл для чтения, для записи информации, а также для чтения и записи одновременно.

Для чтения файл инициируется с помощью стандартной процедуры Reset (< файловая переменная>).

Стандартная процедура Rerite (< файловая переменная>) инициирует запись информации в файл, связанный ранее с файловой переменной. Этой процедурой нельзя инициировать запись информации в ранее существовавший дисковый файл: при выполнении старый файл уничтожается.

Стандартная процедура Append (< файловая переменная>) инициирует запись в ранее существовавший текстовый файл для его расширения.

Руководство пользователя

После запуска программы, программы, производится прорисовка интерфейса, после чего пользователю предоставляется выбор уровней сложности тестирования. Первые три уровня, с соответствующим увеличением сложности, содержат теоретические вопросы, на которые пользователь отвечает введением номера варианта с клавиатуры. На обдумывание вопроса дается 30 секунд, после чего экран очищается и программа ожидает ввод ответа. В процессе работы следует дождаться истечения времени и появления курсора в области ответов, после этого программа примет выбранный вариант. После завершения вывода на экран всех вопросов, программа выставляет оценку в зависимости от количества правильных ответов, которое также выводится на экран. Четвертый уровень содержит задачи по химии, на решение которых дается 120 секунд. Первый и третий уровни составляют по 30 вопросов, второй 20, четвертый 10.



Листинг программы

Основная программа

usesCRT, Graph, Mouse, DOS, Entr;

type q = record

a: string[72];

end;

var

f1,f2,f3,f4: text;

mas: array[1..9] of q;

e: array[1..670] of string[72];

i,j,x,y,sum,timer: integer;

z,mark,s1,s2,s3,s4: string;

procedure GraphInit;

var Driver, Mode, Error: integer;

begin

Driver:=Detect;

InitGraph(Driver,Mode,'');

Error:=GraphResult;

if Error<>grok then

begin

Writeln(GraphErrorMsg(Error));

halt;

end;

end;

function ButtonPressed(x1,y1,x2,y2:integer):boolean;

{функция на проверку нажатия кнопки}

var

Mx,My:integer;

ctt:integer;

begin

GetMouse;

ButtonPressed:= (but=1)and(m>x1)and(m<x2)and(n>y1)and(n<y2);

end;

procedure Face; {прорисовкаинтерфейса}

begin

SetFillStyle(1,10);

Bar(10,10,GetMaxx-10,GetMaxy-10);

SetColor(15);

Line(20,20,620,20);

Line(20,20,20,150);

SetColor(0);

Line(620,20,620,150);

Line(20,150,620,150);

SetColor(15);

Line(20,195,450,195);

Line(20,195,20,210);

SetColor(0);

Line(20,210,450,210);

Line(450,195,450,210);

SetColor(15);

Line(20,215,450,215);

Line(20,215,20,230);

SetColor(0);

Line(20,230,450,230);

Line(450,215,450,230);

SetColor(15);

Line(20,235,450,235);

Line(20,235,20,250);

SetColor(0);

Line(20,250,450,250);

Line(450,235,450,250);

SetColor(15);

Line(20,255,450,255);

Line(20,255,20,270);

SetColor(0);

Line(20,270,450,270);

Line(450,255,450,270);

OutTextxy(35,340,'время');

OutTextxy(140,340,'ответ');

SetColor(15);

Line(20,390,100,390);

Line(100,360,100,390);

Line(120,390,200,390);

Line(200,360,200,390);

SetFillStyle(1,0);

Bar(20,360,99,389);

Bar(120,360,199,389);

SetColor(15);

Line(520,430,600,430);

Line(520,430,520,460);

SetColor(0);

Line(520,460,600,460);

Line(600,430,600,460);

OutTextxy(540,440,'ВЫХОД');

SetColor(15);

Line(420,430,500,430);

Line(420,430,420,460);

SetColor(0);

Line(420,460,500,460);

Line(500,430,500,460);

OutTextxy(430,440,'Уровень4');

SetColor(15);

Line(320,430,400,430);

Line(320,430,320,460);

SetColor(0);

Line(320,460,400,460);

Line(400,430,400,460);

OutTextxy(330,440,'Уровень3');

SetColor(15);

Line(220,430,300,430);

Line(220,430,220,460);

SetColor(0);

Line(220,460,300,460);

Line(300,430,300,460);

OutTextxy(230,440,'Уровень2');

SetColor(15);

Line(120,430,200,430);

Line(120,430,120,460);

SetColor(0);

Line(120,460,200,460);

Line(200,430,200,460);

OutTextxy(130,440,'Уровень1');

Initmouse;

Showmouse;

SetMouseYRange(0,438);

end;

procedure Question1; forward;

procedure Question2; forward;

procedure Question3; forward;

procedure Question4; forward;

procedure PressButton;{Нажатиекнопкиспомощьюмыши}

begin

repeat

if buttonpressed(420,430,500,450) then

begin

HideMouse;

SetColor(0);

Line(420,430,500,430);

Line(420,430,420,460);

SetColor(15);

Line(420,460,500,460);

Line(500,430,500,460);

OutTextxy(440,440,'Уровень4');

Question4;

ShowMouse;

PressButton;

end;

if buttonpressed(320,430,400,450) then

begin

HideMouse;

SetColor(0);

Line(320,430,400,430);

Line(320,430,320,460);

SetColor(15);

Line(320,460,400,460);

Line(400,430,400,460);

OutTextxy(330,440,'Уровень3');

Question3;

ShowMouse;

PressButton;

end;

if buttonpressed(220,430,300,450) then

begin

HideMouse;

SetColor(0);

Line(220,430,300,430);

Line(220,430,220,460);

SetColor(15);

Line(220,460,300,460);

Line(300,430,300,460);

OutTextxy(230,440,'Уровень2');

Question2;

ShowMouse;

PressButton;

end;

if buttonpressed(120,430,200,450) then

begin

HideMouse;

SetColor(0);

Line(120,430,200,430);

Line(120,430,120,460);

SetColor(15);

Line(120,460,200,460);

Line(200,430,200,460);

OutTextxy(130,440,'Уровень1');

Question1;

ShowMouse;

PressButton;

end;

if buttonpressed(520,430,600,450) then

begin

SetColor(15);

Line(520,430,600,430);

Line(520,430,520,460);

SetColor(0);

Line(520,460,600,460);

Line(600,430,600,460);

OutTextxy(540,440,'ВЫХОД');

Halt;

end;

until false;

end;

procedure Question4;

begin

Face;

Assign(f4,'file4.txt');

Reset(f4);

begin

timer:=0;

sum:=0;

for j:=1 to 10 do

begin

Face;

HideMouse;

SetColor(0);

Line(420,430,500,430);

Line(420,430,420,460);

SetColor(15);

Line(420,460,500,460);

Line(500,430,500,460);

OutTextxy(430,440,'Уровень4');

ShowMouse;

i:=1;

y:=50;

x:=30;

repeat

Readln(f4,mas[i].a);

SetColor(0);

OutTextxy(x,y,mas[i].a);

if i=4 then y:=y+90 else

y:=y+20;

i:=i+1;

until i=10;

timer:=0;

repeat

timer:=timer+1;

OutTextxy(50,370,s4);

Delay(50000);

SetColor(15);

Str(timer:2,s4);

OutTextxy(50,370,s4);

SetFillStyle(1,0);

Bar(20,360,99,389);

until timer=90;

Face;

HideMouse;

SetColor(0);

Line(420,430,500,430);

Line(420,430,420,460);

SetColor(15);

Line(420,460,500,460);

Line(500,430,500,460);

OutTextxy(430,440,'Уровень4');

ShowMouse;

SetFillStyle(1,10);

Bar(35,25,45,35);

Str(j:2,s1);

SetColor(0);

OutTextxy(40,30,s1);

Readln(f4,mas[i].a);

SetFillStyle(1,0);

Bar(120,360,199,389);

SetColor(15);

OutTextxy(150,373,'і');

TextColor(15);

Gotoxy(20,24);

Readln(z);

if z=mas[i].a then sum:=sum+1;

end;

if sum<4 then mark:='2';

if (sum>=4) and (sum<6) then mark:='3';

if (sum>=6) and (sum<8) then mark:='4';

if sum>=8 then mark:='5';

SetColor(0);

SetTextStyle(0,0,1);

OutTextxy(360,320,mark);

OutTextxy(250,320,'Вашаоценка - ');

Str(sum:2,s3);

OutTextxy(250,340,'Правильные ответы - ');

OutTextxy(400,340,s3);

end;

Close(f4);

end;

procedure Question3;

begin

Face;

Assign(f3,'file3.txt');

Reset(f3);

begin

timer:=0;

sum:=0;

for j:=1 to 20 do

begin

Face;

HideMouse;

SetColor(0);

Line(320,430,400,430);

Line(320,430,320,460);

SetColor(15);

Line(320,460,400,460);

Line(400,430,400,460);

OutTextxy(330,440,'Уровень3');

ShowMouse;

i:=1;

y:=50;

x:=30;

repeat

Readln(f3,mas[i].a);

SetColor(0);

OutTextxy(x,y,mas[i].a);

if i=4 then y:=y+90 else

y:=y+20;

i:=i+1;

until i=10;

timer:=0;

repeat

timer:=timer+1;

OutTextxy(50,370,s4);

Delay(50000);

SetColor(15);

Str(timer:2,s4);

OutTextxy(50,370,s4);

SetFillStyle(1,0);

Bar(20,360,99,389);

until timer=30;

Face;

SetColor(0);

Line(320,430,400,430);

Line(320,430,320,460);

SetColor(15);

Line(320,460,400,460);

Line(400,430,400,460);

OutTextxy(330,440,'Уровень3');

ShowMouse;

SetFillStyle(1,10);

Bar(35,25,45,35);

Str(j:2,s1);

SetColor(0);

OutTextxy(40,30,s1);

Readln(f3,mas[i].a);

SetFillStyle(1,0);

Bar(120,360,199,389);

SetColor(15);

OutTextxy(150,373,'і');

TextColor(15);

Gotoxy(20,24);

Readln(z);

if z=mas[i].a then sum:=sum+1;

end;

if sum<10 then mark:='2';

if (sum>=10) and (sum<15) then mark:='3';

if (sum>=15) and (sum<17) then mark:='4';

if sum>=17 then mark:='5';

SetColor(0);

SetTextStyle(0,0,1);

OutTextxy(360,320,mark);

OutTextxy(250,320,'Вашаоценка - ');

Str(sum:2,s3);

OutTextxy(250,340,'Правильные ответы - ');

OutTextxy(400,340,s3);

end;

Close(f3);

end;

procedure Question2;

begin

Face;

Assign(f2,'file2.txt');

Reset(f2);

begin

timer:=0;

sum:=0;

for j:=1 to 30 do

begin

Face;

HideMouse;

SetColor(0);

Line(220,430,300,430);

Line(220,430,220,460);

SetColor(15);

Line(220,460,300,460);

Line(300,430,300,460);

OutTextxy(230,440,'Уровень2');

ShowMouse;

i:=1;

y:=50;

x:=30;

repeat

Readln(f2,mas[i].a);

SetColor(0);

OutTextxy(x,y,mas[i].a);

if i=4 then y:=y+90 else

y:=y+20;

i:=i+1;

until i=10;

timer:=0;

repeat

timer:=timer+1;

OutTextxy(50,370,s4);

Delay(50000);

SetColor(15);

Str(timer:2,s4);

OutTextxy(50,370,s4);

SetFillStyle(1,0);

Bar(20,360,99,389);

until timer=30;

Face;

HideMouse;

SetColor(0);

Line(220,430,300,430);

Line(220,430,220,460);

SetColor(15);

Line(220,460,300,460);

Line(300,430,300,460);

OutTextxy(230,440,'Уровень2');

ShowMouse;

SetFillStyle(1,10);

Bar(35,25,45,35);

Str(j:2,s1);

SetColor(0);

OutTextxy(40,30,s1);

Readln(f2,mas[i].a);

SetFillStyle(1,0);

Bar(120,360,199,389);

SetColor(15);

OutTextxy(150,373,'і');

TextColor(15);

Gotoxy(20,24);

Readln(z);

if z=mas[i].a then sum:=sum+1;

end;

if sum<15 then mark:='2';

if (sum>=15) and (sum<20) then mark:='3';

if (sum>=20) and (sum<25) then mark:='4';

if sum>=25 then mark:='5';

SetColor(0);

SetTextStyle(0,0,1);

OutTextxy(360,320,mark);

OutTextxy(250,320,'Вашаоценка - ');

Str(sum:2,s3);

OutTextxy(250,340,'Правильные ответы - ');

OutTextxy(400,340,s3);

end;

Close(f2);

end;

procedure Question1;

begin

Face;

Assign(f1,'file1.txt');

Reset(f1);

begin

timer:=0;

sum:=0;

for j:=1 to 20 do

begin

Face;

HideMouse;

SetColor(0);

Line(120,430,200,430);

Line(120,430,120,460);

SetColor(15);

Line(120,460,200,460);

Line(200,430,200,460);

OutTextxy(130,440,'Уровень1');

ShowMouse;

i:=1;

y:=50;

x:=30;

repeat

Readln(f1,mas[i].a);

SetColor(0);

OutTextxy(x,y,mas[i].a);

if i=4 then y:=y+90 else

y:=y+20;

i:=i+1;

until i=10;

timer:=0;

repeat

timer:=timer+1;

OutTextxy(50,370,s4);

Delay(50000);

SetColor(15);

Str(timer:2,s4);

SetFillStyle(1,0);

Bar(20,360,99,389);

until timer=30;

Face;

SetColor(0);

Line(120,430,200,430);

Line(120,430,120,460);

SetColor(15);

Line(120,460,200,460);

Line(200,430,200,460);

OutTextxy(130,440,'Уровень1');

ShowMouse;

SetFillStyle(1,10);

Bar(35,25,45,35);

Str(j:2,s1);

SetColor(0);

OutTextxy(40,30,s1);

Readln(f1,mas[i].a);

SetFillStyle(1,0);

Bar(120,360,199,389);

SetColor(15);

OutTextxy(150,373,'і');

TextColor(15);

Gotoxy(20,24);

Readln(z);

if z=mas[i].a then sum:=sum+1;

end;

if sum<10 then mark:='2';

if (sum>=10) and (sum<15) then mark:='3';

if (sum>=15) and (sum<17) then mark:='4';

if sum>=17 then mark:='5';

SetColor(0);

SetTextStyle(0,0,1);

OutTextxy(360,320,mark);

OutTextxy(250,320,'Вашаоценка - ');

Str(sum:2,s3);

OutTextxy(250,340,'Правильные ответы - ');

OutTextxy(400,340,s3);

end;

Close(f1);

end;

" " " " " " " " " " " " " " " " " " " Тело программы " " " " " " " " " " " " " " " "

Begin

GraphInit;

Enter;

SetTextStyle(0,0,1);

Face;

PressButton;

Readln;

End.

Модуль Entr

unit Entr;

interface

uses CRT, Graph;

var

x,y,i,j,a,b:integer;

procedure Enter;

implementation

procedure Enter;

begin

x:=325; y:=225;

for i:=1 to 300 do

begin

for j:=5 to 1000 do

Delay(5);

PutPixel(random(640),random(480),15);

end;

x:=325; y:=225;

for i:=1 to 3000 do

begin

Delay(5);

for j:=5 to 1000 do

SetColor(random(16));

Line (x,y,random(800),random(600));

end;

for i:=1 to 100 do

begin

SetTextStyle(0,0,3);

SetColor(0);

OutTextxy(110,140,'ДОБРО ПОЖАЛОВАТЬ');

OutTextxy(140,170,'В ТЕСТИРУЮЩУЮ');

OutTextxy(160,200,'ЛАБАРАТОРИЮ');

OutTextxy(170,250,'ПРОФЕССОРА');

SetTextStyle(0,0,4);

SetColor(15);

OutTextxy(150,300,'АЛХИМИКУСА');

end;

SetFillStyle(1,0);

Bar(0,0,GetMaxx,GetMaxy);

end;

End .

Входные файлы

Файл1

Поглощение одного вещества во всем объеме.

1 адсорбция

2 абсорбция

3 десорбция

4 элюция

2

Способность атомов соединяться с другими атомами в определенных соотношениях.

1 электроотрицательность

2 восстановление

3 полярность

4 валентность

4

Какой объем занимает один моль любого газа?

1 23.2л

2 22.4л

3 24.4л

4 22.2л

2

Каждый отдельный вид материи, обладающий при данных условиях определенными физическими свойствами.

1 кислород

2 вещество

3 вода

4 элемент

2

Явления при которых образуются новые.

1 химические

2 физические

3 восстановительные

4 окислительные

1

Наименьшая частица вещества, обладающая его химическими свойствами.

1 радикал

2 электрон

3 атом

4 молекула

4

Наименьшая частица элемента, обладающая его химическими свойствами.

1 ион

2 радикал

3 молекула

4 атом

4

Вид атомов, характеризующийся определенной совокупностью свойств.

1 радикалы

2 ионы

3 элементы

4 молекулы

3

Существование химического элемента в виде нескольких простых веществ.

1 аллотропия

2 полимерность

3 адсорбция

4 валентность

1

Количество вещества, содержащее столько молекул, атомов, ионов, электронов, или других структурных единиц, сколько содержится атомов в

12г изотопа углерода (12)С.

1 объем

2 моль

3 нормальность

4 полярность

2

Количество элемента, которое соединяется с одним молем атомов водорода или замещает то же количество атомов водорода в химических реакциях.

1 масса

2 эквивалент

3 объем

4 моль

2

Соединения элементов с кислородом.

1 кислоты

2 основания

3 оксиды

4 соли

3

Вещества, которые состоят из металла и одновалентных групп ОН, число которых равно валентности металла.

1 кислоты

2 основания

3 оксиды

4 соли

2

Вещества, которые состоят из водорода, способного замещаться металлом, и кислотного остатка, причем число атомов водорода равно валентности кислотного остатка.

1 кислоты

2 основания

3 оксиды

4 соли

1

Продукт замещения водорода в кислоте на металл или гидроксогрупп в основании на кислотный остаток.

1 кислоты

2 основания

3 оксиды

4 соли

1

Процесс соединений с кислородом с выделением теплоты и света.

1 окисление

2 горение

3 восстановление

4 гидратация

2

Отношение массы вещества к количеству вещества.

1 нормальная масса

2 молярная масса

3 молекулярная масса

4 атомная масса

2

Отношение массы данного вещества в системе к массе всей системы.

1 процентная доля вещества

2 молярная доля вещества

3 объемная доля вещества

4 массовая доля вещества

4

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

1 реакция соединения

2 реакция разложения

3 реакция обмена

4 реакция замещения

2

Отношение объема газа к количеству вещества этого газа.

1 молекулярный объем газа

2 нормальный объем газа

3 молярный объем газа

4 мольный объем газа

3

Файл 2

Как называются вещества, растворы и расплавы которых диссоциируют на ионы и пропускают электрический ток?

1 гидраты

2 оксиды

3 электролиты

4 углеводы

3

Аллотропное видоизменение кислорода.

1 озон

2 оксид

3 гидрат

4 основание

1

Какие элементы не замещают водород?

1 цинк, кадмий, ртуть

2 скандий, титан, ванадий, хром

3 марганец, железо, кобальт, никель

4 медь, ртуть, серебро, золото, платина

4

Как называется взаимодействие вещества с водой, при котором составные части вещества соединяются с составными частями воды?

1 восстановление

2 гидролиз

3 электролиз

4 окисление

2

Как называется реакция, при котором изменяется степень окисления элементов, участвующих в процессе?

1 окислительно-восстановительная реакция

2 ионно-обменная реакция

3 гидролиз

4 ионно-основная реакция

1

Какая энергия требуется для отрыва электрона от атома, с превращением последнего в положительный ион?

1 энергия окисления

2 энергия восстановления

3 энергия ионизации

4 энергия расщепления

3

Элементы, которые содержат на внешней электронной оболочке 1-3

электронов.

1 металлы

2 неметаллы

3 галогены

4 инертные газы

1

Сколько электронов содержат на внешней оболочке элементы первой группы.

1 4

2 3

3 2

4 1

4

Состояния электрона, характеризующиеся различными значениями орбитального квантового числа.

1 энергетические подуровни

2 энергетические оболочки

3 квант

4 электронные орбитали

1

Состояния электрона в атоме, характеризующиеся определенными размерами, формой и ориентацией в пространстве электронного облака.

1 атомная электронная орбиталь

2 электронное облако

3 электронная оболочка

4 энергетический уровень

1

К какому орбиталю относятся переходные элементы, расположенные от скандия до никеля по возрастанию атомного порядка.

1 s

2 p

3 d

4 f

3

Атомы, обладающие одинаковым зарядом ядра, но разным числом нейтронов.

1 изотопы

2 радикалы

3 электроны

4 ионы

1

Вид атомов, характеризующийся определенной величиной положительного заряда ядра.

1 нейтрон

2 молекула

3 химическое вещество

4 химический элемент

4

Связь, возникающая за счет пары электронов, первоначально принадлежавшей одному атому и свободной орбитали другого атома.

1 донорно-акцепторная

2 полярная

3 неполярная

4 ионная

1

Связь, осуществляющаяся в результате взаимного электростатического притяжения противоположно заряженных ионов.

1 ионная

2 ковалентная

3 полярная

4 неполярная

1

Форма энергии, скрытая в веществах и освобождающаяся при химических реакциях.

1 внутренняя энергия

2 внешняя энергия

3 ядерная энергия

4 тепловая энергия

2

Изменение концентрации какого-либо из веществ, вступающих в реакцию или образующихся при реакции, происходящее за единицу времени.

1 скорость реакции

2 фаза реакции

3 коэффициент реакции

4 степень реакции

1

Вещества, не расходующиеся в результате протекания реакции, но влияющие на ее скорость.

1 восстановители

2 окислители

3 ионы

4 катализаторы

4

Какую связь в молекуле воды образуют две электронные пары?

1 молекулярную

2 ковалентную

3 ионную

4 металлическую

2

Положительно заряженные ионы.

1 катионы

2 радикалы

3 анионы

4 электроны

1

Отрицательно заряженные ионы.

1 катионы

2 радикалы

3 анионы

4 электроны

3

Степень диссоциации при разбавлении раствора:

1 возрастает

2 убывает

3 не изменяется

4 исчезает

1

Электролиты, диссоциирующие в растворах с образованием ионов водорода.

1 кислоты

2 соли

3 основания

4 оксиды

1

Электролиты, диссоциирующие в растворах с отщеплением гидрокис-ионов.

1 кислоты

2 соли

3 основания

4 оксиды

3

Какую реакцию имеют растворы солей, образованных слабой кислотой и сильным основанием?

1 щелочную

2 окислительную

3 восстановительную

4 кислую

1

Какую реакцию имеют растворы солей, образованных сильной кислотой и слабым основанием?

1 щелочную

2 окислительную

3 восстановительную

4 кислую

4

Процесс отдачи электронов, сопровождающийся повышением степени окисленности элемента.

1 ионизация

2 восстановление

3 эмиссия

4 окисление

4

Процесс присоединения электронов, сопровождающийся понижением степени окисленности элемента.

1 ионизация

2 восстановление

3 эмиссия

4 окисление

2

Совокупность процессов, происходящих при прохождении постоянного электрического тока через электрохимическую систему, состоящую из двух электродов и расплава или раствора электролита.

1 электролиз

2 гидролиз

3 катализ

4 восстановление

1

Что такое галогены?

1 элементы 3-й группы периодической системы

2 элементы 4-й группы периодической системы

3 элементы 7-й группы периодической системы

4 органические соединения

3

Файл 3

Смеси сложных эфиров, образованных высшими жирными кислотами и трехатомным глицерином.

1 алканы

2 углеводы

3 жиры

4 кислоты

3

Смеси сложных эфиров, образованных непредельными кислотами и трехатомным глицерином.

1 растительные масла

2 животные жиры

3 кетоны

4 аминокислоты

1

Реакция образования сложного эфира из кислоты и спирта.

1 омыление

2 этерификация

3 полимеризация

4 мономеризация

2

Реакция щелочного гидролиза сложных эфиров.

1 омыление

2 этерификация

3 полимеризация

4 мономеризация

1

Процесс, в результате которого молекулы низкомолекулярного соединения (мономера) соединяется друг с другом при помощи ковалентных связей, образуя новое вещество, молекулярная масса которого в целое число раз больше чем у мономера.

1 этерификация

2 поликонденсация

3 мономеризация

4 полимеризация

3

Смешивание каучука с серой и нагревание до определенной температуры.

1 полимеризация

2 мономеризация

3 поликонденсация

4 вулканизация

4

Что такое алканы?

1 непредельные углеводороды ряда этилена

2 непредельные углеводороды с двумя двойными связями

3 предельные углеводороды

4 непредельные ацетиленовые углеводороды

3

Что такое алкены?

1 непредельные углеводороды ряда этилена

2 непредельные углеводороды с двумя двойными связями

3 предельные углеводороды

4 непредельные ацетиленовые углеводороды

1

Что такое алкины?

1 непредельные углеводороды ряда этилена

2 непредельные углеводороды с двумя двойными связями

3 предельные углеводороды

4 непредельные ацетиленовые углеводороды

4

Что такое алкадиены?

1 непредельные углеводороды ряда этилена

2 непредельные углеводороды с двумя двойными связями

3 предельные углеводороды

4 непредельные ацетиленовые углеводороды

2

Со сколькими радикалами может соединяться углерод?

1 4

2 3

3 2

4 1

1

Какую форму принимает в пространстве молекула метана?

1 тетраэдр

2 октаэдр

3 икосаэдр

4 ромбоэдр

1

Соединения, имеющие одинаковые молекулярные формулы, но разные структурные формулы.

1 углероды

2 полимеры

3 изомеры

4 галогены

3

Сколько изомеров может быть у пропана?

1 4

2 3

3 2

4 1

3

К какой классификации относится бензол?

1 соединения с открытой цепью атомов углерода

2 соединения с открытой цепью атомов углерода

3 гетероциклические соединения

4 галогенопроизводные углеводородов

2

Процесс расщепления углеводородов с длинными цепями на молекулы меньшей длины.

1 перегонка

2 крекинг

3 мономеризация

4 дегидрирование

2

Что образуется при полимеризации трех молекул ацетилена?

1 фенол

2 толуол

3 бензол

4 стирол

3

Что образуется при нитрировании толуола?

1 мононитротолуол

2 динитротолуол

3 тринитротолуол

4 тетранитротолуол

3

Производные предельных или непредельных углеводородов, в молекулах которых один или несколько атомов водорода заменены гидроксильными группами.

1 альдегиды

2 фенолы

3 спирты

4 кислоты

3

Что образуется при взаимодействии спиртов или фенолов с кислотами?

1 альдегиды

2 сложные эфиры

3 углеводы

4 алкоголяты

2

Файл 4

Определите количество вещества брома, содержащееся в молекулярном броме массой 12.8г.

1 0.01 моль

2 0.05 моль

3 0.08 моль

4 0.1 моль

3

Оксид углерода (IV) находится в сосуде, объем которого равен 20л, при температуре 22 градус и давлении 500кПа. Определите массу оксида углерода(IV).

1 201.1г

2 198.6г

3 179.4г

4 163.8г

3

При пропускании сероводорода объемом 2.8л (нормальные условия) через избыток раствора сульфата меди(II) образовался осадок массой 11.4г. Определите выход продукта реакции.

1 100%

2 95%

3 90%

4 85%

2

В какой группе и в каком периоде периодической системы элементов

Д. И. Менделеева находится элемент с порядковым номером 42?

1 III период, I группа

2 I период, II группа

3 V период, V группа

4 V период, VI группа

4

К раствору массой 250г, массовая доля соли в котором составляет 10%, прилили воду объемом 150мл. приняв плотность воды равной 1г/мл, определите массовую долю соли в полученном растворе.

1 5.25%

2 6.25%

3 7.25%

4 8.25%

2

Вычислите массовую долю серной кислоты в растворе, в котором массовая доля оксида серы(VI) равна %.

1 2.9%

2 2.9%

3 3.9%

4 4.9%

4

Из природного газа объемом 40л (нормальные условия) получили хлорметан массой 30.3г. Определите объемную долю метана в природном газе, если выход хлорметана равен 40% от теоретически возможного.

1 64%

2 75%

3 84%

4 97%

3

Какая масса фенолята натрия может быть получена при взаимодействии фенола массой 4.7г с раствором гидроксида натрия объемом 4.97мл и плотностью 1.38г/мл. Массовая доля гидроксида натрия в растворе составляет 35%.

1 3.3г

2 4.7г

3 5.8г

4 6.2г

3

Какая масса серебра будет получена в результате реакции "серебряного зеркала", если к избытку аммиачного раствора оксида серебра добавить водный раствор массой 50г с массовой долей пропаналя 11.6%

1 16.8г

2 21.6г

3 25.5г

4 28.2г

2

Сожгли смесь метиламина и этиламина массой 10.7г, получив азот объемом 3.36л (нормальные условия). Определите массовые доли аминов в смеси.

1 метиламин - 57.9%, этиламин - 42.1%

2 метиламин - 55.6%, этиламин - 44.4%

3 метиламин - 46.3%, этиламин - 53.7%

4 метиламин - 39.2%, этиламин - 60.8%

1

Оценить/Добавить комментарий
Имя
Оценка
Комментарии:
Хватит париться. На сайте FAST-REFERAT.RU вам сделают любой реферат, курсовую или дипломную. Сам пользуюсь, и вам советую!
Никита03:38:02 04 ноября 2021
.
.03:38:01 04 ноября 2021
.
.03:37:59 04 ноября 2021
.
.03:37:58 04 ноября 2021
.
.03:37:56 04 ноября 2021

Смотреть все комментарии (20)
Работы, похожие на Контрольная работа: Среда программирования программы Borland Pascal 70

Назад
Меню
Главная
Рефераты
Благодарности
Опрос
Станете ли вы заказывать работу за деньги, если не найдете ее в Интернете?

Да, в любом случае.
Да, но только в случае крайней необходимости.
Возможно, в зависимости от цены.
Нет, напишу его сам.
Нет, забью.



Результаты(294402)
Комментарии (4230)
Copyright © 2005 - 2024 BestReferat.ru / реклама на сайте