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

begin

  writeln('x=');

  readln(x);

    if  x>0 then y:=exp(-sqr(x))

    else if x>-3 then y:=ln(1+sqr(x))

    else y:=sin(x);

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

  readln

end.

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

x = -4, x = -2, x = 3

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

x=

-4

y=0.7568

x=

-2

y=1.6094

x=

3

y=0.0001

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

Проверка задачи №4
x=	-4
y=	0,7568025
x=	-2
y=	1,60943791
x=	3
y=	0,00012341

Проверка задачи №4
x=	-4
y=	=SIN(B2)
x=	-2
y=	=LN(1+B4*B4)
x=	3
y=	=EXP(-B6*B6)

Задача 5.

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

 

R = min    ln(a)/1+a; a²/1-ln(a)

Решение:

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

program lab3_5;

  var

  c,a,b,r:real;

begin

  write('a=');

  readln(a);

  b:=(ln(a))/(1+a);

  c:=(sqr(a))/(1-ln(a));

     if  b<c then r:=b

             else r:=c;

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

  readln

end.