Лабораторно-практическая работа «создание текстового документа в microsoft word» 1: набрать текст, соблюдая следующие правила: правила набора текста: между словом и знаком препинания (точка, запятая, восклицательный и вопросительный знаки, двоеточие, точка с запятой, многоточие) пробел не ставится. пробел ставится после знака препинания перед следующим словом. исключение — специальные слова и выражения (например, имена файлов и расширения, дата и время и т. пробел ставится перед открывающейся и после закрывающейся скобки или кавычки. пробел не ставится после открывающейся и перед закрывающейся скобкой или кавычкой. для набора неразрывного (нерастяжимого) пробела следует применять комбинацию ctrl-shift- пробел. данный тип пробела запрещает перенос текста в этом месте на новую строчку и увеличение расстояния между словами при выравнивании по ширине. вставку неразрывного пробела необходимо использовать, например, для отделения инициалов человека от его фамилии. тире отделяется пробелами с обеих сторон. для набора длинного тире следует использовать комбинацию ctrl-alt-минус на цифровой клавиатуре (калькуляторе), короткого — ctrl-минус на дефис в словах пишется без пробелов. для набора неразрывного дефиса (перенос слова в этом месте запрещен) следует использовать комбинацию ctrl-shift-минус. расстановка переносов слов в документе согласно правилам языка осуществляется автоматически. мягкий (рекомендуемый) перенос устанавливается сочетанием ctrl-минус. клавишу enter следует нажимать только для перехода к новому абзацу. курсор автоматически переходит на новую строчку при достижении правой границы абзаца. принудительный переход на новую строку в том же абзаце — shift-enter. границы абзацев (абзацные отступы) должны задаваться специальными средствами, а не с использованием пробелов. текст вся жизнь человека, так или иначе, связана получением, накоплением и обработкой информации. что бы человек ни делал: читает ли он книгу, смотрит ли он телевизор, разговаривает, он постоянно и непрерывно получает и обрабатывает информацию. для xxi века характерна небывалая скорость развития науки, техники и новых технологий. так от изобретения книгопечатания (середина xv века) до изобретения радиоприемника (1895г около 440 лет, а между изобретением радио и телевидения - около 30 лет. разрыв во времени между изобретением и интегральной схемы составил всего 5 лет. в области накопления научной информации её объем начиная с xvii в. удваивался примерно каждые 10 - 15 лет. поэтому одной из важнейших проблем человечества является лавинообразный поток информации в любой отрасли его жизнедеятельности. подсчитано, например, что в настоящее время специалист должен тратить около 80% своего рабочего времени, чтобы уследить за всеми новыми печатными работами в его области деятельности. увеличение информации и растущий спрос на неё обусловили появление отрасли, связанной с автоматизацией обработки информации – информатики. 1 понятие информации термин "информация" происходит от латинского слова "informatio", что означает сведения, разъяснения, изложение. информация — это настолько общее и глубокое понятие, что его нельзя объяснить одной фразой. в это слово вкладывается различный смысл в технике, науке и в житейских ситуациях. в обиходе информацией называют любые данные или сведения, которые кого-либо интересуют. например, сообщение о каких-либо событиях, о чьей-либо деятельности и т.п. "информировать" в этом смысле означает "сообщить нечто, неизвестное раньше".
var a: integer;
readln(a);
for i: integer := 1 to abs(a) do
if (a mod i = 0) then
writeln('> ', i);
end.
function Simple(a: integer): boolean;
begin
result := true;
for i: integer := 2 to (a div 2) do
if (a mod i = 0) then
begin
result := false;
break;
end;
end;
begin
var a: integer;
readln(a);
writeln(Simple(a));
end.
var
a: integer;
begin
readln(a);
for i: byte := length(a.ToString()) downto 1 do
write(a.ToString()[i]);
end.
function Simple(a: integer): boolean;
begin
result := true;
for i: integer := 2 to (a div 2) do
if (a mod i = 0) then
begin
result := false;
break;
end;
end;
function par(a: integer): string;
begin
for i: byte := length(a.ToString()) downto 1 do
result += a.ToString()[i];
end;
begin
var a: integer;
readln(a);
for i: integer := 1 to abs(a) do
if ((a mod i = 0) and (Simple(a)) and (par(a) = inttostr(i))) then
writeln('> ', i);
end.
Я бы посоветовал вместо прямого перевода 2 <-> 10 работать через 16ричную систему счисления. Алгоритмы те же, вычислений меньше, значит меньше и ошибок. А двоичные значения 16 цифр очень легко запомнить.
Гляди, как просто получится
1.
96 = 60h = 0110 0000b
53 = 35h = 0011 0101b
74 = 4Ah = 0100 1010b
80 = 50h = 0101 0000b
122=7Ah= 0111 1010b
2.
1010011b = 0101 0011b = 53h = 5*16+3=83
10011101b= 1001 1101b = 9Dh = 9*16+13 = 157
11011111b= 1101 1111b = DFh = 13*16+15= 223
3.
1010011b + 110101b = 0101 0011b + 0011 0101b = 53h + 35h = 88h = 1000 1000b
11011111b + 1111010b = 1101 1111b + 0111 1010b = DFh+7Ah = 159h= 0001 0101 1001b
Замечание1. Для решения последнего примера нужно, конечно, знать таблицу сложения 16-ричных цифр.
Замечание2 Напомню перевод 10 ->16, повторюсь, алгоритм тот же, что и 10->2
Например
122/16 = 7 (ост 10), значит 122=7Аh
Замечание3 И последнее, в практической деятельности 2-ичная система практически не используется, профессионалы, если нужно, работают с 16-ричной(это связано с тем, что байт, так уж случилось, равен 8 бит).
Ну, вроде всё.