Министерство образования и науки, молодежи и спорта Украины

Национальный горный университет

Институт электроэнергетики

Факультет информационных технологий

Кафедра ПЗКС

Лабораторная работа № 1

Освоение технологии структурного программирования

при разработке и создании программы на языке Турбо Паскаль

для линейного вычислительного процесса

по дисциплине

“Основы программирования и алгоритмические языки”

ВЫПОЛНИЛ:

студент группы КНит-12-1

Иванов И.И.

ПРОВЕРИЛ:

ассистент кафедры ПЗКС

Шевцова О.С.

Днепропетровск

2012

1. Условие задачи:

1. Период колебания маятника длиной L вычисляется по формуле:, где g-ускорение свободного падения (9.81м/с²). Найти период колебаний маятника.

2. Решение задачи в её предметной области:

3. Псевдокод алгоритма программы

Вывести на экран приглашение для ввода l

Ввести l

Выполнить вычисления по формуле

Вывести результат – t

4. Текст программы с подробными комментариями и отступами:

Program Period;

Uses Crt; { Подключение стандартного модуля работы с экраном }

Const

g = 9.81; { ускорение свободного падения }

Var

t, { период колебания маятника }

l : Real; { длина маятника }

BEGIN

ClrScr; { Очистка экрана }

Write('Vvedite l = '); { Приглашение к вводу}

ReadLn(l); { Ввод с клавиатуры длины маятника}

t := 2*pi*sqrt(l/g); { Вычисление периода колебаний маятника}

WriteLn('t = ', t); { Вывод результата на экран}

ReadLn { Задержка экрана результатов}

END.

5. Результат работы программы (рис. 1)

6. Исследование и тестирование программы (рис. 2)

Тестовый пример для нашей задачи:

При l= 4.0

23