Разработать алгоритм и составить программу вычисления значения выражения 
. Вывести исходные данные и результат с пояснительным текстом.
Program Primer1;
var
x, y: real;
begin
write('Введите значение переменной Х ');
readln(x);
y:=exp(2*x))/sin(sqrt(abs(sqr(x)–1));
writeln('Значение выражения');
writeln('y=exp(2*x))/sin(sqrt(abs(sqr(x)–1))');
writeln('равно ', y:8:4);
end.
Рис. 4 – Cхема алгоритма работы программы
Контрольные вопросы
1. Как пользоваться меню среды Turbo Pascal?
2. Что отображается в окне редактора среды Turbo Pascal?
3. Какие основные функции меню среды Turbo Pascal?
4. Как сохранить программу на диске?
5. Что такое компиляция программы?
6. Как запустить программу на выполнение?
7. Что такое синтаксическая ошибка программы?
8. Как находить синтаксические ошибки программы?
9. Как объявляются переменные в языке Turbo Pascal?
10. Какие основные типы данных в языке Turbo Pascal?
11. Как группируются команды?
12. Как пользоваться комментариями?
13. Как ввести данные с клавиатуры?
14. Как вывести данные на экран?
15. Что такое присваивание?
Лабораторная работа № 2.
Программирование алгоритмов разветвленной структуры
Цель работы: изучение составного оператора, оператора условия, оператора выбора, оператора безусловного перехода и составление программ с разветвленной структурой на языке Turbo Pascal.
Теоретические сведения
Программы с разветвленной структурой используется, когда в алгоритме решения задачи предусмотрены альтернативные пути ее решения, т.е. из нескольких альтернатив выбирается одна, в зависимости от условия (условием является логическое выражение).
Составной оператор
Составной оператор – это последовательность произвольных операторов программы, заключенная в операторные скобки – зарезервированные слова begin … end. При этом после end ставится точка с запятой (;). Язык Turbo Pascal не накладывает никаких ограничений на характер операторов входящих в составной оператор. Среди них могут быть и другие составные операторы.
begin
………..
begin
………..
end;
………..
end;
Pascal допускает произвольную глубину их вложения.
Условный оператор
Условный оператор позволяет проверить некоторое условие и в зависимости от результатов проверки выполнить то или иное действие. Таким образом, условный оператор – это средство ветвления вычислительного процесса. Структура условного оператора имеет следующий вид:
if <условие> then <оператор_1> else <оператор_2>;
где if, then, else – зарезервированные слова (если, то, иначе);
<условие> – произвольное выражение логического типа;
<оператор_1>, <оператор_2>– любые операторы языка Turbo Pascal.
Условный оператор работает по следующему алгоритму. Вначале вычисляется условное выражение <условие>. Если результат есть true (истина), то выполняется <оператор_1>, а <оператор_2> пропускается; если результат есть false (ложь), наоборот, <оператор_1> пропускается, а выполняется <оператор_2>. Часть else <оператор_2> условного оператора может быть опущена. Тогда при значении true условного выражения выполняется <оператор_1>, в противном случае этот оператор пропускается.
Оператор выбора
Оператор выбора позволяет выбрать одно из нескольких возможных продолжений программы. Параметром, по которому осуществляется выбор, служит ключ выбора – выражение любого порядкового типа (кроме типов real и string). Структура оператора выбора имеет вид:
case <ключ_выбора> of <список_выбора> else <операторы> end;
Здесь case, of, else, end – зарезервированные слова (случай, из, иначе, конец);
<ключ_выбора> – ключ выбора;
<список_выбора> – одна или более конструкций вида:
<константа_выбора>: <операторы>;
<константа_выбора> – константа того же типа,
что и выражение <ключ_выбора>;
<операторы> – произвольные операторы Pascal.
Оператор выбора работает следующим образом. Вначале вычисляется значение выражения <ключ_выбора>, а затем в последовательности операторов <список_выбора> отыскивается такой, которому соответствует константа, равная вычисленному значению. Если в списке выбора не будет найдена константа, соответствующая вычисленному значению ключа, управление передается операторам, стоящим за словом else. Часть else <операторы> можно опустить. Тогда при отсутствии в списке выбора нужной константы оператор выбора просто завершит свою работу.