// PascalABC.NET 3.0, сборка 1088 const nDay:array[1..12] of integer=(31,28,31,30,31,30,31,31,30,31,30,31); type Date=record Day,Month,Year:integer end;
function DOW(Dat:Date):integer; // день недели по дате. 0-Вс. 1-Пн, 7-Сб var a,y,m:integer; begin With Dat do begin a:=(14 - month) div 12; y:=Year-a; m:=month+12*a-2; DOW:=(7000+(day+y+y div 4-y div 100+y div 400+(31*m) div 12)) mod 7 end end;
procedure DMY2Date(d,m,y:integer; var data:Date); // Преобразует к дате заданные день, месяц и год begin data.Day:=d; data.Month:=m; data.Year:=y end;
procedure LastDays(month,year:integer; var Wd,Fr:Date); // даты последней среды (Wd) и пятницы (Fr) для месяца в году } var LastDay:Date; n:integer; begin n:=nDay[month]; if (month=2) and (year mod 4 = 0) then Inc(n); DMY2Date(n,month,year,LastDay); n:=DOW(LastDay); // номер последнего дня недели Wd.Month:=month; Wd.Year:=year; if n<3 then Wd.Day:=LastDay.Day-(n+4) else if n=3 then Wd.Day:=LastDay.Day else Wd.Day:=LastDay.Day+3-n; Fr.Month:=month; Fr.Year:=year; if n<5 then Fr.Day:=LastDay.Day-(n+2) else if n=3 then Fr.Day:=LastDay.Day else Fr.Day:=LastDay.Day-1 end;
var Wd,Fr:Date; ff,mf:Text; m:integer; begin Assign(ff,'father.txt'); Rewrite(ff); Assign(mf,'mother.txt'); Rewrite(mf); // Сентябрь-декабрь 2015 года for m:=9 to 12 do begin LastDays(m,2015,Wd,Fr); if Odd(Wd.Day) then Writeln(mf,Wd.Day,'.',m,'.2015 - 1 класс') else Writeln(ff,Wd.Day,'.',m,'.2015 - 1 класс'); if Odd(Fr.Day) then Writeln(mf,Fr.Day,'.',m,'.2015 - 5 класс') else Writeln(ff,Fr.Day,'.',m,'.2015 - 5 класс') end; // Январь - май 2016 года for m:=1 to 5 do begin LastDays(m,2016,Wd,Fr); if Odd(Wd.Day) then Writeln(mf,Wd.Day,'.',m,'.2016 - 1 класс') else Writeln(ff,Wd.Day,'.',m,'.2016 - 1 класс'); if Odd(Fr.Day) then Writeln(mf,Fr.Day,'.',m,'.2016 - 5 класс') else Writeln(ff,Fr.Day,'.',m,'.2016 - 5 класс') end; Close(ff); Close(mf) end.
Содержимое выходных файлов: father.txt 30.9.2015 - 1 класс 28.10.2015 - 1 класс 30.10.2015 - 5 класс 30.12.2015 - 1 класс 24.2.2016 - 1 класс 26.2.2016 - 5 класс 30.3.2016 - 1 класс
mother.txt 25.9.2015 - 5 класс 25.11.2015 - 1 класс 27.11.2015 - 5 класс 25.12.2015 - 5 класс 27.1.2016 - 1 класс 29.1.2016 - 5 класс 25.3.2016 - 5 класс 27.4.2016 - 1 класс 29.4.2016 - 5 класс 25.5.2016 - 1 класс 27.5.2016 - 5 класс
Пиксели дисплея состоят из ЖК-молекул, выстроенных между прозрачными электродами, а также из пары поляризационных фильтров с перпендикулярными друг другу осями полярностей. В отсутствие жидкого кристалла свет, проходя через один поляризатор, блокируется другим. Поверхность электродов, контактирующих с веществом, находящимся в ЖК-фазе, обработана так, чтобы молекулы выстраивались в определенном направлении. Как правило, они покрываются тонким слоем полимера, направленного в одну сторону методом протирания его тканью (жидкие кристаллы выстраиваются в том же направлении). Принцип работы ЖК-монитора следующий. До наложения электрического поля ЖК-молекулы выстроены согласно направлению выравнивания поверхностей. В наиболее рас типе ЖК-экрана – крученном нематическом – направления выстраивания поверхностей электродов перпендикулярны, благодаря чему молекулы образуют спиралевидную структуру, т. е. скручиваются. Так как свойством жидких кристаллов является разная скорость движения света с разной поляризацией, луч, который проходит через один поляризационный фильтр, вращается ЖК-спиралью так, что может пройти сквозь второй. При этом половина света поглощается в первом поляризаторе, но в остальном вся сборка прозрачна. Когда на электроды подается напряжение, начинает действовать крутящий момент, который выравнивает молекулы скрученного нематического кристалла вдоль электрического поля и выпрямляет спиралевидную структуру. Этому препятствуют упругие силы, так как молекулы на поверхностях не свободны. Вращение поляризации уменьшается, и пиксель выглядит серым. Но благодаря свойству жидких кристаллов выравниваться при достаточно высокой разности потенциалов, проходящий сквозь них свет не вращается. В результате направление поляризации становится перпендикулярным второму фильтру, он полностью блокируется, и пиксель выглядит черным. Изменение напряжения между электродами по обе стороны ЖК-слоя каждого элемента изображения регулирует количество проходящего света и, соответственно, его яркость. Скрученные нематические жидкие кристаллы помещаются между скрещенными поляризационными фильтрами для того, чтобы свет был максимально ярким без расхода электроэнергии, а получаемое при подаче напряжения затемнение - являлось равномерным. Возможен случай использования параллельных поляризационных фильтров. При этом темные и яркие состояния изменяются на противоположные. Однако в такой конфигурации черный не будет равномерным. Вещество жидкого кристалла и выравнивающий слой содержат ионные соединения. Если длительное время действует электрическое поле определенной полярности, ионный материал притягивается поверхностями, ухудшая характеристики ЖК-монитора. Избежать этого можно, применяя либо переменный ток, либо изменяя полярность электрического поля во время обращения к устройству (реакция ЖК-слоя не зависит от полярности). - Читайте подробнее на FB.ru: https://fb.ru/article/382111/jk-monitoryi-printsip-rabotyi-ustroystvo-osobennosti-uhoda-diagnostika-remont-preimuschestva-i-nedostatki
const
nDay:array[1..12] of integer=(31,28,31,30,31,30,31,31,30,31,30,31);
type
Date=record
Day,Month,Year:integer
end;
function DOW(Dat:Date):integer;
// день недели по дате. 0-Вс. 1-Пн, 7-Сб
var
a,y,m:integer;
begin
With Dat do begin
a:=(14 - month) div 12;
y:=Year-a;
m:=month+12*a-2;
DOW:=(7000+(day+y+y div 4-y div 100+y div 400+(31*m) div 12)) mod 7
end
end;
procedure DMY2Date(d,m,y:integer; var data:Date);
// Преобразует к дате заданные день, месяц и год
begin
data.Day:=d; data.Month:=m; data.Year:=y
end;
procedure LastDays(month,year:integer; var Wd,Fr:Date);
// даты последней среды (Wd) и пятницы (Fr) для месяца в году }
var
LastDay:Date;
n:integer;
begin
n:=nDay[month];
if (month=2) and (year mod 4 = 0) then Inc(n);
DMY2Date(n,month,year,LastDay);
n:=DOW(LastDay); // номер последнего дня недели
Wd.Month:=month; Wd.Year:=year;
if n<3 then Wd.Day:=LastDay.Day-(n+4)
else
if n=3 then Wd.Day:=LastDay.Day
else Wd.Day:=LastDay.Day+3-n;
Fr.Month:=month; Fr.Year:=year;
if n<5 then Fr.Day:=LastDay.Day-(n+2)
else
if n=3 then Fr.Day:=LastDay.Day
else Fr.Day:=LastDay.Day-1
end;
var
Wd,Fr:Date;
ff,mf:Text;
m:integer;
begin
Assign(ff,'father.txt'); Rewrite(ff);
Assign(mf,'mother.txt'); Rewrite(mf);
// Сентябрь-декабрь 2015 года
for m:=9 to 12 do begin
LastDays(m,2015,Wd,Fr);
if Odd(Wd.Day) then Writeln(mf,Wd.Day,'.',m,'.2015 - 1 класс')
else Writeln(ff,Wd.Day,'.',m,'.2015 - 1 класс');
if Odd(Fr.Day) then Writeln(mf,Fr.Day,'.',m,'.2015 - 5 класс')
else Writeln(ff,Fr.Day,'.',m,'.2015 - 5 класс')
end;
// Январь - май 2016 года
for m:=1 to 5 do begin
LastDays(m,2016,Wd,Fr);
if Odd(Wd.Day) then Writeln(mf,Wd.Day,'.',m,'.2016 - 1 класс')
else Writeln(ff,Wd.Day,'.',m,'.2016 - 1 класс');
if Odd(Fr.Day) then Writeln(mf,Fr.Day,'.',m,'.2016 - 5 класс')
else Writeln(ff,Fr.Day,'.',m,'.2016 - 5 класс')
end;
Close(ff); Close(mf)
end.
Содержимое выходных файлов:
father.txt
30.9.2015 - 1 класс
28.10.2015 - 1 класс
30.10.2015 - 5 класс
30.12.2015 - 1 класс
24.2.2016 - 1 класс
26.2.2016 - 5 класс
30.3.2016 - 1 класс
mother.txt
25.9.2015 - 5 класс
25.11.2015 - 1 класс
27.11.2015 - 5 класс
25.12.2015 - 5 класс
27.1.2016 - 1 класс
29.1.2016 - 5 класс
25.3.2016 - 5 класс
27.4.2016 - 1 класс
29.4.2016 - 5 класс
25.5.2016 - 1 класс
27.5.2016 - 5 класс
Пиксели дисплея состоят из ЖК-молекул, выстроенных между прозрачными электродами, а также из пары поляризационных фильтров с перпендикулярными друг другу осями полярностей. В отсутствие жидкого кристалла свет, проходя через один поляризатор, блокируется другим. Поверхность электродов, контактирующих с веществом, находящимся в ЖК-фазе, обработана так, чтобы молекулы выстраивались в определенном направлении. Как правило, они покрываются тонким слоем полимера, направленного в одну сторону методом протирания его тканью (жидкие кристаллы выстраиваются в том же направлении). Принцип работы ЖК-монитора следующий. До наложения электрического поля ЖК-молекулы выстроены согласно направлению выравнивания поверхностей. В наиболее рас типе ЖК-экрана – крученном нематическом – направления выстраивания поверхностей электродов перпендикулярны, благодаря чему молекулы образуют спиралевидную структуру, т. е. скручиваются. Так как свойством жидких кристаллов является разная скорость движения света с разной поляризацией, луч, который проходит через один поляризационный фильтр, вращается ЖК-спиралью так, что может пройти сквозь второй. При этом половина света поглощается в первом поляризаторе, но в остальном вся сборка прозрачна. Когда на электроды подается напряжение, начинает действовать крутящий момент, который выравнивает молекулы скрученного нематического кристалла вдоль электрического поля и выпрямляет спиралевидную структуру. Этому препятствуют упругие силы, так как молекулы на поверхностях не свободны. Вращение поляризации уменьшается, и пиксель выглядит серым. Но благодаря свойству жидких кристаллов выравниваться при достаточно высокой разности потенциалов, проходящий сквозь них свет не вращается. В результате направление поляризации становится перпендикулярным второму фильтру, он полностью блокируется, и пиксель выглядит черным. Изменение напряжения между электродами по обе стороны ЖК-слоя каждого элемента изображения регулирует количество проходящего света и, соответственно, его яркость. Скрученные нематические жидкие кристаллы помещаются между скрещенными поляризационными фильтрами для того, чтобы свет был максимально ярким без расхода электроэнергии, а получаемое при подаче напряжения затемнение - являлось равномерным. Возможен случай использования параллельных поляризационных фильтров. При этом темные и яркие состояния изменяются на противоположные. Однако в такой конфигурации черный не будет равномерным. Вещество жидкого кристалла и выравнивающий слой содержат ионные соединения. Если длительное время действует электрическое поле определенной полярности, ионный материал притягивается поверхностями, ухудшая характеристики ЖК-монитора. Избежать этого можно, применяя либо переменный ток, либо изменяя полярность электрического поля во время обращения к устройству (реакция ЖК-слоя не зависит от полярности). - Читайте подробнее на FB.ru: https://fb.ru/article/382111/jk-monitoryi-printsip-rabotyi-ustroystvo-osobennosti-uhoda-diagnostika-remont-preimuschestva-i-nedostatki
Объяснение: