Смоленский техникум электронных приборов

Сборник лабораторных работ

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

«Основы алгоритмизации и программирования»

Раздел «Интегрированная среда TurboPascal»

Разработала Якуненкова И.А.

Смоленск

2007

Содержание

Правила оформления отчета по лабораторным работам 3

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

Интегрированная среда TurboPascal. Составление линейных программ 4

Лабораторная работа № 2 5

Составление программ со структурой ветвления 5

Лабораторная работа № 3 10

Составление циклических программ 10

Лабораторная работа №4 13

Программы обработки одномерных массивов 13

Лабораторная работа №5 18

Программы обработки двумерных массивов 18

Лабораторная работа №6 23

Использование процедур и функций 23

Лабораторная работа № 7 27

Работа с множественными типами данных 27

Лабораторная работа № 8 30

Работа со строковыми переменными 30

Лабораторная работа № 9 33

Составление программ с записями 33

Лабораторная работа №10 38

Создание файлов 38

Лабораторная работа №11 43

Создание мелодий. Цвет. Графика. 43

Лабораторная работа № 12 46

Составление прикладных программ. Обработка статистических данных. 46

Правила оформления отчета по лабораторным работам

«Основы алгоритмизации и программирования»

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

(Название)

Выполнил:_________________

Принял:_________________

Ход работы

Цель:______________________________________________________________________________________________________________________________________

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

Блок-схема алгоритма:

Программа:

Протокол работы:

Вопросы для защиты:

Лабораторная работа № 1 Интегрированная среда TurboPascal. Составление линейных программ

Цель:

- изучить правила создания, открытия и сохранения файлов, порядок работы с командами меню и инструментами;

- научиться описывать данные различных типов;

- составлять программы линейной структуры

1. Запишите по правилам алгоритмического языка выражения:

1)		6)
2)		7)
3)		8)
4)		9)
5)		10)

Контрольные вопросы:

1. Структура меню интегрированной среды TurboPascal.

2. Перечислить типы данных, которыми может оперировать пользователь при работе с интегрированной средой TurboPascal.

3. Каким образом можно выполнить создание, открытие, сохранение файлов в среде TurboPascal.

4. Структура программы Паскаль

5. Как записываются логические и арифметические выражения?

6. Приведите примеры стандартных функций, правила их записи

Лабораторная работа № 2 Составление программ со структурой ветвления

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

ВАРИАНТЫ ЗАДАНИЙ:

ВАРИАНТ 1

Определить большее из трех чисел А, В, С.

ВАРИАНТ 2

Ввести координаты точки и определить в какой четверти координатной плоскости она расположена

ВАРИАНТ 3

Определить поместится ли круг радиусом R в квадрате со стороной А.

ВАРИАНТ 4

Определить поместится ли квадрат со стороной А в круге радиусом R.

ВАРИАНТ 5

Ввести координаты точки и определить принадлежат ли она кругу радиусом R с центром в начале координат

ВАРИАНТ 6

Решите неравенство A*X²+B*X+С<0

ВАРИАНТ 7

Составьте программу для решения квадратного уравнения A*Х²+В*X+C=0.

ВАРИАНТ 8

Найти корни уравнения А*Х²=В.

ВАРИАНТ 9

Найти корни уравнения А*Х³+В*Х=0.

ВАРИАНТ 10

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

ВАРИАНТ 11

В продаже книг принимает участие ЭВМ. Составить программу, которая запрашивает стоимость книги, сумму денег, внесенную покупателем; определяется сдача (если денег внесено больше), печатается "СПАСИБО" (если сдачи не требуется) или выдается сообщение о недостаточности внесенной суммы.

ВАРИАНТ 12.

В ЭВМ поступают результаты соревнований по плаванию для трех спортсме­нов. Вывести лучший результат.

ВАРИАНТ 13.

Составить программу, которая выводит словесное описание оценок 5, 4, 3.

ВАРИАНТ 14.

Вычислить значение функции:

У=Х²+А, если Х>=0, А<0;

