Построить

+ 0 -

Полькаааааа95

08 февр. 2016 г., 0:39:20 (8 лет назад)

const
  a = -1.0; b = 2.0; h = 0.2;

var
  x, y, ln3: real;

begin
  x := a;
  ln3 := ln(3);
  while x <= b do
  begin
    if x < 0 then y := 3 * x + sqr(x)
    else y := exp(-x * ln3) - 1 / sqr(x);
    writeln(x, ' ', y);
    x := x + h
  end
end.

Результаты:
-1 -2
-0.8 -1.76
-0.6 -1.44
-0.4 -1.04
-0.2 -0.56
-5.55111512312578E-17 -1.66533453693773E-16 <----- Не знаю, почему тут не 0...
0.2 -24.1972584382398
0.4 -5.60560598502275
0.6 -2.26049591980599
0.8 -1.14725635346149
1 -0.666666666666667
1.2 -0.426863923857701
1.4 -0.295406076640235
1.6 -0.218197714009405
1.8 -0.170227426462473
2 -0.138888888888889

+ 0 -

БуБлИг

08 февр. 2016 г., 2:25:13 (8 лет назад)

Комментарий удален

+ 0 -

WeKa1999

08 февр. 2016 г., 3:02:27 (8 лет назад)

y=3 в степени x + х квадрат, если x<0, y=3 в степени минус х минус х в степени минус 2, a=-1; b=2; h=0.2;

+ 0 -

Wdsfsfsfsf

08 февр. 2016 г., 4:26:37 (8 лет назад)

Комментарий удален

+ 0 -

Lerakrava

08 февр. 2016 г., 5:12:16 (8 лет назад)

Pascal ABC