Лабораторная работа №3Команды ветвления и выбора на языке Турбопаскаль

Цель работы: Ознакомиться с командами ветвления и выбора, научиться составлять программы с использованием этих команд на языке Паскаль.

Замечание: перед работой должна быть выполнена контролирующая программа по теме "Команда ветвления".

Задание 1

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

1. По номеру месяца определить количество дней в нем (в невисокосном году).

2. По номеру месяца определить время года.

3. По номеру дня недели определить количество занятий.

4. По числу лет определить является ли человек школьником, пенсионером и т.п.

5. По номеру класса определить в начальной школе, среднем звене или в старших классах обучается ученик.

6. По трехзначному номеру группы определить, на каком курсе учится студент.

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

Задание 2

Исправьте программу из задания 1, чтобы для решения задачи использовалась команда выбора.

Задание 3

Составьте программу, которая определяет, принадлежит ли точка с координатами (x, y) одной из указанных областей.

Задание 4

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

1. Определить, существует ли треугольник с заданными сторонами a, b, c. Отдельно указать случай, когда треугольник является вырожденным.

2. По заданным длинам сторон определить вид треугольника (равносторонний, равнобедренный, общего вида).

3. По заданным длинам сторон определить вид треугольника (тупоугольный, остроугольный, прямоугольный).

4. Два угла заданы в градусах, минутах, секундах. Определить их разность в градусах, минутах, секундах.

5. По координатам трех точек на плоскости (в пространстве) определить, лежат ли они на одной прямой.

6. Определить вид треугольника по трем углам (остроугольный, прямоугольный, тупоугольный, вырожденный, не существует).

7. Определить количество решений у системы двух линейных уравнений с двумя переменными.

8. Можно ли вписать круг в заданную равнобедренную трапецию, если известны длины оснований и высота?

Задание 5

Составьте программу для решения одного из уравнений или неравенств:

AX^2+BX+C=0 (А<>0); AX+В>0; AX+В<0; AX^2+B=0;

AX^2+BX=0; AX^2 <= B; AX^3+BX=0; AX^3+BX^2=0.

Лабораторная работа №4Команды ветвления и повторения на языке Паскаль

Цель работы: Повторить правила синтаксиса команд ветвления и выбора. Ознакомиться с видами команды повторения, научиться составлять программы с использованием этих команд на языке Паскаль.

Замечание: перед работой должна быть выполнена контролирующая программа по теме "Команда повторения с параметром (FOR)".

Задание 1

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

1. Для данного натурального числа проверить, делится ли оно на числа: 2, 3, 5, 6, 9.

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

3. Пройдет ли кирпич со сторонами а, b и с сквозь прямоугольное отверстие со сторонами r и s? Стороны отверстия должны быть параллельны граням кирпича.

4. Может ли шар радиуса r пройти через ромбообразное отверстие с диагоналями p и q?

5. Можно ли коробку размером abc упаковать в посылку размером rst? «Углом» укладывать нельзя.

6. Можно ли на прямоугольном участке застройки размером ab разместить два дома размерами pq и rs метров? Дома можно располагать только параллельно сторонам участка.