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

Question

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

---

Comments

Вводиться целочисленный аргумент? Какой язык?

Answer 1

Var
r,y:real;
begin
      readln(r);
         if (r>=-7)and(r<=-3)then<br>                y:=r+7;
         if (r>=-3)and(r<=-2)then<br>                y:=4;
         if (r>=-2)and(r<=2)then<br>                y:=sqr(r);
         if (r>=2)and(r<=4)then<br>                y:=-2*r+8;
         writeln(y);
         if (r<-7)or(r>4)then
                writeln('Введите значение в диапазоне [-7;4]');
end.

Comments

точно. исправила

---

Спасибо, невнимательная

---

Огромное всем спасибо:) побольше бы таких добрых людей)

---

Крч, я немного подумал, ее же можно оптимизировать

---

var
r,y:real;
begin
readln(r);
y:=-1;
if (r<-7)or(r>4)then
writeln('Введите значение в диапазоне [-7;4]')
else if (r>=-7)and(r<=-3)then<br> y:=r+7
else
if (r>=-3)and(r<=-2)then<br> y:=4
else
if (r>=-2)and(r<=2)then<br> y:=sqr(r)
else
y:=-2*r+8;
if y>=0 then writeln(y);
end.

---

А если бы речь шла только о целых значениях можно было написать при помощи оператора выбора и было бы еще красивее.

---

Т.е лучше написать как во втором случае???

---

Я бы написала, как в первом. А говорю я вообще про другой оператор, который можно было бы использовать, если бы было известно, что переменные только целочисленные

---

Ну, в принципе, вторая побыстрее будет.

---

спасибо)