Задача с графиком

@vlad1997 · Регистрация: 24.01.2013

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

Pascal

var x,y:real;
begin
writeln('vvedite x=');
readln(x);
if x<=-1 then y:=x+2
else if abs(x)<1 then y:=1-sqrt(1-x*x)
else if (x>=1) and (x<=3) then y:=1+sqrt(1-sqr(x-2))
else y:=x-2;
writeln('y=',y:3:2);
readln;
end.

@vlad1997 · 24.01.2013, 17:18 **[ТС]**

Напишите программу, позволяющую вычислить значение функции f(x), заданной графически.
Вот сама задача, а что я вставил по не внимательности.

@ermolay · 24.01.2013, 17:39

Pascal

var
  x,y: real;
begin
  write('vvedite x=');
  readln(x);
  if (x<=-1)or(x>=1) then y:=1
    else y:=abs(x);
  writeln('Pri x=',x,'  y=',y);
  readln;
end.

@vlad1997 · 24.01.2013, 18:26 **[ТС]**

Задача не верна при значениях х=1 y=1 (должно 0). При х=5 y=1 (должно 3)

@ermolay · 24.01.2013, 18:35

Сообщение от vlad1997

Задача не верна

программа составлена по графику. А вам как надо? Если не по этому, а по другому графику - выложите его.

@vlad1997 · 24.01.2013, 18:44 **[ТС]**

вот сам График

@ermolay · 24.01.2013, 19:24

если график проходит через точку (5, 3) то так:

Pascal

var
  x,y: real;
begin
  write('vvedite x=');
  readln(x);
  if abs(x)<=1 then y:=1-abs(x)
    else y:=abs(abs(0.75*x)-0.75);
  writeln('Pri x=',x,'  y=',y);
  readln;
end.

по графику не совсем понятно, через какие точки он проходит

@Taftis · 24.01.2013, 21:37

через 5,3 проходит последний вариант верный)

@vlad1997 0 / 0 / 0 Регистрация: 24.01.2013 Сообщений: 47
	24.01.2013, 17:18 [ТС]	2
	Напишите программу, позволяющую вычислить значение функции f(x), заданной графически. Вот сама задача, а что я вставил по не внимательности. 0

@vlad1997 0 / 0 / 0 Регистрация: 24.01.2013 Сообщений: 47
	24.01.2013, 18:26 [ТС]	4
	Задача не верна при значениях х=1 y=1 (должно 0). При х=5 y=1 (должно 3) 0

@ermolay 3451 / 2389 / 2135 Регистрация: 04.12.2011 Сообщений: 3,966
	24.01.2013, 18:35	5
	Сообщение от vlad1997 Задача не верна программа составлена по графику. А вам как надо? Если не по этому, а по другому графику - выложите его. 0

@vlad1997 0 / 0 / 0 Регистрация: 24.01.2013 Сообщений: 47
	24.01.2013, 18:44 [ТС]	6
	вот сам График Миниатюры 0

@Taftis Pascal, Delphi, C++ 215 / 128 / 91 Регистрация: 01.12.2012 Сообщений: 628
	24.01.2013, 21:37	8
	через 5,3 проходит последний вариант верный) 0