Пример программы разветвленной структуры

 

Задача.

 

1. Вычислить значение функции:

y=

 

Значение аргумента х в градусах ввести с клавиатуры.

 

2. Таблица идентификаторов

№	Наименование переменной	Обозначения в программе
	Функция	y
	Аргумент	x

 

3. Листинг программы.

 

program lab2;

uses

crt;

var

x, y: real;

begin

clrscr;

writeln (’Введите x’);

readln (x);

if x>90 then writeln(’функция не определена’)

else

{составной оператор}

begin

if x<0 then y: = 0

else y: = sin (x*pi/180);

writeln (’y = ’,y:8:3);

end;

readln;

end.

 

Вопросы для самоконтроля

1. Какие алгоритмические конструкции называются ветвлениями?
2. Для чего используют оператор goto?
3. Почему при использовании нескольких условий в одном операторе if … then … else, каждое условие заключается в круглые скобки?
4. Перечислите основные логические операции.
5. Перечислите основные операции отношения.
6. В каких случаях прибегают к использованию оператора case … of ?