(30 )
дана программа по обработке одномерного массива строки программы пронумерованы
а) для каждой строки или группы строк, объясните какие действия выполняет записанный в ней оператор языка
б) сформулируйте для решения, которой создана данная программа
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 класс
Для того чтобы работать с текстами на персональном компьютере или ноутбуке обычно используют специальные программные средства, которые принято называть текстовыми редакторами. Стоит отметить, что на сегодняшний день существует довольно большое разнообразие подобных программ, которые различаются своими возможностями и функциями, но наиболее популярным (по числу использования пользователями) остается MS Word 2010.
Вообще, основным назначением текстовых редакторов является создание текстовых файлов, редактирование уже готовых (или недоделанных) текстов с возможностью их на экране, изменять их формат, а также распечатывать на принтере. Кстати, следует уточнить, что Блокнот и другие аналогичные редакторы предназначены только для обработки несложных текстовых файлов, но никак не для работы с большим текстом.
Самым большим по своим возможностями до сих пор считается MS Word — текстовый редактор от компании Microsoft. В нем так же, как и во многих его аналогах можно:
форматировать символы, абзацы;
оформлять страницы;
"строить" указатели и оглавления;
включать в тесты графические объекты: фотографии, диаграммы, рисунки;
создавать таблицы, проверять правописание и т. д.
В современном мире существует уже много версий MS Word, наиболее популярными среди них считаются версии 2003, 2007, 2010 и 2013 года выпуска. Современный текстовый процессор Microsoft Word предназначен для создания, печати и модификации текстовых документов. Он предусматривает выполнение многих операций, как над текстовой, так и над графической или табличной информацией. Благодаря MS Word стало возможно быстро, а также с высоким качеством подготовить любой документ, причем от сложного до дает возможность осуществлять все традиционные операции над текстом (без исключений), которые предусмотрены в компьютерной современной технологии. С его можно:
модифицировать набор неформатированной цифровой и алфавитной информации;
форматировать символы, применяя множество шрифтов разных размеров и начертаний;
форматировать страницы (сюда также входят сноски, колонтитулы);
форматировать документ в целом (составлять оглавление, причем автоматическое, а также разные указатели);
подбирать синонимы, проверять правописание, использовать автоматический перенос слов.
В этой программе реализованы возможности новых технологий связывания, внедрения объектов, благодаря которым можно в документ включать таблицы, текстовые фрагменты и иллюстрации.
Это одна из первых общедоступных программ, с которой можно выполнять операции верстки, которые порой необходимы издательским профессиональным системам, а также с ее можно подготавливать полноценные оригинал-макеты для их последующего тиражирования в типографии.
Данная программа является уникальной коллекцией технологических оригинальных решений, благодаря которым нудная и кропотливая работа по отделке и редактированию текста превращается в увлекательное, а порой и успокаивающее занятие. В число таких решений входит система готовых стилей оформления и решений, изящные приемы по модификации и созданию таблиц, функции автозамены и автотекста, а также копирование формата, макроязык, пользовательские панели инструментов и многое другое.
Многие привыкли к другим же нравится оригинальный интерфейс версий 2007 или 2010 года выпуска. В основном же это дело привычки. Самое главное, что в современном мире это самый удобный, интуитивно-понятный и полезный инструмент для работы с текстовыми файлами