Может стоит почитать Теорию нормальныхх форм для чайников, мне кажется такие задачи слишком формализуют математически, в википедии такого понаписано, что волосы дыбом встают!))
а по существу: я просто выбрал неправильные ответы исходя из того, что форма BCNF - это 3я нормальная форма без зависимости первичного ключа от неключевых атрибутов. Неключевыми атрибутами считаю date и major, (правда date автор так и не описала, какую дату оно означает). Поскольку в задании cName зависит сразу от нескольких функциональных зависимостей, то первый ответ - неверный, ибо это не 3я норм форма. Ответ под номером 3 исключается исходя из того, что эти два декомпозирование исходные отношения не имеют ключевой зависимости между ними. Ответ 4 имеет зависимости от полей date или major, являющихся составными. Удовлетворяет 3NF, но противоречит BCNF, поэтому думаю, что ответ под номером 2 - наиболее подходящий
2^8=256 значит один символ весит 8 бит
всего 80*32*2=5120 символов
5120*8=40960 бит весит сообщение или
40960/8/1024=<em><u>5 килаБайт
</u></em>_______________________________________!!!
Самое простое, чтоб без заморочек, занести в массив и отсортировать его
var
a:array[1..3]of real;
i,j:integer;
p:real;
begin
for i:=1 to 3 do
begin
write('Введите число: ');
readln(a[i]);
end;
for i:=1 to 3 do
for j:=1 to 3 do
if a[j]<a[i] then
begin
p:=a[i];
a[i]:=a[j];
a[j]:=p;
end;
for i:=1 to 3 do write(a[i],' ')
<span>end.</span>
<u>1) Решение методом рекурсии.</u>
<u>Программа проста в понимании, но неэффективна при больших значениях
</u>var
n: integer;
function f(i: integer): longint;
begin
if i < 2 then
f := 1
else
f := f(i - 1) + f(i - 2);
end;
begin
read(n);
writeln(f(n));
end.
<u>2) Решение методом динамического программирования. Намного быстрее метода с рекурсией.</u><u></u>
var
i, n: integer;
f: array[0..50] of longint;
begin
read(n);
f[0] := 1;
f[1] := 1;
for i := 2 to n do
f[i] := f[i - 1] + f[i - 2];
writeln(f[n]);
end.
<u>3) Решение методом моделирования. Использует меньше памяти.
</u>var
n, a, b, i: integer;
begin
read(n);
if n < 2 then
a := 1
else
begin
a := 0;
b := 1;
for i := 0 to n do
begin
b := a + b;
a := b - a;
end;
end;
writeln(a);
end.