Контрольная Лабораторная работа 4 (Экспертное оценивание). Учебная работа № 129103
Количество страниц учебной работы: 8,7
Содержание:
«Цель исследования: Экспертная оценка качеств личности руководителя и характеристик способов управления по методике Ю. П. Платонова.
Материал и оборудование исследования: Бланк, разработанный по специальной программе; алгоритм вычислений.
Процедура исследования. Основные правила:
1. Каждая характеристика определяется семью признаками (будут указаны в таблице бланков экспертов).
2. Оценка каждого из признаков дается по пятибалльной шкале: низший балл – «1», высший – «5».
3. Группа экспертов состоит из 8 членов трудового коллектива одного ранга.
4. Исследование проводится без взаимодействия экспертов между собой.
5. Количество бланков соответствует числу экспертов – 8 шт.
»
Учебная работа № 129103. Контрольная Лабораторная работа 4 (Экспертное оценивание)
Выдержка из похожей работы
procedure sravn(sl:string; Var k1:integer); begin {sravn} repeat if (sl[1]=’а’) or (sl[1]=’е’) or (sl[1]=’ё’) or (sl[1]=’и’) or (sl[1]=’о’) or (sl[1]=’у’) or (sl[1]=’ы’) or (sl[1]=’э’) or (sl[1]=’ю’) or (sl[1]=’я’) then k1:=k1+1; delete(sl,1,1); until length(sl)=0; end; {sravn}
procedure s4et(ok:boolean;s:string;var ko:integer); var sl:mas; sl1:string[80]; k,i,j:byte; k1:integer; begin {s4et} k1:=0; trim(s); s:=s+’ ‘; i:=0; repeat k:=pos(‘ ‘,s); i:=i+1; sl[i]:=copy(s,1,k-1); delete(s,1,k); until s=»; for j:=1 to i do begin sravn(sl[j],k1); if ok then if k1>ko then ko:=k1; if not ok then if k1=ko then writeln(sl[j]); k1:=0; end; end; {s4et}var s:mas; i,n,k:integer;
begin k:=0; Writeln(‘Введите кол-во строк:’); readln(n); Writeln(‘Введите текст:’); for i:=1 to n do begin readln(s[i]); s4et(true,s[i],k); end; writeln(‘максимальное количество гласных букв в слове=’,k); for i:=1 to n do s4et(false,s[i],k);
end. Результат выполнения программы:
Введите кол-во строк:
4
Введите текст:
Рязанская
Государственная
Радиотехническая
Академия
максимальное количество гласных букв в слове=8
Радиотехническая
…
