- •Кафедра програмного забезпечення комп'ютерних систем
- •7.080401 Інформаційні управляючі системи і технології
- •Введение
- •Тестируйте программу после каждого внесения изменений.
- •Создание программы
- •Теоретические сведения
- •1. Условие задачи:
- •9. Для защиты лабораторной работы:
- •Задания к лабораторной работе № 1
- •Освоение технологии структурного программирования при разработке и создании программы на языке Турбо Паскаль для линейного вычислительного процесса
Освоение технологии структурного программирования при разработке и создании программы на языке Турбо Паскаль для линейного вычислительного процесса
по дисциплине
“Основы программирования и алгоритмические языки”
ВЫПОЛНИЛ:
студент группы КС-06-1
Иванов И.И.
ПРОВЕРИЛ:
ассистент кафедры ПЗКС
Шевцова О.С.
Днепропетровск
2006
1. Условие задачи:
Период колебания маятника длиной L вычисляется по формуле: , где g-ускорение свободного падения (9.81м/с2). Найти период колебаний маятника.
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