2.2. Практика

Задание 1

Скопируйте в Ваш каталог файлы lab4_1a.pas, lab4_2a.pas, lab4_3a.pas, lab4_4a.pas из каталога PAS_TXT. Запустите среду Turbo Pascal.

Задание 2

Загрузите файл lab4_1a.pas. Прочитайте и проанализируйте текст программы. Запустите программу на выполнение и проверьте ее работу для различных данных. Для каких данных программа выдает некорректный результат? Модифицируйте программу таким образом, чтобы она в случае ввода одинаковых чисел выдавала сообщение: “Числа равны!”

Покажите результат преподавателю.

Задание 3

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

Задание 4

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

2. Протестируйте эту программу (проверьте корректность ее работы в разных случаях). Сколько наборов входных данных нужно проверить? Запишите их в тетрадь.

3. Продемонстрируйте программу преподавателю.

4. Загрузите во второе окно файл lab4_2a.pas.

В данной программе реализован оптимальный, на наш взгляд, алгоритм нахождения максимального числа. Сравните этот алгоритм со своим. Попробуйте оценить, какой из алгоритмов является оптимальным. (Оптимальным мы считаем тот алгоритм, который позволяет либо сократить время выполнения программы за счет уменьшения количества выполняемых команд, либо уменьшить объем памяти за счет уменьшения количества переменных.)

Задание 5

1. Загрузите файл lab4_3a.pas.

2. Прочитайте и проанализируйте текст программы. Обратите внимание на составные условия.

3. Модифицируйте эту программу так, чтобы в том случае, когда введены значения сторон (такие, что из них можно построить треугольник, помимо выдачи текста “можно”), еще подсчитывался периметр треугольника.

Контрольное задание

Вариант 1

Составьте программу, которая умеет решать квадратные уравнения (по заданным коэффициентам уравнения А, В, С находит корни уравнения. Рассматриваются различные случаи: нет корней, есть один корень, два различных корня).

Вариант 2

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

а) круг в квадрат;

б) квадрат в круг?

Результаты вывести на экран.

Вариант 3

Составьте программу, которая умеет решать линейные уравнения (уравнения вида Ах+В=0). Рассматриваются различные случаи: нет решений, решением является любое х, единственное решение (вычисляет его).

3. Оператор выбора case

3.1. Теория

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

case S of

c1:<оператор 1>;

c2:<оператор 2>;

...

cN:<оператор N>

else

<оператор N+1>

end;

В этой структуре S - некоторое выражение, значением которого является либо целое число, либо символ⁸;

оператор 1, оператор 2, ... оператор N - операторы, из которых выполняется тот, с константой которого (с1..сN) совпадает значение выражения S;

оператор N+1 - оператор, который выполняется, если значение выражения S не совпадает ни с одной из констант c1, ... ,cN.

Ветвь оператора else является необязательной⁹.

• Обратите внимание, что и здесь перед else точка с запятой не ставится!