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

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

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

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

Запись выражений выполнять в соответствии с правилами языка TP 7.0 и с использованием операций и стандартных функций.

2. Пример:

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

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

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

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

Program lab_1_1;

var

x,y: real;

z: integer;

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.

Таблица 6.1

Варианты заданий

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

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

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

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

Таблица 6.2

Варианты заданий

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

2. Пример:

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

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

Program lab_1_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.

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

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

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

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