Моделирование алгоритмических выражений на Pascal

Министерство  образования и науки Российской Федерации

Пермский  Национальный Исследовательский политехнический  Университет

Кафедра информационных технологий и автоматизированных систем

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Лабораторные  работы по моделированию алгоритмических  процессов на Pascal

 

Вариант №2

 

 

 

 

 

 

 

 

   Выполнил:

   Студент группы КТИЭу-12

                              Дербушев Николай Викторович     

                                 

                         Проверила: 

   Доцент кафедры ИТАСС

                                Полякова Ольга Андреевна

 

 

 

 

г. Пермь  2012

Лабораторная  работа  № 1.

Вычисление выражений  с использованием стандартных функций.

Постановка задачи

1. Найти значение функции  Y= x+ 2                                               при x = 0.675
2. . Затем возвести полученное значение в квадрат, т.е. найти Y1=Y (X), и вычислить абсолютное значение ABS(Y1).

 

3. Записать выражение, зависящее от координат точки М(1.5; 0.5)  и принимающее значение TRUE, если точка принадлежит заштрихованной области, и FALSE, если не принадлежит. Для исследуемой точки вычислить полученное выражение.

Y    -7                                            -1            X

 

5. Результаты всех вычислений вывести на печать.

Описание используемых стандартных функций.

 

Стандартные функции, возвращают вещественный результат  при вещественном или целом аргументе:

• Cos(r), вычисляет косинус аргумента r.
• Sin(r), вычисляет синус аргумента r.
• Abs(r), вычисляет абсолютную величену аргумента r.

 

Текст программы  № 15.а

 

program lab1{ вариант №2.a};

const x=0.765;

var y:real;

begin

writeln('Вычислим значение функции Y=x+(1/x^3-x)-2 при х=0,765');

y:=x+(1/x*x*x-x)-2;

writeln('Y=',y);

writeln('Y^2=',y*y);

writeln('ABC(Y^2)',abs(y*y));

end.

 

 

 

 

 

 

Текст программы  № 15.б

 

program lab1{  вариант №15.b};

const x0=-0.8;

          y0=0.9;

          r=1;

var pro:boolean;

begin

pro:=(x0*x0+y0*y0<=r*r) and ((x0+1<=y0) or (abs(x0)-1>=y0));

writeln('Точка с координатами М(',x0:0:1,'.',y0:0:1,')');

if pro then writeln('Принадлежит заштрихованной области.')

else writeln('Не принадлежит заштрихованной области.');

end.

Распечатка  результатов выполнения программы.

Программы  № 15.а

Y=2.5135058366E+00 Y^2=6.3177115909E+00 ABS(Y^2)=6.3177115909E+00

Программы  № 15.б

Точка с координатами M(-0.8,0.9) Не принадлежит заштрихованной области.