Дизъюнктивная нормальная форма (ДНФ) Простой конъюнкцией или конъюнктом называется конъюнкция некоторого конечного набора переменных или их отрицаний, причём каждая переменная встречается не более одного раза. Дизъюнктивной нормальной формой или ДНФ называется дизъюнкция простых конъюнкций. Конъюнктивная нормальная форма (КНФ) Конъюнктивная нормальная форма1 (КНФ) определяется двойственно к ДНФ. Простой дизъюнкцией или дизъюнктом называется дизъюнкция одной или нескольких переменных или их отрицаний, причём каждая переменная входит в неё не более одного раза. КНФ — это конъюнкция простых дизъюнкций.
PascalABC.Net const n=25; { число учащихся } type inform=record fio:string; kols:integer end; var minf:array[1..n] of inform; i,j,t:integer; vs,v:real; ts:string; begin { ввод исходных и накопление суммы для среднего } Writeln('Введите исходные данные'); t:=0; for i:=1 to n do With minf[i] do begin Write(i:2,') Фамилия И.О. '); Readln(fio); Write(i:2,') количество знаков '); Readln(kols); t:=t+kols end; vs:=t/n/10; { сортировка по убыванию kols } for i := 1 to n-1 do for j := 1 to n-i do if minf[j].kols < minf[j+1].kols then begin t := minf[j].kols; minf[j].kols:=minf[j+1].kols; minf[j+1].kols:=t; ts := minf[j].fio; minf[j].fio:=minf[j+1].fio; minf[j+1].fio:=ts end; { результаты } Writeln('Самый результативный: ',minf[1].fio,' (',minf[1].kols/10:0:1, ' симв/мин)'); Writeln('Средняя скорость ввода составила ',vs:0:2,' симв/мин'); Writeln('Скорость ввода ниже средней имеют: '); for i:=2 to n do begin v:=minf[i].kols/10; if v<vs then Writeln(minf[i].fio, v:0:1,' симв/мин)') end end.
Тестовое решение для 5 человек (было указано n=5): Введите исходные данные 1) Фамилия И.О. Иванов И.И. 1) количество знаков 360 2) Фамилия И.О. Петров П.П. 2) количество знаков 410 3) Фамилия И.О. Сидоров С.С. 3) количество знаков 270 4) Фамилия И.О. Козлов К.К. 4) количество знаков 390 5) Фамилия И.О. Поляков П.П. 5) количество знаков 385 Самый результативный: Петров П.П. (41.0 симв/мин) Средняя скорость ввода составила 36.30 симв/мин Скорость ввода ниже средней имеют: Иванов И.И.36.0 симв/мин) Сидоров С.С.27.0 симв/мин)
program MatFormula;
uses
Math;
var
x: Double;
begin
Write ('Введите X: ');
ReadLn (x);
WriteLn ('Tg (4-x) = ', Tan (4 - x));
Write ('Введите X: ');
ReadLn (x);
WriteLn ('Корень из модуля X = ', Sqr (Abs (x)) );
ReadLn;
end.