var
a : array [1..9] integer;
i : integer;
begin
for i := 1 to 9 do
if i mod 3 = 1 then a[i] := i
else if i mod 3 = 2 then a[i] := sqr (i - 1)
else a[i] := a[i - 1] div i;
for i := 1 to 9 do
write (a[i], ' ');
end.
var
b, a : array [1..15] of integer;
i, sa, sb : integer;
begin
randomize;
sa := 0; sb := 0;
for i := 1 to 15 do
begin
a[i] := trunc (random (100)) + 1;
write (a[i], ' ');
sa := sa + a[i];
end;
writeln;
for i := 1 to 15 do
begin
b[i] := sqr (a[i]) - a[i]);
write (b[i], ' ');
sb := sb + b[i];
end;
writeln;
writeln (abs (sb - sa));
end.
1. расширенные возможности по созданию документов:
- самостоятельно пользователем;
- на базе шаблона;
- с мастера.
шаблон — служебный файл с расширением .dot, который содержит информацию о структуре и оформлении документа конкретного типа: фрагменты стандартного текста͵ графические объекты, стили, элементы автотекста͵ состав панелей инструментов и т. д. шаблон — это предварительно разработанная заготовка, в которую удобно вводить недостающие данные, после чего она сразу превращается в полноценный документ. основная цель создания и использования шаблонов состоит по сути в том, чтобы пользователь не тратил время на ввод типовой информации и форматирование документа. кроме этого, использование шаблонов позволяет поддерживать единообразный стиль документов.
мастер — служебный файл с расширением .wiz, содержащий перечень вопросов, отвечая на которые, пользователь создает документ. как правило, документ, созданный с мастера, требует внесения в него дополнительных сведений. формат и основные элементы текста на этапе работы с мастером.
2. расширенные возможности по форматированию текста: пользовательское форматирование; стилевое форматирование.
стиль — это именованный и сохраненный как единое целое набор форматов, таких, как шрифт, размер, отступ, интервал и т. д. существуют стили символов, абзацев, заголовков, указателей.
стилевое форматирование наиболее часто применяется при создании больших по объёму и сложных по структуре документов.
3. разнообразный набор возможностей по работе с графическими объектами:
- включение в документ иллюстраций, созданных в графических редакторах (поддержка технологии ole);
- наличие простого встроенного графического редактора (панель инструментов рисование);
- вставка рисунков из коллекции clipart;
- создание текстовых эффектов с приложения wordart.
4. поддержка новых технологий ole, dde, truetype.
5. возможность выполнения операций по верстке текста͵ создание оригинал-макетов.
6. создание таблиц, проведение вычислений над данными таблицы, построение диаграмм.
7. наличие фоновой печати документа. фоновая печать позволяет продолжать работу в процессоре во время вывода документа на печать.
8. возможность работы в различных режимах. учитывая зависимость , которую пользователь решает в данный момент времени, можно выбрать один из трех вариантов представления документа в окне ms word: обычный режим; режим разметки страницы; режим структуры документа; режим web-документа.
при черновом наборе текста наиболее удобным является обычный режим. скорость процессора заметно повышается в данном режиме, однако проводить форматирование, верстку текста крайне важно в режиме разметки страницы. при форматировании заголовков структурных частей документа следует устанавливать режим структуры документа.
9. работа с несколькими документами одновременно (многооконный режим).
10. наличие режима предварительного просмотра, который позволяет увидеть документ таким, каким он будет выведен на печать.
11. возможность набора , и других формул (редактор формул ms equation).
12. поддержка технологии intellisense — функций искусственного интеллекта. этим термином обозначается способность программы анализировать действия пользователя и при крайне важно сти корректировать их или даже брать на себя выполнение некоторых рутинных операций. наиболее важные инструменты технологии: автоматическое корректирование текста в процессе ввода — исправление типовых опечаток, замена введенных символов на специальные и т. п. (автозамена); автоматическая проверка орфографии; автоматическое форматирование документа (автоформат); автоматизация набора текста (автотекст).
11. создание гипертекстовых документов, выработка web-страниц.
12. наличие справочной системы.
begin
writeln('введите числа (0 признак окончания ввода)');
readln(a);
b:=1;
while (a<>0) do begin
readln(a);
if (a mod 2 = 0) and (a<>0) then b:=b*a;
end;writeln('произведение чётных чисел последовательности ',b);
end.
2.var a,b:integer;
begin
b:=0;
a:=1;
while (a<=10000) do begin
if (a mod 10 = 0) then b:=b+1;
a:=a+1;
end;
writeln('количество круглых чисел ',b);
end.
3.var a,b:integer;
begin
writeln('введите числа (1 признак окончания ввода)');
readln(a);
b:=0;
while (a<>1) do begin
readln(a);
if (a mod 7 = 0) then b:=b+1;
end;
writeln('цифра 7 встречается ',b,' раз');
end.
4.var a,b:integer;begin
writeln('введите числа (0 признак окончания ввода)');
b:=0;
a:=1;
while (a<>0) do begin
readln(a);
if (a<>0) then b:=a*a+b;
end;writeln('сумма квадратов ',b);
end.