Вычислите значение функции по заданному значению аргумента

@LenaVesna · Регистрация: 18.05.2014

Студворк — интернет-сервис помощи студентам

задача была такой: "Вычислите значение функции по заданному значению аргумента".

у меня написана программа, НО, по словам преподавателя, здесь есть ошибка.
я, сколько бы ни искала, так ни одной ошибки и не нашла

помогите найти, пожалуйста ^___^

P.S. нет, я не совсем глупая, правда. Имею проблемы с циклами, но это, честно, единственные (на данный момент) мои проблемы в программировании

Pascal

program Znachenie;
var x,y:real;
begin
write('введите значение х: ');
readln(x);
if (x>(-7)) and (x<=0) then y:=abs(x) else
   if (x>0) and (x<=4) then y:=(ln(1-x)) else
      if (x>4) and (x<=10) then y:=((x*x)+1) else
      writeln('нет значений y');
if (x>-7) and (x<=10) then writeln('у=',y:0:2);
end.

@erl27 · 29.05.2014, 00:05

В соответствии с картинкой ваша задача решена правильно. Её можно немного упростить:

Pascal

var
  x, y: real;
 
begin
  cls;
  write('x = ');
  readln(x);
  writeln;
  if (x > -7) and (x <= 0) then y := abs(x) else
  if (x <= 4) then y := ln(1 - x) else
  if (x <= 10) then y := x * x + 1 else
    writeln('нет значений y');
  if (x>-7) and (x<=10) then writeln('y = ', y:0:2)
end.

Но ошибка здесь лежит в области определения функции: если x >=1, то логарифм ln(1 - x) не существует (второе условие на картинке). Поэтому, возможно, неправильно указаны интервалы в условии. Посмотрите внимательно, откуда вы переписывали это условие.

	29.05.2014, 00:05

Опции темы