Задания для практического занятия:
Создать с помощью Total Commander на диске z:\ папку (клавиша F7) для сохранения там файлов программ (латинскими буквами, не более 8 символов, без пробелов и точек!).
Загрузить Free, Turbo Pascal или PascalABC. Для этого выполнить Start / All Programs / Free (Turbo) Pascal или PascalABC (Пуск / Все программы / Free [Turbo] Pascal или PascalABC) или щелкнуть дважды по соответствующему ярлыку на рабочем столе.
Создать новый файл: File / New (Файл / Создать). Он получает имя noname01.pas (или Program01.pas), отображаемое в верхней части окна документа.
Сохранить в личной папке на диске z:\ новый файл с именем ФИО21.pas, лучше использовать латинские буквы. Для этого File / Save as… (Файл / Сохранить как…), в строке Name ввести имя диска, вложенные каталоги, имя файла, например, z:\Ivanov\isp21.pas или
и нажать Ok. Периодически сохранять файл в процессе работы (клавиша F2).
Набрать текст линейной программы, вычисляющей расстояние между двумя точками (x1; y1) и (x2; y2) по формуле
.
Program prim_1; {имя программы}
var x1, x2, y1, y2, d: real; {описание переменных
вещественного типа}
begin {начало раздела операторов}
write('Введите координаты первой точки x1 и y1');
readln(x1, y1); {ввод значений переменных x1, y1 через
клавишу Enter}
write('Введите координаты второй точки x2 и y2');
readln(x2, y2); {ввод значений переменных x2, y2 через
клавишу Enter}
d:=sqrt(sqr(x1-x2)+sqr(y1-y2)); {расчет расстояния}
writeln('расстояние между двумя точками равно',d:5:2);
{вывод значения расстояния}
end.
Произвести компиляцию программы (клавиша F9). Исправить ошибки.
Запустить программу на выполнение (Ctrl + F9).
Посмотреть результаты (Alt + F5)
Создать новый файл: File / New (Файл / Создать). Сохранить его в личной папке на диске z:\ под именем ФИО22.pas. Периодически сохранять файл в процессе работы (клавиша F2).
Набрать текст программы, позволяющей вычислить значение функции
в зависимости от условия.
Program prim_2; {имя программы}
var {раздел описания переменных}
x : real; {описание переменной-аргумента}
f : real; {описание вычисляемой переменной, т. е. функции)}
begin {раздел операторов}
write('Введи значение x'); {вывод вспомогательной фразы}
readln(x); {ввод значения переменной x}
if (x>=-1) and (x<=3) {условие}
then f:=sqr(x)*x-sin(x) {если условие истинно}
else {если условие ложно}
if cos(x)>0 {расчет кубического корня из косинуса x}
then f:=exp(1/3*ln(cos(x))
else if cos(x)<0
then f:=-exp(1/3*ln(abs(cos(x)))
else f:=0;
writeln('x=',x:3:2,' f=',f:4:3) {вывод результатов}
end.
Произвести компиляцию программы (клавиша F9). При наличии ошибок исправить их. Запустить программу на выполнение (Ctrl + F9) и просмотреть результаты (Alt + F5).
Контрольные вопросы:
Назначение языка программирования Pascal. Состав среды программирования.
Алфавит языка программирования Pascal.
Зарезервированные слова, стандартные идентификаторы и идентификаторы пользователя. Правила создания имен и ограничения.
Структура простейшей программы. Из каких разделов состоит программа на языке Pascal? Какие из разделов необязательны? Для чего служит раздел описания переменных, раздел операторов?
Переменные и константы на Pascal. Имя и значение переменной. Данные в программах. Типы данных. Наиболее часто используемые типы данных.
Порядковые типы данных: целые, символьный, логический.
Вещественные типы данных.
Операции, процедуры и функции, применимые к порядковым типам данных.
Стандартные процедуры и функции языка Pascal. Основные математические функции. Как записать математические функции, которым нет соответствия на Pascal?
Операции языка Pascal. Приоритет операций.
Правила записи алгебраических выражений.
Операторы Pascal. Оператор присваивания, формат и принцип действия. Согласование типов. Составной и пустой операторы.
Операторы ввода-вывода. Формат и принцип действия. Отличие операторов с окончанием ln. Форматирование результатов.
Логические выражения. Логические операции. Приоритет и значения логических операций.