Контрольные вопросы: 1 Что такое компьютерная презентация? 2 С каким расширением по умолчанию сохраняется презентации в MS Power Point 2007? 3 Что такое слайд? Из чего он состоит? 4 Каким образом можно создать новую презентацию? 5 Что такое шаблон презентации? 6 Что такое тема оформления? 7 Как добавить новый слайд в презентацию? 8 Как удалить слайд? 9 Как изменить порядок слайдов в презентации? 10 Как изменить фон и цвета на слайде? 11 Как изменить разметку слайда? 12 Какие существуют режимы просмотра презентации? 13 Как включить режим полноэкранного просмотра презентации? 14 Как добавить на слайд картинку? 15 Что такое рисунки Smart Art? 16 Как добавить на слайд диаграмму? 17 Как добавить на слайд таблицу? 18 Как добавить на слайд текстовую надпись? 19 Как изменить шрифт для текста на слайде? 20 Для чего нужен режим «Сортировщик слайдов»? 21 Как настроить анимацию объектов на слайде? 22 Как установить анимацию для смены слайдов при демонстрации презентации? 23 Что такое репетиция просмотра презентации? 24 С какого слайда может начинаться показ презентации? 25 Как создаются управляющие кнопки? Для чего их можно использовать?

1. "Школьное" решение

// PascalABC.NET 3.0, сборка 1073
const
  sb='bcdfgjklmnpqrstvwxz';
  s='Computer programming is a process of computer programs creation';
var
  i,n:integer;
  s1,sn,t:string;
begin
  i:=1;
  while s[i]<>' ' do Inc(i);
  s1:=Copy(s,1,i-1);
  n:=Length(s); i:=n;
  while s[i]<>' ' do Dec(i);
  sn:=Copy(s,i+1,n-i);
  t:='';
  for i:=1 to Length(s1) do
    if Pos(s1[i],sb)>0 then t:=t+s1[i];
  s1:=t;
  t:='';
  for i:=1 to Length(sn) do
    if Pos(sn[i],sb)>0 then t:=t+sn[i];
  sn:=t;
  t:='';
  for i:=1 to Length(s1) do
    if Pos(s1[i],sn)>0 then
      if Pos(s1[i],t)=0 then t:=t+s1[i];
  for i:=1 to Length(t) do Write(t[i],' ');
  Writeln
end.
 
Тестовый прогон:
t r

2. "Нормальное" решение

// PascalABC.NET 3.0, сборка 1073
const
  sb='bcdfgjklmnpqrstvwxz';
  s='Computer programming is a process of computer programs creation';
begin
  var a:=s.ToWords(' ');
  a[0].Intersect(a[a.Length-1]).Where(x->Pos(x,sb)>0).Println(',')
end.

Тестовый прогон:
t,r

Свойства информации

С точки зрения информатики наиболее важными представляются следующие общие качественные свойства: достоверность, полнота, точность, актуальность, полезность, ценность, своевременность, понятность, доступность, краткость и пр.

Объективность информации. Информация в любом своём проявлении объективна, она отображает объективную действительность. Например фраза "На улице тёплая погода" означает, что человек её произнесший считает погоду на улице тёплой, т.е. информацией в данном случае будет являться то, что определённый человек произнёс фразу следующего содержания.

Достоверность информации. Информация достоверна, если она отражает истинное положение дел. Достоверная информация принять нам правильное решение. Недостоверной информация может быть по следующим причинам:

преднамеренное искажение (дезинформация) или непреднамеренное искажение субъективного свойства;

искажение в результате воздействия помех («испорченный телефон») и недостаточно точных средств ее фиксации.

Полнота информации. Информацию можно назвать полной, если ее достаточно для понимания и принятия решений. Неполная информация может привести к ошибочному выводу или решению.

Точность информации определяется степенью ее близости к реальному состоянию объекта, процесса, явления и т. п.

Актуальность информации — важность для настоящего времени, злободневность, насущность. Только вовремя полученная информация может быть полезна.

Полезность (ценность) информации. Полезность может быть оценена применительно к нуждам конкретных ее потребителей и оценивается по тем задачам, которые можно решить с ее