Для функции, заданной графически, построить аналитическую зависимость

@Neocosmo · Регистрация: 25.01.2010

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

Для функции y = y(x), заданной графически, построить аналитическую зависимость. Составить блок-схему и программу вычисления величины y при заданном значении аргумента.
Написал код, вот только правильно ли?

Pascal

program Zavisimost;
var
c,x,y,yx:real;
begin
writeln('Введите x,y,c');
readln(x,yx,c);
y:=-c*x+c*yx*x+c*yx*x;
writeln('Y=',y:2:3);
end.

@Cyborg Drone · 28.03.2015, 15:51

Нет. Вот так правильно:

Pascal

var x, y, c: real;
begin
  write('c = ');
  readln(c);
  c := abs(c); {так, на всякий случай}
  write('x = ');
  readln(x);
  if abs(x) >= c
    then y := 0
    else y := c - abs(x);
  write('y = ', y);
  readln
end.

	28.03.2015, 15:51