Написать программу, которая по введенному значению аргумента вычисляет значение функции - Pascal ABC (12857)

Формулировка задачи:

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

Код к задаче: «Написать программу, которая по введенному значению аргумента вычисляет значение функции - Pascal ABC (12857)»

textual
const r=3;
var x,y:real;
begin
write('x=');
readln(x);
if x<=-4*r/3 then y:=-r
else if x<=-r then y:=2*x+2*r
else if x<=r then y:=sqrt(r*r-x*x)
else if x<=8*r/3 then y:=3*x/5-3*r/5
else y:=r;
write('y=',y:0:2);
end.

15   голосов, оценка 4.267 из 5


СОХРАНИТЬ ССЫЛКУ