|
Среда программирования программы Borland Pascal 7.0 |
ine(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;{Нажатие кнопки с помощью мыши}beginrepeatif buttonpressed(420,430,500,450) thenbeginHideMouse;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) thenbeginHideMouse;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) thenbeginHideMouse;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) thenbeginHideMouse;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) thenbeginSetColor(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;beginFace;Assign(f4,'file4.txt');Reset(f4);begintimer:=0;sum:=0;for j:=1 to 10 dobeginFace;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;repeatReadln(f4,mas[i].a);SetColor(0);OutTextxy(x,y,mas[i].a);if i=4 then y:=y+90 elsey:=y+20;i:=i+1;until i=10;timer:=0;repeattimer:=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;beginFace;Assign(f3,'file3.txt');Reset(f3);begintimer:=0;sum:=0;for j:=1 to 20 dobeginFace;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;repeatReadln(f3,mas[i].a);SetColor(0);OutTextxy(x,y,mas[i].a);if i=4 then y:=y+90 elsey:=y+20;i:=i+1;until i=10;timer:=0;repeattimer:=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;beginFace;Assign(f2,'file2.txt');Reset(f2);begintimer:=0;sum:=0;for j:=1 to 30 dobeginFace;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;repeatReadln(f2,mas[i].a);SetColor(0);OutTextxy(x,y,mas[i].a);if i=4 then y:=y+90 elsey:=y+20;i:=i+1;until i=10;timer:=0;repeattimer:=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;beginFace;Assign(f1,'file1.txt');Reset(f1);begintimer:=0;sum:=0;for j:=1 to 20 dobeginFace;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;repeatReadln(f1,mas[i].a);SetColor(0);OutTextxy(x,y,mas[i].a);if i=4 then y:=y+90 elsey:=y+20;i:=i+1;until i=10;timer:=0;repeattimer:=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;" " " " " " " " " " " " " " " " " " "Тело программы" " " " " " " " " " " " " " " "BeginGraphInit;Enter;SetTextStyle(0,0,1);Face;PressButton;Readln;End.Модуль Entrunit Entr;interfaceuses CRT, Graph;varx,y,i,j,a,b:integer;procedure Enter;implementationprocedure Enter;beginx:=325; y:=225;for i:=1 to 300 dobeginfor j:=5 to 1000 doDelay(5);PutPixel(random(640),random(480),15);end;x:=325; y:=225;for i:=1 to 3000 dobeginDelay(5);for j:=5 to 1000 doSetColor(random(16));Line (x,y,random(800),random(600));end;for i:=1 to 100 dobeginSetTextStyle(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 42 33 24 14Состояния электрона, характеризующиеся различными значениями орбитального квантового числа.1 энергетические подуровни2 энергетические оболочки3 квант4 электронные орбитали1Состояния электрона в атоме, характеризующиеся определенными размерами, формой и ориентацией в пространстве электронного облака.1 атомная электронная орбиталь2 электронное облако3 электронная оболочка4 энергетический уровень1К какому орбиталю относятся переходные элементы, расположенные от скандия до никеля по возрастанию атомного порядка.1 s2 p3 d4 f3Атомы, обладающие одинаковым зарядом ядра, но разным числом нейтронов.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 42 33 24 11Какую форму принимает в пространстве молекула метана?1 тетраэдр2 октаэдр3 икосаэдр4 ромбоэдр1Соединения, имеющие одинаковые молекулярные формулы, но разные структурные формулы.1 углероды2 полимеры3 изомеры4 галогены3Сколько изомеров может быть у пропана?1 42 33 24 13К какой классификации относится бензол?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
Страницы: 1, 2
|
|
|
© 2003-2013
Рефераты бесплатно, курсовые, рефераты биология, большая бибилиотека рефератов, дипломы, научные работы, рефераты право, рефераты, рефераты скачать, рефераты литература, курсовые работы, реферат, доклады, рефераты медицина, рефераты на тему, сочинения, реферат бесплатно, рефераты авиация, рефераты психология, рефераты математика, рефераты кулинария, рефераты логистика, рефераты анатомия, рефераты маркетинг, рефераты релиния, рефераты социология, рефераты менеджемент. |
|
|