У=Х-А, если Х<0, А>0;

У=Х*А, в остальных случаях.

ВАРИАНТ 15.

Точка задана координатами X, У. Определить, принадлежит ли эта точка фи­гуре на плоскости.

ВАРИАНТ 16.

Пассажирский самолет может поднять груз общей массой 30 тонн. Составить программу для определения массы почтового груза после посадки пассажи­ров. Средний вес одного пассажира 55 кг. Предусмотреть ввод числа пассажи­ров.

ВАРИАНТ 17.

Вводятся три числа A,B,C. Вывести меньшее из них

ВАРИАНТ 18.

Вычислить значение функции:

У=7*Х, если -10<=Х<=10;

У=Х+5; в остальных случаях.

ВАРИАНТ 19.

Вычислить значение функции, заданной графиком.

ВАРИАНТ 20.

Вводятся три числа А, В, С (причем А<=В<=С). Интерпретируя числа А, В, С как длины сторон треугольника определить можно ли построить треугольник (следует проверить условие С>А + В).

ВАРИАНТ 21.

Ввести координаты точки и определить, принадлежит ли она фигуре на плос­кости.

ВАРИАНТ 22.

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

ВАРИАНТ 23.

Вычислить значение функции:

Y=X-Z, если Х >=1,Z<0;

Y= 2, если Х>=1,Z >=0;

Y=Z+1, если Х<1,Z<0;

Y= -2, если Х<1,Z>=0.

ВАРИАНТ 24.

Составить программу, определяющую число корней уравнения Х²=А в за­висимости от А.

ВАРИАНТ 25.

Составить программу, которая по номеру дня недели выдает соответствую­щее количество уроков в вашей группе.

ВАРИАНТ 26.

Ввести значение сторон треугольника. Проверить, является ли треугольник равносторонним.

ВАРИАНТ 27.

Поместится ли окружность радиуса R в треугольнике со сторонами А, В, С. радиус, вписанной в треугольник окружности вычисляется по формуле: R=SQRT((P-A)*(P-B)*(P-C))/P, где Р=(А+В+С)/2.

ВАРИАНТ 28.

Ввести координаты двух точек. Выяснить, принадлежат ли точки одной координатной плоскости.

ВАРИАНТ 29.

Ввести координаты точки и определить, лежит она выше или ниже прямой, за­данной уравнением У=3*Х+2.

ВАРИАНТ 30.

Два треугольника заданы сторонами А1, В1, С1, А2, В2, С2 соответственно. Проверить равенство треугольников (по трем сторонам).

ВАРИАНТ 31.

Ввести координаты точки и проверить, лежит ли она на прямой, заданной уравнением: У=5*Х-3.

ВАРИАНТ 32.

Ввести действительные числа А, В, С, Д. Если А<В<С<Д, то каждое число заменяется наибольшим из них. Противном случае все числа остаются без изме­нения.

ВАРИАНТ 33.

Найти полярные координаты R, F точки на плоскости по ее прямоугольным координатам X, Y (R=SQRT(X^{^}2+Y^{^}2)). F=ATN(X/Y), если Х>0, У>=0 F=2*PI+ATN(X/Y), если Х>0, У<0 F=PI+ATN(X/Y), если Х<0 F=PI/26, если Х=0, У>=0 F=3*PI/2, если Х=0, У<0.

ВАРИАНТ 34.

Ввести два действительных числа и вывести те из них, которые принадлежат отрезку [1,31].

ВАРИАНТ 35.

Составить программу для ввода действительных чисел А, В, С. Удвоить эти числа, если А<В<С, и заменить их абсолютными значениями, если это не так.

Контрольные вопросы

1. Задайте с помощью команд если или выбор вычисления по формулам:

a)
б)
в)	где
г)
д)
е)
ж)		если точка лежит внутри круга радиусом r (r>0) с центром в точке (a,b)  в противном случае

2.Условный оператор if – then – else

3. Использование краткой формы условного оператора if в программе.

4. Конструкция оператора выбора case.