• Написать программу на Pascal,для вычисления значения функции F(x)=
    а) =0.5[tex]x^2[/tex] при x[tex] \geq [/tex]-1
    б)=0 при x=0
    в)=x+3 при x<-1

    x=[-3;4] с шагом 0,5

Ответы 6

  • Что такое сегодня? Не то сохранилос...а теперь комментарий не туда попал
    • Автор:

      layla4lkz
    • 6 лет назад
    • 0
  • x= 3,5+0,5=4 т.к. [-3;4]
  • Да, только в машине 0.5 хранится неточно... и постепенно эта ошибка накапливается при суммировании.
    • Автор:

      faith
    • 6 лет назад
    • 0
  • Т.е вычислять некие F1(i) вместо F(x), определив количество точек.
  • var x:real;beginx:=-3;while x<=4 do begin if x>=1 then writeln('F(x) = ',sqr(x)/2);  if x=0 then writeln('F(x) = 0'); if x<-1 then writeln('F(x) = ',x+3);x:=(x+0.5);endend.
  • На самом деле условие F(х)=0 при х=0 лишнее, поскольку значение F(x)=0.5x² при x≥-1 и так дает F(0)=0.var  x,F:real;begin  x:=-3;  while x<4.01 do begin    if x<-1 then F:=x+3    else F:=0.5*x*x;    Writeln('x=',x:4:1,', F=',F:5:3);    x:=x+0.5    endend.Результатx=-3.0, F=0.000x=-2.5, F=0.500x=-2.0, F=1.000x=-1.5, F=1.500x=-1.0, F=0.500x=-0.5, F=0.125x= 0.0, F=0.000x= 0.5, F=0.125x= 1.0, F=0.500x= 1.5, F=1.125x= 2.0, F=2.000x= 2.5, F=3.125x= 3.0, F=4.500x= 3.5, F=6.125x= 4.0, F=8.000
    • Автор:

      morales
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years