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.
<u>PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018</u> <u>Внимание! Если программа не работает, обновите версию!</u>
begin var x:=ArrRandom(15,-50,50); x.Println; var (sn,sp):=(0,0); foreach var m in x do if m>0 then sp+=m else sn+=m; Writeln('Разница между суммой положительных и отрицательных ',sp-sn) end.
~n/3 достаточно. Бросаем первый с этажа номер n/3. Если разбился, то бросаем второй по очереди с 1 этажа, потом со 2, ... до n/3 пока не разобьется. Так найдем этаж. Если первый шар не разбился. бросаем его с этажа 2n/3. Если тут разбился, то бросаем второй с этажа n/3+1, потом с n/3+2, ... пока не разобьется. Если 1 шар при падении с 2n/3 не разбился, то бросаем его с 2n/3+1, потом с 2n/3+2, ... пока не разобьется.
Программа пройдётся по массиву. Если елемент массива больше М, то елемент будет записан в М. И так 10 раз. В конце выводится М. В итоге выведет 41 (самое большое число в массиве).