Const x0=-10; xk=13; h=0.5;
var x,y:real; i,n:integer;
begin
n:=round((xk-x0)/h)+1;
x:=x0-h;
for i:=1 to n do
begin
x:=x+h;
if x<>7
then begin y:=(x*x*x+5*x-8)/(x-7); writeln(x:5:1,' ',y:8:3); end
else writeln(x:5:1,' функция не определена');
end;
end.
Результат (для h=1.0):
-10.0 62.235
-9.0 48.875
-8.0 37.333
-7.0 27.571
-6.0 19.538
-5.0 13.167
-4.0 8.364
-3.0 5.000
-2.0 2.889
-1.0 1.750
0.0 1.143
1.0 0.333
2.0 -2.000
3.0 -8.500
4.0 -25.333
5.0 -71.000
6.0 -238.000
7.0 функция не определена
8.0 544.000
9.0 383.000
10.0 347.333
11.0 344.500
12.0 356.000
13.0 375.667
256*128=32768 - Кол-во точек.
32Кбайта=32768 байт.
<span>32768 байт:32768 точек = 1 байт = 8 бит. - это палитра цветов. 2^8 =256. Итого - 256 цветов.</span>
===== PascalABC.NET =====
begin
var x := ReadReal('x =');
var y: real;
if x = 1 then
y := Ln(Abs(Sin(x)))
else if x = 2 then
y := Exp(x) + Sqrt(x)
else
y := 0.5 + Abs(x);
Println(y)
end.
Объяснение:
Формула для Х = 2 весьма дурацкая, потому что для положительного числа нет смысла брать его модуль: он всегда совпадает с числом. Посему модуль я убираю.
Нц
пока справа свободно - закрасить вправо
кц
нц
пока снизу свободно - закрасить <span>вниз
</span>кц
нц
пока слева свободно - закрасить <span>влево
</span><span>кц
</span>нц
пока сверху свободно - закрасить <span>вверх
</span><span>кц
</span>стоп.