Порядок выполнения в системе Pascal ABC

Порядок   выполнения   в   системе   Pascal   ABC   ( :

1.   Активизируйте пункт Файл и создайте новый файл (Новый).

2.     Наберите текст программы (см. ниже). При наборе текста программы соблюдайте позиционирование (отступы) строк. Это не влияет на работу программы, но делает ее читабельной и облегчает поиск ошибок.

program Lab1;

uses crt;

var x, y:real;

begin

writeln(’Введите значение аргумента’); read(x);

if (x>=-2) and (x<0) then y:=sqr(x)*x; if (x>=0) and (x<1) then y:=sqr(x);

if (x>=1) and (x<1.5) then y:=4*ln(x);

if (x>=1.5) and (x<=2) then y:=-10*sqr(x-1.6); if (x>=-2) or (x<=2) then writeln(‘Y=’,y:7:2)

else writeln(‘Функция не определена’);

end.

3.      Запустите программу на выполнение. Введите значение переменной X, лежащее в рабочем диапазоне (-2<=X<=2). На экране увидим результат вычисления Y (Y= ).

4.      Еще раз запустите программу на выполнение. Введите значение переменной X, не лежащее в рабочем диапазоне (X<=-2 или X>=2). На экране увидим сообщение «Функция не определена».

5.   Рассмотрим, что делает программа.

В разделе var объявили две переменные X и Y вещественного типа.

В теле программы: вначале запрашиваем значение аргумена X (оператор вывода – writeln, который выводит приглашение для ввода,

оператор ввода – read(x); , который вводит зачение с клавиатуры в переменную X).

Затем следуют четыре условных операторов, проверяющих в какой диапазон попадает введенное значение X и вычисляет соответствующее выражение.

Пятый условный оператор нужен для корректного вывода результатов работы программы: если X попадает в один из четырех заданных в условии задачи диапазонов (т.е. лежит в отрезке [-2;2]), то выводится подсчитанное значение Y. В противном случае (else) – выводится сообщение «Функция не определена».

6.   Сохраните программу в своей папке.