1) Для углового заряда уравновесим силы действующие от всех зарядов
2*k qq/a^2 *cos (Pi/6)- 3 k q q1/a^2=0
sqrt(3) k qq/a^2 - 3 kq q1/a^2=0
k q/a^2 (sqrt(3) q-3q1)=0
q1=q/sqrt(3)
2) C= eps eps0 S/d
eps1=2
eps=1
d1=0,01
C0= eps2 eps0 S/d1
C1= eps0 S/ (d1/eps1)= eps1 eps0 S/d1
C2= eps0 S/ (d1/eps1+d2/eps2)= eps1 eps2 eps0 S/(d1 eps2 +d2 eps1)
C0=C2
eps2/d1=eps1 eps2/(d1 eps2+d2 eps1)
1/d1= eps1/(d1 eps2 + d2 eps1)
d1 eps2 +d2 eps1= d1 eps1
d1 (eps2 - eps1)= - d2 eps1
d2= d1 (eps1-eps2)/eps1
d2=0,01 (2-1)/2=0,05
3) запишем закон изменения силы тока I=0,3t
чтобы получить заряд, проинтегрируем
Q=int (0,3t,t=0..10)=0,15t^2, t=0..10=15 Кл
4) j= sigma E
E=j/sigma
sigma в условии отсутствует и материал не указан
Проверено - работает на Паскаль АВС.
Кстати, похоже на какую-то ошибку в условии задачи: по формуле A(X,Y)=2X^2-Y^2 ни один элемент массива никогда не будет равен 0.
Program Lobu;
uses crt;
const n=2;
var
a:array[1..n,1..n] of real;
neg,sum: real;
i,j:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
neg:=0;
sum:=0;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=2*i*i-j*j;
write (a[i,j]:7:2);
if a[i,j]<0 then neg:=neg+1;
if a[i,j]>0 then sum:=sum+a[i,j];
if a[i,j]=0 then writeln('Элемент А(',i,',',j,') равен 0');
end;
writeln();
end;
writeln();
writeln('Количество отрицательных чисел ',neg);
writeln('Сумма положительных чисел ',sum);
end.
