Question

Дано действительное число а.Вычислите f(a), если
а) f(х)= х2 при -2≤х<2,
4 в противном случае;

б) f(x)= x2+4x+5 при х≤2,
1/х2+4х+5 в противном случае;
пожалуйста..

Answer 1

а) var  a, y: real;
begin 
writeln('Введите число:'); 
readln(a);   
if (a >= -2) and (a < 2) then 
begin   
  y := a*a;   
  writeln('f(', a, ')=', y); 
end 
 else 
begin   
   y := 4;   
   writeln('f(', a, ')=', y); 
end;
end.

б) var a,y:real;

begin
writeln('Введите число');
readln(a);
if a<=2 then
begin
   y:=a*a+4*a+5;
   writeln(' f(',a,')=', y);
end
else
begin
  y:=(1/(a*a)) + 4*a +5;
 writeln('f(',a,')=',y);
end;
end.
***
Если что-то непонятно, пожалуйста, задавай вопросы. 

Answer 2

спасибо большое)