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

ЛИЧНЫЙ КАБИНЕТ 

 

Здравствуйте гость!

 

Логин:

Пароль:

 

Запомнить

 

 

Забыли пароль? Регистрация

Повышение уникальности

Предлагаем нашим посетителям воспользоваться бесплатным программным обеспечением «StudentHelp», которое позволит вам всего за несколько минут, выполнить повышение уникальности любого файла в формате MS Word. После такого повышения уникальности, ваша работа легко пройдете проверку в системах антиплагиат вуз, antiplagiat.ru, etxt.ru или advego.ru. Программа «StudentHelp» работает по уникальной технологии и при повышении уникальности не вставляет в текст скрытых символов, и даже если препод скопирует текст в блокнот – не увидит ни каких отличий от текста в Word файле.

Результат поиска


Наименование:


Контрольная Диагностическая срезовая контрольная работа по программированию

Информация:

Тип работы: Контрольная. Предмет: Программирование. Добавлен: 28.4.2013. Сдан: 2012. Страниц: 9. Уникальность по antiplagiat.ru: < 30%

Описание (план):



Целью работы является выявление, оценка и анализ продуктивности учебного процесса. Оценивается каждый вопрос диагностической контрольной работы в баллах. Обученность студента вычисляется по формуле Ky=S/M, где S-балл за ДКР, M-максимальный балл, нижний предел обученности характеризуется Ку=0.7.
Задания на выбор ответа оцениваются 1 баллом, задания на определения результата - 2 баллами.
Максимальное количество баллов - 40.
Критерии оценки:
От 0 до 19 баллов (<50%) - неудовлетворительно;
От 20 до 28 баллов(50-70%) - удовлетворительно;
От 29 до 36 баллов (71-90%) - хорошо;
От 37 до 40 баллов (91-100%) - отлично.
Задания на узнавание:
Вариант 1 1. Заголовок процедуры пользователя: 1) program name; 2) procedure name(<список формальных параметров>); 3) function name(<список формальных параметров >); 2. Эта функция: Fuction Is_sort(a:my_arra1;n:integer):Boolean; Var i: integer; Begin i:=2; While (i<=n)and(a[i-1]<=a[i]) do inc(i); Is_sort := i=n; End; 1) сортирует элементы массива по неубыванию; 2) проверяет упорядоченность элементов по неубыванию; 3) считает элементы массива 3. Эта процедура: Const count=20; Type arr=array[1..count] of real; Procedure PROC ( var a: arr; n:byte); Var i, j: byte;b:real; Begin For i:=1 to n-1 do For j:=i+1 to n do if a[i] >=a[j]) then Begin b:= a[i]; a[i] :=a[j]; a[j]:=b; End; End; 1) сортирует массив методом "пузырька" 2) сортирует массив методом линейной сортировки 3) осуществляет поиск элемента в массиве 4. Эта функция: Const count=20; Type arr=array[1..count] of real; Function func (a: arr; n:byte):real ; Var i, j: byte;b:real; Begin b:= a[1] ; func:=1; For i:=2 to n do if a[i] < b then Begin func := i ; b:= a[i] ; End; End; 1) осуществляет поиск наибольшего элемента массива 2) проверяет упорядоченность элементов по неубыванию 3) возвращает номер наименьшего элемента массива 5. Фрагмент программы S := A; A := B; B := S; выполняет 1) обмен значений переменных A, B; 2) присваивание переменным A, B значения S; 3) замена значения переменной A значением переменной B; 4) во фрагменте не выполняется никаких действий; 5) замена значения переменной B значением переменной A. Вариант 2 1. Заголовок функции пользователя: 1) program name; 2) procedure name(<список формальных параметров>); 3) function name(<список формальных параметров >); 2. Эта процедура: Const count=20; Type arr=array[1..count] of real; Procedure PROC ( var a: arr; var n:byte); Var j: byte; Begin Write(‘Введите размер массива n > ’); readln(n); For j:=1 to n do Begin Write(‘a[‘, j, ‘]=’); readln(a[j]); End; End; 1) выводит на экран элементы массива; 2) выводит элементы массива в столбец; 3) ввода элементов массива с клавиатуры. 3. Эта процедура: Const count=20; Type arr=array[1..count] of real; Procedure PROC ( var a: arr; n:byte); Var i, j: byte;b:real; Begin For i:=1 to n-1 do For j:=n downto i do if a[j-1] >=a[j]) then ........




Перейти к полному тексту работы


Скачать работу с онлайн повышением уникальности до 90% по antiplagiat.ru, etxt.ru или advego.ru


Смотреть похожие работы


* Примечание. Уникальность работы указана на дату публикации, текущее значение может отличаться от указанного.