Начнём с того, чтобы создавать презентацию в MSPowerPoint, необходимо создать слайды во вкладке "Главное" где в левом верхнем углу будет окошко создания слайда, где можно также выбрать шаблон желаемого слайда (титульный),Далее создав определённое количество слайдов мы можем приступить к работе с ними (Программа PowerPoint Обладает широкимфункционалом визуальных функций, чтобы привлекать внимание зрителя), мы можем вставить: звук,картинки,диаграммы,таблицы,видеоклипы и т.д.( и впоследствии настраивать их:воспроизведение,отображение)Можно настроит задний фон для слайдов(можно выбрать из списка шаблонов), и их анимацию для каждого по отдельности(это придаст интереса при просмотре)
function check_is(a, b, c: integer): boolean; begin if a >= b + c then check_is := false else if b >= a + c then check_is := false else if c >= a + b then check_is := false else check_is := true; end; procedure check_how(a, b, c: integer);begin if ((a = b) and (b = c) and (a = c)) then writeln('равносторонний') else if ((a = b) or (b = c) or (a = c)) then writeln('равнобедренный') else writeln('разносторонний'); end;
begin writeln('Введите стороны треугольника'); read(a, b, c); if check_is(a, b, c) then check_how(a, b, c) else writeln('Нет такого треугольника!'); end.
With ActiveSheet.Range("D5")
.Borders(xlEdgeLeft).Weight = xlThin
.Borders(xlEdgeTop).Weight = xlThin
.Borders(xlEdgeBottom).Weight = xlThin
.Borders(xlEdgeRight).Weight = xlThin
End With