PascalABC.NET - Программа, которая по введенному значению аргумента вычисляет значение функции, заданной в виде графика.

[serge-first]

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

я бы лично не стал выводить единую формулу
(во-первых, это сложнее, во-вторых, менее надёжно - шанс ошибиться очень высок, в-третьих, не универсально и не наглядно. )

да и думаю, что ожидается ответ такового вида (рабиваем график на отдельные участки, для каждого строим свою формулу):

if (x<-9) or (x>9) then WriteLn('Значение функции не определено!')
else begin
  if (x>=-9) and (x<=-6) then y := - sqrt( sqr(R) - sqr(x+6) );
  if (x>-6) and (x<=-3) then y := x + 3;
  if (x>-3) and (x<=0) then y := sqrt( sqr(R) - sqr(x) );
  if (x>0) and (x<=3) then y := 3 - x;
  if (x>3) and (x<=9) then y := 0.5 * (x - 3);
  WriteLn('y = ', y:0:4);  {выведем вещественный результат с 4-мя зн.после запятой}
end;

Не могли бы Вы мне подсказать, что я сделал не так?)

PROGRAM program3;
USES crt;

VAR x,y,R: real;

BEGIN

if (x<-9) or (x>9) then WriteLn('Значение функции не определено!')
else begin
if (x>=-9) and (x<=-6) then y := - sqrt( sqr(R) - sqr(x+6) );
if (x>-6) and (x<=-3) then y := x + 3;
if (x>-3) and (x<=0) then y := sqrt( sqr(R) - sqr(x) );
if (x>0) and (x<=3) then y := 3 - x;
if (x>3) and (x<=9) then y := 0.5 * (x - 3);
WriteLn('y = ', y:0:4); {выведем вещественный результат с 4-мя зн.после запятой}
end;

END.

[serge-first]

Я понимаю, что чайник, но какая здесь ошибка?)

[alexander13]

Как минимум, не задали значения переменной R.

[Poma][a]

И x тоже хранит в себе не понять что.

[Mad_Cat]

Как минимум, не задали значения переменной R.

и х тоже не ввели

[serge-first]

Не понимаю как ввести правильно, хоть убейте)

VAR x: ?
у: real;
R: ?

Что то здесь не то? Да?

[Mad_Cat]

PROGRAM program3;
USES crt;

VAR x,y,R: real;

BEGIN
R:=3;
Readln(x);
if (x<-9) or (x>9) then WriteLn('Значение функции не определено!')
else begin
if (x>=-9) and (x<=-6) then y := - sqrt( sqr(R) - sqr(x+6) );
if (x>-6) and (x<=-3) then y := x + 3;
if (x>-3) and (x<=0) then y := sqrt( sqr(R) - sqr(x) );
if (x>0) and (x<=3) then y := 3 - x;
if (x>3) and (x<=9) then y := 0.5 * (x - 3);
WriteLn('y = ', y:0:4); {выведем вещественный результат с 4-мя зн.после запятой}
end;

END.

[GreenWizard]

PROGRAM program3;
USES crt;

const
  R = число; // <- !!

VAR x,y: real;
BEGIN
readln(x); // <- !!
if (x<-9) or (x>9) then 
  WriteLn('Значение функции не определено!')
else 
  begin
    if (x>=-9) and (x<=-6) then y := - sqrt( sqr(R) - sqr(x+6) );
    if (x>-6) and (x<=-3) then y := x + 3;
    if (x>-3) and (x<=0) then y := sqrt( sqr(R) - sqr(x) );
    if (x>0) and (x<=3) then y := 3 - x;
    if (x>3) and (x<=9) then y := 0.5 * (x - 3);
    WriteLn('y = ', y:0:4); {выведем вещественный результат с 4-мя зн.после запятой}
  end;
END.

c MadCAT почти одновременно написали, не видел его ответа

[serge-first]

Всё! Понял!)

Спасибо большое!!!

[serge-first]

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

PROGRAM program3;
USES crt;

const
  R = число; // <- !!

VAR x,y: real;
BEGIN
readln(x); // <- !!
if (x<-9) or (x>9) then 
  WriteLn('Значение функции не определено!')
else 
  begin
    if (x>=-9) and (x<=-6) then y := - sqrt( sqr(R) - sqr(x+6) );
    if (x>-6) and (x<=-3) then y := x + 3;
    if (x>-3) and (x<=0) then y := sqrt( sqr(R) - sqr(x) );
    if (x>0) and (x<=3) then y := 3 - x;
    if (x>3) and (x<=9) then y := 0.5 * (x - 3);
    WriteLn('y = ', y:0:4); {выведем вещественный результат с 4-мя зн.после запятой}
  end;
END.

c MadCAT почти одновременно написали, не видел его ответа

Сравнил код Mad_Cat и GreenWizard

GreenWizard! По Вашему коду, пишет ошибку:

R = число; // <- !!

Список ошибок: Неожиданный символ 'ч'