Darwin_Beagle_Presentation

1.

import collections
import collections.abc
from pptx import Presentation
from pptx.util import Inches, Pt
from pptx.enum.text import PP_ALIGN
def create_presentation():
prs = Presentation()
def add_slide(title_text, content_text):
slide_layout = prs.slide_layouts[1]
slide = prs.slides.add_slide(slide_layout)
title = slide.shapes.title
content = slide.placeholders[1]
title.text = title_text
content.text = content_text
# Стиль заголовка
title_para = title.text_frame.paragraphs[0]
title_para.font.bold = True
title_para.font.size = Pt(32)
# Стиль текста
for paragraph in content.text_frame.paragraphs:
paragraph.font.size = Pt(18)
# Слайд 1: Титульный
title_slide_layout = prs.slide_layouts[0]
slide = prs.slides.add_slide(title_slide_layout)
title = slide.shapes.title
subtitle = slide.placeholders[1]
title.text = "Кругосветное путешествие на «Бигле»"
subtitle.text = "Геология, палеонтология и биогеография как источник
дарвиновской идеи\nПодготовил: [Ваше Имя]"
# Слайд 2: Начало пути
add_slide("Экспедиция Чарльза Дарвина (1831–1836)",
"• Корабль: HMS Beagle («Ищейка»).\n"
"• Цель: Картографирование берегов Южной Америки.\n"
"• Роль Дарвина: Натуралист и компаньон капитана Роберта Фицроя.\
n"
"• Продолжительность: Почти 5 лет вместо планируемых двух.")
# Слайд 3: Геология и идеи Лайеля
add_slide("Геология: Земля в движении",
"• Дарвин читал «Основы геологии» Ч. Лайеля во время плавания.\n"
"• Наблюдения: Находка раковин морских моллюсков высоко в Андах.\
n"
"• Вывод: Поверхность Земли меняется медленно, но постоянно в
течение миллионов лет.\n"
"• Значение: Если Земля так стара, у жизни было достаточно времени
для эволюции.")
# Слайд 4: Палеонтология: Гиганты прошлого
add_slide("Палеонтология: Связь времен",
"• Находки в Аргентине: Окаменелости мегатерия (гигантский
ленивец) и глиптодонта (гигантский броненосец).\n"
"• Наблюдение: Вымершие гиганты очень похожи на современные виды,
обитающие в тех же местах.\n"
"• Идея: Виды не неизменны; существует преемственность между
вымершими и ныне живущими формами.")
# Слайд 5: Биогеография: Галапагосский архипелаг

2.

add_slide("Биогеография: Острова как лаборатории",
"• Главное открытие: На каждом острове обитают свои виды черепах и
вьюрков.\n"
"• Наблюдение: Птицы различаются формой клюва в зависимости от
типа пищи.\n"
"• Вывод: Виды адаптируются к конкретным условиям среды.
Происходит дивергенция (расхождение признаков).")
# Слайд 6: Формирование дарвиновской идеи
add_slide("Как наблюдения стали теорией",
"Три кита эволюционной идеи Дарвина:\n"
"1. Изменчивость (геологическое время дает шанс на изменения).\n"
"2. Наследственность (палеонтология показала связь поколений).\n"
"3. Естественный отбор (биогеография показала механизм выживания
наиболее приспособленных).")
# Слайд 7: Итоги путешествия
add_slide("Научный переворот",
"• Путешествие превратило Дарвина из коллекционера в глубокого
теоретика.\n"
"• Собрано: 1529 видов в спирту, 3907 сухих образцов.\n"
"• Результат: Спустя 20 лет после плавания была опубликована
работа «Происхождение видов путем естественного отбора».")
# Слайд 8: Заключение
add_slide("Заключение",
"Путешествие на «Бигле» доказало, что живая природа имеет свою
историю.\n"
"Геология дала время, палеонтология — доказательства изменений, а
биогеография — механизм этих изменений.\n\nСпасибо за внимание!")
file_path = "Darwin_Beagle_Presentation.pptx"
prs.save(file_path)
return file_path
create_presentation()