Вычислить функцию - Turbo Pascal (33908)

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

Дано действительное число X. Вычислить F(x),если F(x)=1 при 1≤x≤2; x при x<1; x-1 при x>2.

Код к задаче: «Вычислить функцию - Turbo Pascal (33908)»

textual
uses crt;
var y,x:real;
BEGIN
clrscr;
write('x = ');
read(x);
if (x>=1) and (x<=2) then
begin
 y:=1;
 write('F(x) = ',y:3:2);
end
 else
  if x<1 then
   begin
   y:=x;
   write('F(x) = ',y:3:2);
   end
    else
     if x>2 then
      begin
      y:=x-1;
       write('F(x) = ',y:3:2);
      end;
readkey;
END.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

12   голосов, оценка 4.417 из 5


СДЕЛАЙТЕ РЕПОСТ