Министерство образования Российской Федерации

ГОУ Уральский государственный технический университет – УПИ

Программирование на языке Паскаль

Лабораторный практикум

по курсу «Информатика» для студентов первых курсов машиностроительных специальностей очных форм обучения

24 с (18) - 1,3 уч.-изд. л.

1,45 усл. печ. л.

УДК 004432.2 (076)

Составитель: А.С. Партин

научный редактор – проф., д-р техн. наук Р.А. Вайсбурд

Программирование на языке Паскаль: Лабораторный практикум / А.С. Партин. Екатеринбург: ГОУ УГТУ-УПИ, 2002. 24 с.

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

Библиогр.: 10 назв. Табл. __. Рис. __.

Подготовлено кафедрой прикладной геометрии и автоматизации проектирования.

_© ГОУ Уральский государственный технический университет – УПИ, 2002

Содержание

Оформление лабораторных работ 5

1.1. Линейный алгоритм 5

Постановка задачи 5

Математическая модель 5

Описание алгоритма 5

Текст программы 6

Тест 6

1.2. Условный алгоритм 6

Постановка задачи 6

Математическая модель 6

Описание алгоритма 7

Текст программы 7

Тест 8

1.3. Экранные меню и циклы 8

Постановка задачи 8

Математическая модель 9

Описание алгоритма 9

Текст программы 10

Тест 12

1.4. Процедуры и функции 13

Постановка задачи 13

Математическая модель 14

Описание алгоритма 15

Текст программы 17

Тест 19

1.5. Работа с файлами и алгоритмы сортировки 20

Постановка задачи 20

Математическая модель 22

Описание алгоритма 22

Текст программы 24

Тест 28

1.6. Визуальное программирование 30

Постановка задачи 30

Математическая модель 31

Основная форма программы 32

Текст программы 33

Библиографический список 36

Оформление лабораторных работ

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

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

При выполнении тестов составляется таблица примеров, в которой подбираются наборы данных, подходящие для наиболее полного тестирования работы программы и позволяющие заранее оценить результат.

1. Линейный алгоритм

Постановка задачи

По двум сторонам вычислить площадь прямоугольника.

Математическая модель

Описание алгоритма

Алгоритм Lab1.

А. Начать исполнение.

1. Вывести на экран сообщение "Введите стороны прямоугольника".

2. Ввести a, b.

3. Вывести сообщение "Площадь равна", ab;

Б. Закончить исполнение.

Текст программы

program Lab1;

{$APPTYPE CONSOLE}

uses SysUtils;

var a,b:Real;

begin

Write('Введите стороны прямоугольника: ');

ReadLn(a,b);

WriteLn('Площадь равна ',a*b);

ReadLn; { Задержка для консольных приложений }

end.

Тест

a	b	Расчетная площадь	Результат выполнения программы
2	3	6	…
7	12	84	…
…	…	…	…

2. Условный алгоритм

Постановка задачи

Рассчитать площадь треугольника по трем сторонам с проверкой корректности ввода и возможности вычисления (выдать сообщение "Некорректный ввод" при вводе отрицательных или нулевых значений и сообщение "Вычисление невозможно", если сумма двух сторон треугольника меньше или равна третьей).

Математическая модель

Площадь треугольника по трем сторонам можно рассчитать по формуле Герона: , где p – полупериметр, .

Описание алгоритма

Алгоритм Lab2.

А. Начать исполнение.

1. Вывести сообщение "Введите стороны треугольника".

2. Ввести a, b, c.

3. Если a≤0, или b≤0, или с≤0,

А. то вывести сообщение "Некорректный ввод".

Б. иначе:

1. Если a+b≤c, или a+c≤b, или b+c≤a,

А. то вывести сообщение "Некорректный ввод".

Б. иначе:

1. Рассчитать полупериметр .

2. Вывести сообщение "Площадь треугольника равна", .

Б. Закончить исполнение.