На сайте запущен новый сервис: ONLINE-РЕШЕБНИК. Здесь вы можете решить свою задачу в режиме реального времени, самостоятельно вводя ваши данные. Превосходная графика и высокая функциональность. Решатели реализованы в виде виджетов. К каждому виджету приводится пояснение. В частности это касается английской терминологии (для тех, кто еще почему-то не знает английский язык) и даются (если необходимо) пояснения. Но в большистве случаев все понятно и без дополнительных комментариев. Более того, посетители сайта могут задавать свои вопросы по работе с виджетом в комментариях или читать комментарии и ответы на вопросы. Виджеты функционируют в Бета-режиме (пока), но полностью работоспособны и дают правильное решение. Если возникают сбои или ошибки, то оставляйте свои замечания и пожелания в комментариях.
Вы можете оставить свою заявку на интересующую вас задачу в комментариях к этой публикации. Всем зарегистрированным пользователям сайта разрешается голосование за ту или иную задачу (оценка одобрение или не одобрение, высказывания в поддержку). Результаты голосований будут учитываться при разработке и создании новых OnLine-Решателей.
в столбце и одновременно наименьшим в строке. Найти все седловые
точки матрицы
2). За один просмотр файла действительных чисел и с использованием очереди напечатать элементы файла в следующем порядке: сначала – все числа, меньшие а, затем – все числа из отрезка [а, b], и, наконец – все остальные числа, сохраняя исходный порядок в каждой из этих трех групп чисел. Числа а и b задает пользователь.(тема ОЧЕРЕДЬ)
ПОМОГИТЕ ПОЖАЛУЙСТА СРОЧНО НАДО
uses Ctr,Graph;
const Ra=100;{радиус атома}
Rc=10;{радиус ядра}
Re=4;{радиус электрона}
k=0.5;{коэффициент сжатия орбит электронов}
Dr=30;{параметр изменения кординат электронов}
Step 1=0.2;{шаг изменения положения электрона}
Step=100;{время задержка скорость движения электрона}
var cx,сy,y,y1,y2,x,x1,x2,x3,y3:integer;
I,I1,I2,I3:real; d,m:integer;
begin
clrscr;
d:=detect;
initgraph(d,m,'путь к драйверу');
SetTextStyle(0,0,2);
OutTextXY(200,30,'модель атома');
cx:=GetMaxX div 2;
PieSLice(cx,cy,0,360,Rs);{нарисовать ядро атома}
SetColor(Red);
SetLineStyle(0,0,3);
Line(cx-7,cy,cx+7,cy);
Line(cx,cy-5,cx,cy+5);
SetLineStyle(0,0,1);
SetFillStyle(1,1);
i:Pi/4;{задать начальное положение 4 электронов}
i:=-Pi/4;
i1:=-Pi/4;
i2:=-Pi/2;
i3:=-Pi/2;
SetTextStyle9(0,0,1);
SetColor(jellow);
OutTextXT(180,420;'Для отмены нажмите любую клавишу');
While not KeyPressed do {повторять пока не нажата любая клавиша}
begin {определить координаты электронов}
x:=Round((Ra*cos(i))+cx;Y:Round(k+Ra*sin(i))+cy;
x1:=Round((Ra+Dr)*cos(i1))+cx; y1:Round(k*(Ra+Dr)*sin(i1))+cy;
x2:=Round((Ra+Dr)*cos(i2))+cx; y2:Round(k*(Ra+Dr)*sin(i2))+cy;
x3:=Round((Ra+Dr)*cos(i3)*2.3)+cx;y3:=Raund(k*(Ra-Dr)*sin(i3)*2.3)+cy;{установить синий цвет и нарисовать электроны}
SetColor(1);
Circle(x,y,Re);
PutPixel(x,y,2);
Circle(x1,y1,Re);
PutPixel(x1,y1,2);
Circle(x2,y2,Re);
PutPixel(x2,y2,2);
Circle(x3,y3,Re);
PutPixel(x3,y3,2);
Delay(Setep);{Нарисовать электпоны цвером фона}
SetColor(0);
Circle(x,y,Re);
PutPixel(x,y,2);
Circle(x1,y1,Re);
PutPixel(x1,y1,2);
Circle(x2,y2,Re);
PutPixel(x2,y2,2);
Circle(x3,y3,Re);
PutPixel(x3,y3,2);{задать изменение положения электронов}
i:=i+Step1;
i1:=i1-Step1; i2:=i2+Step1; i3:=i3+Step1;
end;{конец цикла}
СloseGraph;
end
y= корень из x+7
привести к каноническому виду уравнение линии второго порядка.установить тип этих линий и их расположение..схематичный чертеж
а) y = ex cos x;
б) x = 3t - t3, y = 3t2.