// PascalABC.NET 3.2, сборка 1485 от 15.06.2017 // Внимание! Если программа не работает, обновите версию!
uses graphABC;
function f(x:real):=6*Power(6*sqr(x-2),1/3)/(x*x+8);
begin (var w,var h):=(1000,600); SetWindowSize(w,h); // поле для графика в окне (var xLeft,var yLeft):=(50,50); (var xRight,var yRight):=(w-xLeft,h-yLeft); // интервалы по осям (var ax,var bx,var hx):=(-12.0,12.0,1.0); (var ay,var by,var hy):=(0.0,3.0,0.5); // масштабы по осям var mx:=(xRight-xLeft)/(bx-ax); var my:=(yRight-yLeft)/(by-ay); // точка начала координат графика var x0:=xLeft+Trunc(abs(ax)*mx); var y0:=yRight-Trunc(abs(ay)*my); // рисование координатных осей Line(xLeft,y0,xRight+10,y0); Line(x0,yLeft-10,x0,yRight); SetFontSize(12); SetFontColor(clBlue); TextOut(xRight+15,y0-10,'X'); TextOut(x0-4,yLeft-30,'Y'); SetFontSize(8); SetFontColor(clGreen); // рисование засечек var s:string; for var i:=1 to Round((bx-ax)/hx)+1 do begin var num:=ax+(i-1)*hx; var x:=xLeft+Trunc(mx*(num-ax)); Line(x,y0-3,x,y0+3); if abs(num)>1E-15 then TextOut(x-TextWidth(s) div 2,y0+10,num.ToString) end; for var i:=1 to Round((by-ay)/hy)+1 do begin var num:=ay+(i-1)*hy; var y:=yRight-Trunc(my*(num-ay)); Line(x0-3,y,x0+3,y); if abs(num)>1E-15 then TextOut(x0+7,y-TextHeight(s) div 2,num.ToString) end; TextOut(x0-10,y0+10,'0'); // собственно график var xi:=ax; while xi<=bx do begin var yi:=f(xi); var x:=x0+Round(xi*mx); var y:=y0-Round(yi*my); if (y>=yLeft) and (y<=yRight) then SetPixel(x,y,clRed); xi+=1e-3 end end.
vladexi
15.09.2021
1. Для ввода формулы в ячейку С5 необходимо: выбрать (щелкнуть один раз) в 5 строку и 3 столбец и нажать = после = можно вводить формулу 2.Как можно отменить неверную операцию, если Вы ошиблись? сочетанием клавиш Ctrl + z 3.Какой знак не может быть использован в качестве оператора в формуле? В формуле можно использовать любые арифметические операторы: сложение (+), вычитание (-), умножение (*), деление (/), вычисление процентов (%) или возведение в степень (^). Логические операторы: равно (=), больше (>), меньше (<), больше или равно (>=), меньше или равно (<=), не равно (<>). & используется для соединения текстовых строк. Можно использовать скобки. Можно использовать буквы - для указания ссылки на ячейку (н-р, B2) или диапазон (A1:A10). А какой не может быть использован - не знаю. Остаются: ? " ' @ ! 4.Клавишу Enter в MS Word необходимо нажимать: чтобы закончить абзац 5.К чему приводит нажатие на клавиатуре клавиши Delete? удалить символ справа от курсора (следующий за курсором) 6.После ввода формулы в ячейку в ней появилась последовательность символов . Какое и нижеследующих действий Вы должны выполнить? расширить столбец или проверить не отрицательное ли значение даты и времени (если там дата или время) 7.Для перемещения курсора по рабочему полю можно использовать клавиши: стрелку вправо, стрелку влево, стрелку вверх, стрелку вниз, кнопки: Home, End, Page Up, Page Down всё вышеперечисленное можно использовать в сочетании с Ctrl, н-р, Ctrl + End чтобы перейти в самый конец 8.С какого символа начинается формула в Excel? со знака = 9.Программа Excel используется для... Используется для работы с электронными таблицами 10.Можно ли удалить неверно набранный символ? можно, клавишами Backspace и Delete 11.В каких единицах устанавливается размер шрифта? в пунктах (пт) 12.Что Вы видите в строке формул? формулу: операторы и ссылки на значения в ячейках 13. Как скопировать фрагмент текста с мыши? правой кнопкой вызвать контекстное меню и выбрать копировать 14.Какая причина могла привести к появлению в ячейке #ЗНАЧ!? формула содержит недопустимый тип, н-р, когда пытаешься умножить текст 15.Каким можно быстро перейти в начало документа? сочетанием Ctrl + Home 16.Какие данные из перечисленного не могут быть содержимым ячейки? ... (нет перечисленного) 17.Для какой цели может использоваться команда Файл Сохранить как? сохранить файл в другом формате или сохранить копию файла 18.Что обозначает А1:ВЗ? диапазон ячеек начиная с А1 и до B3 19.Какое расширение из приведенных имеют файлы в Excel последние версии Excel: xlsx, xlsm 20.Какие клавиши клавиатуры можно нажать для разделения одного абзаца на два? Enter, Ctrl + Enter 21.Как наиболее эффективно удалить содержимое трех больших несвязанных диапазонов? выделить первый диапазон, нажать сочетание Shift + F8 и выделить два остальных диапазона. Нажать Delete. Чтобы быстро выделить большой диапазон можно использовать сочетания: Ctrl+Shift+стрелку в нужную сторону (выделит с первой ячейки до последней непустой) или ctrl+A (выделить диапазон вокруг выбранной ячейки до непустых ячеек) 22.В какой из формул допущена ошибка? ... (нет формул) 23.Па основе чего строится любая диаграмма? данные из таблицы 24.Можно ли изменить параметры диаграммы после ее построения? да, выбрать в меню: изменить данные 25.Какой из указанных методов редактирования ячейки является неправильным? ... (нет указаний)
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Используя метод половинного деления, определи имеет ли уравнение y=-4x2−11, 8x+3 корень на промежутке [0, 0].
// Внимание! Если программа не работает, обновите версию!
uses graphABC;
function f(x:real):=6*Power(6*sqr(x-2),1/3)/(x*x+8);
begin
(var w,var h):=(1000,600);
SetWindowSize(w,h);
// поле для графика в окне
(var xLeft,var yLeft):=(50,50);
(var xRight,var yRight):=(w-xLeft,h-yLeft);
// интервалы по осям
(var ax,var bx,var hx):=(-12.0,12.0,1.0);
(var ay,var by,var hy):=(0.0,3.0,0.5);
// масштабы по осям
var mx:=(xRight-xLeft)/(bx-ax);
var my:=(yRight-yLeft)/(by-ay);
// точка начала координат графика
var x0:=xLeft+Trunc(abs(ax)*mx);
var y0:=yRight-Trunc(abs(ay)*my);
// рисование координатных осей
Line(xLeft,y0,xRight+10,y0);
Line(x0,yLeft-10,x0,yRight);
SetFontSize(12); SetFontColor(clBlue);
TextOut(xRight+15,y0-10,'X');
TextOut(x0-4,yLeft-30,'Y');
SetFontSize(8); SetFontColor(clGreen);
// рисование засечек
var s:string;
for var i:=1 to Round((bx-ax)/hx)+1 do begin
var num:=ax+(i-1)*hx;
var x:=xLeft+Trunc(mx*(num-ax));
Line(x,y0-3,x,y0+3);
if abs(num)>1E-15 then TextOut(x-TextWidth(s) div 2,y0+10,num.ToString)
end;
for var i:=1 to Round((by-ay)/hy)+1 do begin
var num:=ay+(i-1)*hy;
var y:=yRight-Trunc(my*(num-ay));
Line(x0-3,y,x0+3,y);
if abs(num)>1E-15 then TextOut(x0+7,y-TextHeight(s) div 2,num.ToString)
end;
TextOut(x0-10,y0+10,'0');
// собственно график
var xi:=ax;
while xi<=bx do begin
var yi:=f(xi);
var x:=x0+Round(xi*mx);
var y:=y0-Round(yi*my);
if (y>=yLeft) and (y<=yRight) then SetPixel(x,y,clRed);
xi+=1e-3
end
end.