В заданном массиве х1,х2...,хn изменить значение всех положительных элементов умножив их значение на К а отрицательные элементы уменьшить вдвое при этом подсчитать количество элементов абсолютная величина которых не привышает L
n := round((b - a) / dx) + 1; for i := 1 to n do begin num := a + (i - 1) * dx; x := xLeft + trunc(mx * (num - a)); Line(x, y0 - 3, x, y0 + 3); str(Num:0:1, s); if abs(num) > 1E-15 then TextOut(x - TextWidth(s) div 2, y0 + 10, s) end;
n := round((fmax - fmin) / dy) + 1; for i := 1 to n do begin num := fMin + (i - 1) * dy; y := yRight - trunc(my * (num - fmin)); Line(x0 - 3, y, x0 + 3, y); str(num:0:1, s); if abs(num) > 1E-15 then TextOut(x0 + 7, y - TextHeight(s) div 2, s) end; TextOut(x0 - 10, y0 + 10, '0');
x1 := a; while x1 <= b do begin y1 := F(x1); if ((x1 >= 1) and (x1 <= 2.5)) then begin x := x0 + round(x1 * mx); y := y0 - round(y1 * my); if (y >= yLeft) and (y <= yRight) then SetPixel(x, y, clBlue); end; x1 := x1 + 0.001 end end.
Одна из древнейших систем счисления была создана в Китае, а также в Японии. Эта система возникла как результат оперирования с палочками, выкладываемыми для счета на стол или доску. Числа от единицы до пяти обозначались, соответственно, одной, двумя и т.д. палочками, выкладываемыми вертикально, а одна, две, три или четыре вертикальные палочки, над которыми помещалась одна поперечная палочка, означали числа шесть, семь, восемь и девять. (Смотреть таблицу обозначений чисел.)
Первые пять кратных числа 10 обозначались одной, двумя, пятью горизонтальными палочками, а одна, две, три и четыре горизонтальные палочки, к которым сверху приставлялась вертикальная палочка, означали числа 60, 70, 80 и 90. Для обозначения чисел больше 99 использовался позиционный принцип. Число 6789 китайцы записали бы так:
. Обозначения чисел с палочек тесно связано со счетом на пальцах и счетной доске, но применялось оно также и в письменных вычислениях.
Во второй китайской системе счисления для обозначения первых девяти целых чисел или символов (смотреть таблицу обозначений чисел) используют девять различных знаков и одиннадцать дополнительных символов для обозначения первых одиннадцати степеней числа 10. В сочетании с умножением и вычитанием это позволяло записывать любое число меньше триллиона. Если один из символов, обозначающих первые девять целых чисел, стоит перед (при чтении слева направо) символом, означающим степень числа 10, то первое нужно умножить на второе, если же символ одного из девяти первых целых чисел стоит на последнем месте, то это число надлежит прибавить к обозначенному предыдущими символами. В такой системе счисления число 6789 выглядело бы так:
.
Таблица обозначения чисел в Китае ( от 1 – до 900).
1000 -
Записывались цифры числа начиная с больших значений и заканчивая меньшими. Если десятков, единиц, или какого-то другого разряда не было, то сначала ничего не ставили и переходили к следующему разряду. (Во времена династии Мин был введен знак для пустого разряда - кружок - аналог нашего нуля).
Чтобы не перепутать разряды использовали несколько служебных иероглифов, писавшихся после основного иероглифа, и показывающих какое значение принимает иероглиф-цифра в данном разряде.
Если один из символов, обозначающих первые девять целых чисел, стоит перед (при чтении слева направо) символом, означающим степень числа 10, то первое нужно умножить на второе, если же символ одного из девяти первых целых чисел стоит на последнем месте, то это число надлежит прибавить к обозначенному предыдущими символами.
graphABC;
const
W = 800; H = 500;
function F(x: real): real;
begin
F := x * x - x;
end;
var
x0, y0, x, y, xLeft, yLeft, xRight, yRight, n: integer;
a, b, fmin, fmax, x1, y1, mx, my, dx, dy, num: real;
i: byte;
s: string;
begin
SetWindowSize(W, H);
xLeft := 50;
yLeft := 50;
xRight := W - 50;
yRight := H - 50;
a := -2; b := 5; dx := 0.5;
fmin := -2; fmax := 5; dy := 0.5;
mx := (xRight - xLeft) / (b - a);
my := (yRight - yLeft) / (fmax - fmin);
x0 := trunc(abs(a) * mx) + xLeft;
y0 := yRight - trunc(abs(fmin) * my);
line(xLeft, y0, xRight + 10, y0);
line(x0, yLeft - 10, x0, yRight);
SetFontSize(12);
SetFontColor(clBlue);
TextOut(xRight + 20, y0 - 15, 'X');
TextOut(x0 - 10, yLeft - 30, 'Y');
SetFontSize(7);
SetFontColor(clRed);
n := round((b - a) / dx) + 1;
for i := 1 to n do
begin
num := a + (i - 1) * dx;
x := xLeft + trunc(mx * (num - a));
Line(x, y0 - 3, x, y0 + 3);
str(Num:0:1, s);
if abs(num) > 1E-15 then
TextOut(x - TextWidth(s) div 2, y0 + 10, s)
end;
n := round((fmax - fmin) / dy) + 1;
for i := 1 to n do
begin
num := fMin + (i - 1) * dy;
y := yRight - trunc(my * (num - fmin));
Line(x0 - 3, y, x0 + 3, y);
str(num:0:1, s);
if abs(num) > 1E-15 then
TextOut(x0 + 7, y - TextHeight(s) div 2, s)
end;
TextOut(x0 - 10, y0 + 10, '0');
x1 := a;
while x1 <= b do
begin
y1 := F(x1);
if ((x1 >= 1) and (x1 <= 2.5)) then
begin
x := x0 + round(x1 * mx);
y := y0 - round(y1 * my);
if (y >= yLeft) and (y <= yRight) then SetPixel(x, y, clBlue);
end;
x1 := x1 + 0.001
end
end.
Одна из древнейших систем счисления была создана в Китае, а также в Японии. Эта система возникла как результат оперирования с палочками, выкладываемыми для счета на стол или доску. Числа от единицы до пяти обозначались, соответственно, одной, двумя и т.д. палочками, выкладываемыми вертикально, а одна, две, три или четыре вертикальные палочки, над которыми помещалась одна поперечная палочка, означали числа шесть, семь, восемь и девять. (Смотреть таблицу обозначений чисел.)
Первые пять кратных числа 10 обозначались одной, двумя, пятью горизонтальными палочками, а одна, две, три и четыре горизонтальные палочки, к которым сверху приставлялась вертикальная палочка, означали числа 60, 70, 80 и 90. Для обозначения чисел больше 99 использовался позиционный принцип. Число 6789 китайцы записали бы так:
. Обозначения чисел с палочек тесно связано со счетом на пальцах и счетной доске, но применялось оно также и в письменных вычислениях.
Во второй китайской системе счисления для обозначения первых девяти целых чисел или символов (смотреть таблицу обозначений чисел) используют девять различных знаков и одиннадцать дополнительных символов для обозначения первых одиннадцати степеней числа 10. В сочетании с умножением и вычитанием это позволяло записывать любое число меньше триллиона. Если один из символов, обозначающих первые девять целых чисел, стоит перед (при чтении слева направо) символом, означающим степень числа 10, то первое нужно умножить на второе, если же символ одного из девяти первых целых чисел стоит на последнем месте, то это число надлежит прибавить к обозначенному предыдущими символами. В такой системе счисления число 6789 выглядело бы так:
.
Таблица обозначения чисел в Китае ( от 1 – до 900).
1000 -
Записывались цифры числа начиная с больших значений и заканчивая меньшими. Если десятков, единиц, или какого-то другого разряда не было, то сначала ничего не ставили и переходили к следующему разряду. (Во времена династии Мин был введен знак для пустого разряда - кружок - аналог нашего нуля).
Чтобы не перепутать разряды использовали несколько служебных иероглифов, писавшихся после основного иероглифа, и показывающих какое значение принимает иероглиф-цифра в данном разряде.
Если один из символов, обозначающих первые девять целых чисел, стоит перед (при чтении слева направо) символом, означающим степень числа 10, то первое нужно умножить на второе, если же символ одного из девяти первых целых чисел стоит на последнем месте, то это число надлежит прибавить к обозначенному предыдущими символами.