// 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 класс
ну, для начала, стоит упомянуть, что с ее можно печатать машины! создатели последнего фильма о бонде, скайфол, наняли компанию voxeljet, которая специализируется на 3d-печати, для создания трех моделей престижной машины астон мартин db5 масштабом 1: 3 для съемок аварий. но не расстраивайтесь, одна из них уцелела и позднее была продана на аукционе кристис почти за 100 000 фунтов стерлингов. корпуса для мобильных устройств меньше размером, но не менее роскошная, первая в мире модель корпуса nokia lumia 820 была отпечатана мастерами 3d-печати, в компании makerbot. меньше чем за день после того, как были переданы в работу спецификации, специалисты компании при 3d-магии создали эту модель. протезирование индустрия медицинского оборудования - один из крупнейших рынков в мире 3d-печати. нужен бедренный сустав? распечатаем! рынок протезирования просто влюблен в 3d-технологию. специалисты бельгийской компании biomedics недавно имплантировали распечатанную на 3d-принтере титановую челюсть 83-летней пациентке. и это только начало! детали машин подполковник авиации энди грин намерен побить рекорд скорости на суше, пилотируя сверхзвуковой автомобиль развивать скорость свыше 1600 км/час - автомобиль с внутренностями, выполненными на 3d-принтере. при системы автоматизированного проектирования и глиняного слепка руки грина, титановое рулевое колесо было отпечатано максимально удобным для рук бесстрашного гонщика. на старт, медицина к нашему удивлению мы узнали, что еще 3d-принтеры можно использовать в сочетании со сканами системы автоматизированного проектирования для распечатывания клона опухоли перед операцией, с тем чтобы хирурги точно знали, с чем именно им придется иметь дело. удобно! предметы ученые из уорикского университета сообщили, что электронная схема может быть неотъемлемой частью 3d-напечатанных предметов, и чтобы доказать это, они изобрели материал, который называли carbomorph, а затем использовали его для создания компьютерного игрового устройства и кружки, которая знает, когда она наполнена. космос наса и исследователи вашингтонского государственного университета работают над 3d-печатью лунной пылью. с этой технологией мы могли бы в будущем рассматривать возможность изготовления лунной базы непосредственно на месте, целиком из материалов доступных на луне. в то же время космонавты могли бы использовать эту технологию для починки и замены сломанного оборудования. хьюстон, есть идея! почта полагаете, что посылки идут слишком медленно? файлообменник pirate bay недавно открыл новый раздел на своем сайте под названием "physibles", для того, что они описывают как "объекты данных, которые могут стать осязаемыми". другими словами, достаточно загрузить свои 3d-чертежи, и любой, кто получит этот файл сможет распечатать реальный предмет. вот это называется делиться! компьютерные герои но будьте осторожны: несколько любителей компьютерных игр нажили неприятности с законом когда стали использовать свои принтеры для воспроизводства фигурок из warhammer 40000. games workshop - создатели warhammer - быстро вмешались в их деятельность, волнуясь о своих правах на патенты. похоже, что следующей битвой на поле авторских прав на цифровые изделия будет борьба закак видите, 3d-печать уже преподносит нам не мало сюрпризов, но, очевидно, самое интересное еще впереди. а если бы вы были ограничены лишь вашим воображением, что бы вы напечатали в первую очередь?
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 класс
ну, для начала, стоит упомянуть, что с ее можно печатать машины! создатели последнего фильма о бонде, скайфол, наняли компанию voxeljet, которая специализируется на 3d-печати, для создания трех моделей престижной машины астон мартин db5 масштабом 1: 3 для съемок аварий. но не расстраивайтесь, одна из них уцелела и позднее была продана на аукционе кристис почти за 100 000 фунтов стерлингов. корпуса для мобильных устройств меньше размером, но не менее роскошная, первая в мире модель корпуса nokia lumia 820 была отпечатана мастерами 3d-печати, в компании makerbot. меньше чем за день после того, как были переданы в работу спецификации, специалисты компании при 3d-магии создали эту модель. протезирование индустрия медицинского оборудования - один из крупнейших рынков в мире 3d-печати. нужен бедренный сустав? распечатаем! рынок протезирования просто влюблен в 3d-технологию. специалисты бельгийской компании biomedics недавно имплантировали распечатанную на 3d-принтере титановую челюсть 83-летней пациентке. и это только начало! детали машин подполковник авиации энди грин намерен побить рекорд скорости на суше, пилотируя сверхзвуковой автомобиль развивать скорость свыше 1600 км/час - автомобиль с внутренностями, выполненными на 3d-принтере. при системы автоматизированного проектирования и глиняного слепка руки грина, титановое рулевое колесо было отпечатано максимально удобным для рук бесстрашного гонщика. на старт, медицина к нашему удивлению мы узнали, что еще 3d-принтеры можно использовать в сочетании со сканами системы автоматизированного проектирования для распечатывания клона опухоли перед операцией, с тем чтобы хирурги точно знали, с чем именно им придется иметь дело. удобно! предметы ученые из уорикского университета сообщили, что электронная схема может быть неотъемлемой частью 3d-напечатанных предметов, и чтобы доказать это, они изобрели материал, который называли carbomorph, а затем использовали его для создания компьютерного игрового устройства и кружки, которая знает, когда она наполнена. космос наса и исследователи вашингтонского государственного университета работают над 3d-печатью лунной пылью. с этой технологией мы могли бы в будущем рассматривать возможность изготовления лунной базы непосредственно на месте, целиком из материалов доступных на луне. в то же время космонавты могли бы использовать эту технологию для починки и замены сломанного оборудования. хьюстон, есть идея! почта полагаете, что посылки идут слишком медленно? файлообменник pirate bay недавно открыл новый раздел на своем сайте под названием "physibles", для того, что они описывают как "объекты данных, которые могут стать осязаемыми". другими словами, достаточно загрузить свои 3d-чертежи, и любой, кто получит этот файл сможет распечатать реальный предмет. вот это называется делиться! компьютерные герои но будьте осторожны: несколько любителей компьютерных игр нажили неприятности с законом когда стали использовать свои принтеры для воспроизводства фигурок из warhammer 40000. games workshop - создатели warhammer - быстро вмешались в их деятельность, волнуясь о своих правах на патенты. похоже, что следующей битвой на поле авторских прав на цифровые изделия будет борьба закак видите, 3d-печать уже преподносит нам не мало сюрпризов, но, очевидно, самое интересное еще впереди. а если бы вы были ограничены лишь вашим воображением, что бы вы напечатали в первую очередь?
программное обеспечение компьютера делится на:
- системное по;
- прикладное по;
- системы программирования.