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

ответ:Pascal  

1 uses crt;

2 var x,r:real;

3 begin

4 clrscr;

5 write('Vvedite znachenie x= ');

6 readln(x);

7 if (x>=-4) and (x<-2) then write('y=',x+3) else

8 if (x>=-2) and (x<4) then write('y=',-(x/2)) else

9 if (x>=4) and (x<6) then write('y=',-2) else

10 if (x>=6) and (x<=10) then write('y=',sqrt(4-sqr(x-8))-2:0:3)

11 else write('Vy vveli ne vernoe znachenie x!');

12 readkey;

13 end.

Объяснение:

varn: integer; beginreadln(n); n: = n div 10; n: =(n div 100)*10 +n mod 10; writeln(n); n: = (n mod 10)*100+ ((n mod 100) div 10)*10+ n div 100; writeln(n); end.

попробуйте так (turbo pascal):

program 1;

var s: string;

c: integer;

begin

write('vvedite nazvaniye zhivotnogo');

read(s);

writeln('vvedite kolichestvo syedennyh gribov');

readln(c);

writeln(s, ' ', 'syest', ' ', c, ' ', 'gribov');

end.