þ Отчет выполняется письменно в тетради. В нем должны быть представлены ответы на следующие вопросы.
1. Как выполнить запуск интегрированной среды программирования Turbo Pascal?
2. Какая команда управляющего меню открывает окно редактора для ввода текста программы?
3. Какими клавишами производится переключение регистров клавиатуры с кириллицы на латиницу и обратно?
4. С помощью каких команд меню Editможно выполнить удаление, копирование, перемещение выделенного фрагмента текста программы?
5. Как запустить процедуру компиляции текста программы?
6. Как сохранить текст программы на диске?
7. Как запустить процедуру выполнения программы?
8. Какая комбинация клавиш используется для перехода из окна редактора текстов в окно просмотра результатов работы программы?
9. Как открыть в окне редактирования текст программы, сохраненной ранее на диске?
10. Как завершить работу в среде программирования Turbo Pascal?
Задача 2.4. Составить алгоритм и программу вычисления значения функции для произвольных a, b, x, значения которых вводятся с клавиатуры. Значение хзадавать в градусах. Выполнить расчеты при следующих значениях исходных данных: a = 2; b = 3; x = 25°.
Алгоритм и программа решения задачи приведены в табл. 2.12.
Комментарий к программе.Для хранения исходных данных и результатов требуется выделить место в памяти. Это сделано в операторе 1. Для переменных a, b, x, y выбран вещественный тип real. Операторы 2 и 4 представляют собой приглашения к вводу данных. Ввод выполняется операторами 3 и 5 с помощью процедуры Readln. Оператор 6 нужен для перевода значения переменной х из градусов в радианы, так как стандартные функции sinи cos требуют, чтобы угол был задан в радианах. В операторе 7вычисляется выражение, записанное справа от операции присваивания, результат присваивается переменной y.Оператор 8 выводит значение y с соответствующими пояснениями.
Таблица
Алгоритм и программа для решения задачи 2.4
Алгоритм
Программа
program Lab_1;var a, b, x, y : real; { 1 }beginWriteln ( ' Введите a , b ' ); { 2 }Readln ( a , b ); { 3 }Writeln ( ' Введите х в градусах ' ); { 4 }Readln ( х ); { 5 }x := x * 3.14 / 180; { 6 }y := ( a + b)*exp ( ( b + 1 )*ln ( a ) )*sin ( x )/cos( x ); {7}Writeln ( ' y = ' , y : 6 : 2 ); { 8 } end.