7. Лабораторные задания и методические указания по их выполнению

7.1. Изучение и использование в программе условного оператора if

1. Написать программу, используя условный оператор IF, для вычисления значений функции Y при заданном значении X.

Варианты заданий приведены в таблице 7.1.

Запись выражений выполнять в соответствии с правилами языка Turbo Pascal 7.0 и с использованием операций и стандартных функций, перечисленных в приложениях Б и В.

Таблица 7.1 – Варианты заданий

№	Заданная функция	№	Заданная функция
1	Результат округлить до ближайшего целого	6	Результат округлить до ближайшего целого
2	Результат округлить с отбрасыванием дробной части	7	Вывести целую часть полученного результата
3	Результат округлить до ближайшего целого	8	Результат округлить с отбрасыванием дробной части
4	Вывести целую часть полученного результата	9	Результат округлить до ближайшего целого
5	Результат округлить с отбрасыванием дробной части	10	Вывести целую часть полученного результата

2. Пример:

Дана функция вида:

Написать программу вычисления значения функции.

Результат округлить с отбрасыванием дробной части.

Примерный текст программы приведен ниже.

Program lab5_1;

var

x,z: integer;

y: real;

begin

writeln(‘Введите значение x’);

readln(x);

if (x>=0) and (x<=2) then y:=sqrt(x+1)

else if (x>2) and (x<=10) then y:=sqr(x)

else if (x>10) and (x<=12) then y:=9-x

else writeln(‘функция не определена’);

writeln(‘y= ’, y:2:3);

z:=trunc(y);

writeln(‘Результат без дробной части:’);

writeln(‘z= ’,z);

readln;

end.

Результаты выполнения программы:

x = 1, y = 1.732, z=1

x = 5, y = 25.000, z=25

x = 11, y = -2.000, z=-2

x = 15, функция не определена, y = 0.000, z=0

7.2. Изучение и использование в программе оператора выбора case

1. Написать программу согласно заданию, использующую оператор выбора CASE.

Варианты заданий приведены в таблице 7.2.

Таблица 7.2 – Варианты заданий

№	Задание
1	По введенному номеру месяца напечатать количество дней в нем
2	По введенному номеру месяца напечатать время года
3	По введенному номеру дня напечатать порядковый номер недели в месяце
4	По введенному номеру месяца напечатать следующий месяц
5	По введенному номеру месяца напечатать предыдущий месяц
6	По введенному номеру дня недели напечатать порядковый номер следующего дня недели
7	По введенному номеру дня недели напечатать порядковый номер предыдущего дня недели
8	По введенному номеру месяца напечатать сколько месяцев осталось до конца года
9	По введенному номеру месяца напечатать номер квартала
10	По введенному номеру месяца напечатать номер полугодия

2. Пример:

По введенному номеру дня недели вывести на экран соответствующий ему день недели на русском языке

Примерный текст программы приведен ниже.

Program lab5_2;

Var

n:integer;

Begin

Writeln(‘Введите номер дня недели’);

Readln(n);

Case n of

1: writeln(‘понедельник’);

2: writeln(‘вторник’);

3: writeln(‘cреда’);

4: writeln(‘черверг’);

5: writeln(‘пятница’);

6: writeln(‘суббота’);

7: writeln(‘воскресенье’);

Else writeln (‘Уточните номер’);

End;

Readln;

End.

Результаты выполнения программы:

1 Понедельник

13 Уточните номер

8. СОДЕРЖАНИЕ ОТЧЕТА ПО ЛАБОРАТОРНОЙ РАБОТЕ

8.1. Результаты выполнения подготовительного задания: титульный лист, цель и задачи работы, краткие теоретические сведения.

8.2. Результаты выполнения лабораторных заданий, оформленные в виде листинга программы с указанием результата ее выполнения.

8.3. Выводы по результатам выполнения заданий и заключение по работе в целом.