1. Запустите текстовый процессор. 2. Создайте новый документ на базе стандартного шаблона.
3. В качестве режима представления документа включите Режим разметки (Вид • Разметка страницы), чтобы четко видеть границы полосы набора.
4. Введите несколько строк произвольного текста.
5. Командой Вид • Панели инструментов • WordArt включите отображение панели инструментов WordArt.
6. Щелкните на кнопке Добавить объект WordArt — произойдет запуск мастера создания объекта WordArt.
7. В окне Коллекция WordArt выберите желаемый стиль оформления надписи.
8. В диалоговом окне Изменение текста WordArt выберите желаемый шрифт, его размер, начертание и введите текст создаваемого заголовка (надписи).
9. После щелчка на кнопке ОК произойдет вставка созданного объекта в текущий документ Microsoft Word.
10. Дальнейшее управление формой и расположением созданного объекта выполняют элементами управления панели инструментов WordArt. Проверьте, как протекают следующие операции (после каждой команды возвращайтесь к исходному состоянию комбинацией CTRL+Z): • изменение содержания надписи (Изменить текст); • изменение стиля оформления (Коллекция WordArt); • изменение характера взаимодействия с основным текстом (Формат объекта • Положение); • изменение формы надписи (Форма WordArt); • выравнивание букв надписи по высоте (Выровнять буквы WordArt по высоте); • расположение текста надписи по вертикали (Вертикальный текст WordArt); • управление интервалом между символами (Межсимвольный интервал WordArt).
11. Закончив эксперименты, создайте заголовок по своему вкусу и сохраните документ Word в папке Мои документы.
В ВИДЕ ВОРД
uses crt;
var
i: integer; {счетчик}
s: integer;
begin
clrscr; {очистка экрана}
writeln ('Программа выводит числа от 1 до 99, сумма цифр которых равна числу S');
writeln ('Введите число S, от 0 до 18: ');
{ввод числа S с проверкой на корректность}
repeat
readln (s);
if (s>18) or (s<0) then
writeln ('Неверный ввод. Повторите')
until (s<=18) and (s>=0);
{вывод нужных чисел на экран (цикл с предусловием)}
for i := 1 to 99 do
if ((i div 10) + (i mod 10) = s) then {div дает целую часть, mod - остаток от деления}
write (i, ' ');
repeat until keypressed; {пустой цикл для задержки экрана до нажатия клавиши}
end.
Объяснение:
1. x = 0; y = 4
Цикл по i от 3 до 6
1) i = 3
x = x + 1 = 0 + 1 = 1
y = y + 2 = 4 + 2 = 6
2) i = 4
x = x + 1 = 1 + 1 = 2
y = y + 2 = 6 + 2 = 8
3) i = 5
x = x + 1 = 2 + 1 = 3
y = y + 2 = 8 + 2 = 10
4) i = 6
x = x + 1 = 3 + 1 = 4
y = y + 2 = 10 + 2 = 12
Конец цикла
y = y - x = 12 - 4 = 8
x = x + y = 4 + 8 = 12
Вывод y = 8
2. x = 0; y = 2
Цикл, пока y < 15
1) x = x + 1 = 0 + 1 = 1
y = y + 2 = 2 + 2 = 4 < 15
2) x = 1 + 1 = 2
y = 4 + 2 = 6 < 15
3) x = 2 + 1 = 3
y = 6 + 2 = 8 < 15
4) x = 3 + 1 = 4
y = 8 + 2 = 10 < 15
5) x = 4 + 1 = 5
y = 10 + 2 = 12 < 15
6) x = 5 + 1 = 6
y = 12 + 2 = 14 < 15
7) x = 6 + 1 = 7
y = 14 + 2 = 16 > 15
Конец цикла
y = y - x = 16 - 7 = 9
x = x + y = 7 + 9 = 16
Вывод y = 9
3. x = 0; y = 5
Цикл с постусловием
1) x = x + 1 = 0 + 1 = 1
y = y + 2 = 5 + 2 = 7
Выйти из цикла, если y > 15
y = 7 < 15
2) x = 1 + 1 = 2
y = 7 + 2 = 9 < 15
3) x = 2 + 1 = 3
y = 9 + 2 = 11 < 15
4) x = 3 + 1 = 4
y = 11 + 2 = 13 < 15
5) x = 4 + 1 = 5
y = 13 + 2 = 15
15 не больше 15, поэтому продолжаем.
6) x = 5 + 1 = 6
y = 15 + 2 = 17 > 15
Выход из цикла
y = y - x = 17 - 6 = 11
x = x + y = 6 + 11 = 17
Вывод y = 11