Программирование линейных вычислительных процессов, страница 4

Проверка задачи №2
b=	1,7
t=	0,75
a=	=B2*B3
c=	=B4+ПИ()
y=	=EXP(-B4)*SIN(B5)-СТЕПЕНЬ(ABS(B5);1/3)

Задача 3.

Составить программу для вычисления и печати указанных величин при заданных значениях исходных величин, причём каждое подвыражение должно вычисляться по одному разу. Напечатать значения. Условие:

 

                                      x³, если х > y

Q = x² + y² +      

                                     x³, если х <= y  

Решение.

1. Расчетные формулы:

Q=sqr(x)+sqr(y)+exp(3*ln(x)) если x>y

Q=sqr(x)+sqr(y)+exp(3*ln(x)) если x<=y

2. Текст  программы:

Program lab2;

var q,x,y:real;

begin

  writeln('x=');

  readln(x);

  writeln('y=');

  readln(y);

  if x>y then q:=sqr(x)+sqr(y)+exp(3*ln(x))

       else q:=sqr(x)+sqr(y)+exp(3*ln(y));

  writeln('q=',q:4:6);

End.

3.Тест проверки:

    x=2,y=3

4. Результаты работы программы:

x=

2

y=

3

q=40.000000

5. Проверка в Excel.

Проверка задачи№3
x=	2
y=	3
q=	40

Проверка задачи№3
x=	2
y=	3
q=	=B2*B2+B3*B3+ЕСЛИ(B2>B3;B2*B2*B2;B3*B3*B3)

Задача 4.

Составить программу для вычисления и печати указанных величин при заданных значениях исходных величин, причём каждое подвыражение должно вычисляться по одному разу. Напечатать значения. Условие:

                 , если  х > 0

  Y=        ln (1 + x) , если   -3 < х <= 0

                 sin(x) ,если  x <= -3        

Решение:

1.Расчетные формулы:

y = exp(-sqr(x)), если x<0

y = ln(1+sqr(x)), если –3<x<=0

y = sin(x), если x<=-3

2. Текст программы:

Program lab3_4;

var x,y:real;