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

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

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

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

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

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

УДК 004432.2 (076)

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

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

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

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

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

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

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

Содержание

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

Лабораторная работа №1. Линейный алгоритм.. 5

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

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

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

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

Тест. 6

Лабораторная работа №2. Условный алгоритм.. 6

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

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

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

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

Тест. 8

Лабораторная работа №3. Экранные меню и циклы.. 8

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

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

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

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

Тест. 12

Лабораторная работа №4. Процедуры и функции. 13

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

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

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

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

Тест. 19

Лабораторная работа №5. Работа с файлами и алгоритмы сортировки. 20

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

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

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

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

Тест. 28

Лабораторная работа №6. Визуальное программирование. 31

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

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

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

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

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

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

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

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

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

Лабораторная работа №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. Условный алгоритм

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

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

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

Площадь треугольника по трем сторонам можно рассчитать по формуле Герона: , где 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. Вывести сообщение "Площадь треугольника равна", .

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

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

program Lab2;

{$APPTYPE CONSOLE}

uses SysUtils;

var

a,b,c,p:Real;

begin

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

ReadLn(a,b,c);

if (a<=0) or (b<=0) or (c<=0) then

WriteLn('Некорректный ввод')

else

if (a+b<=c) or (a+c<=b) or (b+c<=a) then

WriteLn('Вычисление невозможно')

else

begin

p:=(a+b+c)/2;

WriteLn('Площадь треугольника равна ',
Sqrt(p*(p-a)*(p-b)*(p-c)));

end;

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

end.

Тест

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

	a	b	c	Расчетная площадь	Результат работы программы
					…
				…
				…
					…
				…
					…
				…
	…	…	…	…	…