Оля, Вика и Таня получили оценки по контрольной. Каждая из девочек высказала предположения:
Оля: контрольная была по географии, её писали 17.04..
Вика: контрольная была по физике, её писали 14.04..
Таня: данная контрольная не по географии, её писали 10.04..
Классный руководитель сказал, что каждая из них права только в одном из двух предположений. Какая контрольная и когда её писали?
по истории
по физике
по химии
по биологии
по географии
10.04.
17.04.
14.04.
--> - импликация, следование
Таблица истинности импликации
x1 x2 r
0 0 1
0 1 1
1 0 0
1 1 1
Общее правило: если x1<=x2, тогда правда, в остальных случаях ложь.
^ - Конъюнкция, логическое И
Таблица истинности конъюнкции
x1 x2 r
0 0 0
0 1 0
1 0 0
1 1 1
Общее правило: если x1 или x2 = 0, тогда ложь. x1=x2=1, только тогда правда.
(первая буква имени согласная ---> вторая буква имени согласная)^ четвертая буква имени согласная
1) Лариса
2) Сергей
3) Геннадий
4)Елена
Теперь по вариантам:
1) Лариса
Получается (1-->0)^0=0^0=0, не подходит
2) Сергей
(1-->0)^1=0^1=0, не подходит
3) Геннадий
(1-->0)^1=0^1=0, не подходит
4) Елена
(0-->1)^1=1^1=1, подходит
ответ: 4) Елена
procedure TfrmMain.FindFilesOnDisk(Dir : string);
var SR : TSearchRec;
Err : integer;
i, j : integer;
st : string;
begin
if (Dir[Length(Dir)] <> '\') then Dir := Dir + '\';
Err := FindFirst(Dir + '*.*', faAnyFile, SR);
while Err = 0 do
begin
j := 0;
st := AnsiUpperCase(SR.Name);
if lbDirs.Items.Count > 0 then //Если в списке есть каталоги
//Проверить, нет ли среди них
for i := 0 to lbDirs.Items.Count - 1 do
if lbDirs.Items[i] = st then //найденного
begin
j := 1;
break;
end; //if lbDirs.Items[i] = st then
if j = 0 then
begin
if (SR.Name <> '.') and
(SR.Name <> '..') and
((SR.Attr and faDirectory) <> 0) then
begin
inc(NumDir);
DirList.Add(Dir + st);
frmMain.sbMain.Panels[1].Text := IntToStr(NumDir);
pbFind.Position := NumDir;
Application.ProcessMessages;
FindFilesOnDisk(Dir + SR.Name);
end; //if (SR.Name <> '.') and
end; //if j = 0 then
Err := FindNext(SR);
end;
end;
Объяснение: