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

Дата добавления: 2014-11-28; просмотров: 887; Нарушение авторских прав

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

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

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

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

№	Заданная функция	№	Заданная функция
	Результат округлить до ближайшего целого		Результат округлить до ближайшего целого
	Результат округлить с отбрасыванием дробной части		Вывести целую часть полученного результата
	Результат округлить до ближайшего целого		Результат округлить с отбрасыванием дробной части
	Вывести целую часть полученного результата		Результат округлить до ближайшего целого
	Результат округлить с отбрасыванием дробной части		Вывести целую часть полученного результата

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

<== предыдущая лекция	\|	следующая лекция ==>
Условный оператор IF (если)	\|	Изучение и использование в программе оператора выбора CASE