Тема: Использование дополнительных возможностей презентационной графики в программе PowerPoint 2007. Цели работы: получить навыки работы при создании фотоальбома средствами PowerPoint 2007.
Задание:
Создать в программе PowerPoint 2007 фотоальбом, используя файлы папки «Иллюстрации».
Порядок выполнения:
1. Создать пустую презентацию, ее имя Фотоальбом и имя создателя задастся автоматически при сохранении созданного фотоальбома.
2. На вкладке Вставка выбрать инструмент Фотоальбом.
3. В появившемся окне задать параметры будущего фотоальбома:
a. Щелкнув по активной кнопке Файл/Диск задать путь к файлам с фотографиями (в нашем случае – к папке Иллюстрации).
b. Выделить все файлы, которые хотите поместить в альбом и щелкнуть по кнопке Вставить.
c. Используя инструменты окна Фотоальбом, фотографии можно поменять местами, удалить, изменить контрастность и яркость.
2. Выберите из выпадающего списка предложений расположение фотографий на листе альбома, при необходимости вставьте текстовые фрагменты:
a. В нашем случае выберите вариант 2 рисунка и предложение Создать надпись после файла с автопортретом художника.
3. Пусть названия файлов станут подписями к нашим фотографиям:
a. Установите флажок рядом с предложением Подписи под всеми картинками.
4. Задайте обрамление для фотографий, выбрав понравившийся вариант из выпадающего списка предложений Рамки (в нашем случае – Прямоугольник с размытыми краями).
5. Включив кнопку Обзор рядом со строкой Тема, можно выбрать тему оформления презентации. (В нашем случае – Литейная).
6. На образце будет показан макет одной страницы альбома. Если вы согласны с созданным макетом, нажмите кнопку Создать.
Программа создаст фотоальбом по созданному вами макету.
9. Заполните текстовый блок данными о жизни художника, задайте анимацию и время смены слайдов:
a. Удобнее всего применить один эффект смены ко всем слайдам, а время смены задать автоматическое – 5 сек., и по щелчку мыши.
10. По желанию зациклите презентацию:
a. Показ слайдов – Настройка демонстрации – непрерывный цикл до нажатия клавиши Esc.
Нас интересует Потапова К.В. По табл.1 находим Id=34 Теперь в табл.2 ищем строки с этим 34: 1) Строка 2. ID_жильца=8, ID_соседа_этажа_сверху=34 Это понимается так, что Потапова К.В. живет сверху соседа с Id=7, сведения о котором берем из Табл.1 (Сокол П.К.) 2) Строка 3. ID_жильца=23, ID_соседа_этажа_сверху=34. Тот же случай, это сосед, также живущий снизу Потаповой К.В. По табл.1. устанавливаем, что это Сергеева К.В. 3) Строка 4. ID_жильца=34, ID_соседа_этажа_сверху=78. Это сосед сверху, Соловьев А.П. 4) Строка 5. ID_жильца=34, ID_соседа_этажа_сверху=1. Это тоже сосед сверху, Соловьева Н.Г.
Var A:longint; n,p:integer; B:byte; Begin Write('Введите натуральное число: '); ReadLn(A); n:=0; p:=0; While A > 0 do Begin B:=A mod 10; if B = 0 then n:=n+1; if B = 5 then p:=p+1; A:=A div 10; End; WriteLn('Количество нулей в числе: ',n); WriteLn('Количество пятёрок в числе: ',p); End.
Вариант второй:
Var A:string; n,p,i:integer; Begin Write('Введите натуральное число: ');ReadLn(A); n:=0; p:=0; For i:= 1 to Length(A) do if A[i] = '0' then n:=n+1 else if A[i] = '5' then p:=p+1; WriteLn('Количество нулей в числе: ',n); WriteLn('Количество пятёрок в числе: ',p); End.
Теперь в табл.2 ищем строки с этим 34:
1) Строка 2. ID_жильца=8, ID_соседа_этажа_сверху=34 Это понимается так, что Потапова К.В. живет сверху соседа с Id=7, сведения о котором берем из Табл.1 (Сокол П.К.)
2) Строка 3. ID_жильца=23, ID_соседа_этажа_сверху=34. Тот же случай, это сосед, также живущий снизу Потаповой К.В. По табл.1. устанавливаем, что это Сергеева К.В.
3) Строка 4. ID_жильца=34, ID_соседа_этажа_сверху=78. Это сосед сверху, Соловьев А.П.
4) Строка 5. ID_жильца=34, ID_соседа_этажа_сверху=1. Это тоже сосед сверху, Соловьева Н.Г.
Итак, расположение соседей:
Соловьев А.П., Соловьева Н.Г.
Потапова К.В.
Сергеева К.В., Сокол П.К.
Var
A:longint;
n,p:integer;
B:byte;
Begin
Write('Введите натуральное число: ');
ReadLn(A);
n:=0;
p:=0;
While A > 0 do
Begin
B:=A mod 10;
if B = 0 then n:=n+1;
if B = 5 then p:=p+1;
A:=A div 10;
End;
WriteLn('Количество нулей в числе: ',n);
WriteLn('Количество пятёрок в числе: ',p);
End.
Вариант второй:
Var
A:string;
n,p,i:integer;
Begin
Write('Введите натуральное число: ');ReadLn(A);
n:=0;
p:=0;
For i:= 1 to Length(A) do
if A[i] = '0' then n:=n+1
else if A[i] = '5' then p:=p+1;
WriteLn('Количество нулей в числе: ',n);
WriteLn('Количество пятёрок в числе: ',p);
End.