Написать комментарий | |
Виктор Найда
05-06-2006 20:41 (ссылка)
08-06-2006 23:12 (ссылка)
Re: 4-й номер "Микро-журнала"
Мелкожурнал? А что это? Я ничё не понял про таблицы с буковками. Я обычно, когда меня глючит как и тебя, пишу что-нить в стиле:
//------------------------------------------------------------------------------------------
uses
SysUtils, JwaWinType, JwaWinNT, JwaWinBase, JwaNtDdPar;
{$WARN SYMBOL_PLATFORM OFF}
function GetLptStatus: Boolean;
var
eFileHandle: THandle;
eInfo: TParQueryInformation;
eBytesReturned: DWORD;
begin
// откр.порт
eFileHandle := CreateFile('LPT1', GENERIC_READ, 0, nil, OPEN_EXISTING, 0, 0);
Win32Check(eFileHandle <> INVALID_HANDLE_VALUE);
try
//состояние ?
Win32Check(DeviceIoControl(eFileHandle, IOCTL_PAR_QUERY_INFORMATION, nil, 0,
@eInfo, SizeOf(eInfo), @eBytesReturned, nil));
Result := (Byte(eInfo.Status) and PARALLEL_BUSY) = 0;
finally
Win32Check(CloseHandle(eFileHandle));
end;
end;
//----------------------------------------------------------------------------------------
Если глючит серьезно и этого оказывается недостаточно, то я пишу так:
//-типа начало!
replacements.xml
]]>
//----ну наконец-то конец!!!-----------------------------------------
Ну и уж в совсем редких условиях я пишу так:
//-------очередной С++Маразм----------
#include
#include
int main (int arg, char * pszArgs[])
{
// cycle
int loopCount;
cout « "Введите loopCount: " ;
сin >> loopCount;
for (int i = loopCount; i > 0; i—>
{
cout << "Осталось выполнить " << i-1 << " циклов\п";
}
return 0;
}
//-- Очередной маразм написан -------------------------
//------------------------------------------------------------------------------------------
uses
SysUtils, JwaWinType, JwaWinNT, JwaWinBase, JwaNtDdPar;
{$WARN SYMBOL_PLATFORM OFF}
function GetLptStatus: Boolean;
var
eFileHandle: THandle;
eInfo: TParQueryInformation;
eBytesReturned: DWORD;
begin
// откр.порт
eFileHandle := CreateFile('LPT1', GENERIC_READ, 0, nil, OPEN_EXISTING, 0, 0);
Win32Check(eFileHandle <> INVALID_HANDLE_VALUE);
try
//состояние ?
Win32Check(DeviceIoControl(eFileHandle, IOCTL_PAR_QUERY_INFORMATION, nil, 0,
@eInfo, SizeOf(eInfo), @eBytesReturned, nil));
Result := (Byte(eInfo.Status) and PARALLEL_BUSY) = 0;
finally
Win32Check(CloseHandle(eFileHandle));
end;
end;
//----------------------------------------------------------------------------------------
Если глючит серьезно и этого оказывается недостаточно, то я пишу так:
//-типа начало!
replacements.xml
]]>
//----ну наконец-то конец!!!-----------------------------------------
Ну и уж в совсем редких условиях я пишу так:
//-------очередной С++Маразм----------
#include
#include
int main (int arg, char * pszArgs[])
{
// cycle
int loopCount;
cout « "Введите loopCount: " ;
сin >> loopCount;
for (int i = loopCount; i > 0; i—>
{
cout << "Осталось выполнить " << i-1 << " циклов\п";
}
return 0;
}
//-- Очередной маразм написан -------------------------
12-01-2008 12:38 (ссылка)
Re: 4-й номер "Микро-журнала"
http://my.mail.ru/mail/dr.t...
.
"ЦИФРОВОЙ ПАСПОРТ"
А_ЯПОНИЯ
.
BANK OF JAPAN 101_10020 HTTP:
BIOCOMPUTER MAHABODHI
8_961 564 7375
12345679_AO"101GOROD"
Dr.TV_67@MAIL.RU
WWW.NALOG.TV
WWW.OSHO.TV
WWW.LSD.TV
MAIL.TV
Dr.TV
.
"ЦИФРОВОЙ ПАСПОРТ"
А_ЯПОНИЯ
.
BANK OF JAPAN 101_10020 HTTP:
BIOCOMPUTER MAHABODHI
8_961 564 7375
12345679_AO"101GOROD"
Dr.TV_67@MAIL.RU
WWW.NALOG.TV
WWW.OSHO.TV
WWW.LSD.TV
MAIL.TV
Dr.TV
иван кулиберов
09-08-2011 21:59 (ссылка)
Re: 4-й номер "Микро-журнала"
A = B - РАВЕНСТВО: если А истино, то и B истино, если А ложно, то и B ложно
Если А = В истино, то + А = + В и - А = - В истино.
A > B - ИМПЛИКАЦИЯ: В не может быть ложным, если А истино. Если А - ложно, B может быть любым
Если А => В истино, то + А => + В и - А => - В истино.
ГA - ОТРИЦАНИЕ: ГA истино, если А ложно и наоборот
Если А не = В истино, то + А не = + В и - А не = - В истино. В противном случае А = В, +А = + В и - А = - В ложно.
А & B - КОНЪЮНКЦИЯ: читай "А и B". Форма (А и B) принимает значение И тогда и только тогда, когда истино и А, и B.
Если A & B истино, то истино (+А V (-A)) & ( + B V( - B)). В противном случае коньюкция не имеет смысла.
А V B - ДИЗЪЮНКЦИЯ: читай "А или В". Форма (А или B) принимает значение И, когда А истино, либо когда B истино, либо когда истины А и В одновременно.
Если A V B истино, то истино ((+А & (-A)) V ( + B &( - B))). В противном случае дизьюнкция не имеет смысла.
Если А = В истино, то + А = + В и - А = - В истино.
A > B - ИМПЛИКАЦИЯ: В не может быть ложным, если А истино. Если А - ложно, B может быть любым
Если А => В истино, то + А => + В и - А => - В истино.
ГA - ОТРИЦАНИЕ: ГA истино, если А ложно и наоборот
Если А не = В истино, то + А не = + В и - А не = - В истино. В противном случае А = В, +А = + В и - А = - В ложно.
А & B - КОНЪЮНКЦИЯ: читай "А и B". Форма (А и B) принимает значение И тогда и только тогда, когда истино и А, и B.
Если A & B истино, то истино (+А V (-A)) & ( + B V( - B)). В противном случае коньюкция не имеет смысла.
А V B - ДИЗЪЮНКЦИЯ: читай "А или В". Форма (А или B) принимает значение И, когда А истино, либо когда B истино, либо когда истины А и В одновременно.
Если A V B истино, то истино ((+А & (-A)) V ( + B &( - B))). В противном случае дизьюнкция не имеет смысла.
иван кулиберов
09-08-2011 22:01 (ссылка)
Написать комментарий | ||
|| A | B | C | ((А=B)&C)...||
|| --------------------------------||
|| И| И | И | И . . . . . . . . . .||
|| И| И | Л | Л . . . . . . . . . . ||
|| И| Л | И | Л . . . . . . . . . . ||
|| И| Л | Л | Л . . . . . . . . . . ||
|| Л| И | И | Л . . . . . . . . . . ||
|| Л| И | Л | Л . . . . . . . . . . ||
|| Л| Л | И | И . . . . . . . . . . ||
|| Л| Л | Л | Л . . . . . . . . . . ||
====================
Жаль, что прекратили обсуждать парадоксы. Мне казалось, там есть еще, о чем поговорить. В частности кто сможет описать ход рассуждения при анализе фразы "Я лгу" в "Пропозиционных формах"?
А ведь, возможно, в этом разгадка парадокса ;)