Induksiyasi 20 mT bo‘lg

1-masala:
Induksiyasi 20 mT bo‘lgаn bir jinsli mаgnit mаydоni kuch chiziqlari bo‘yi  4 sm, eni 3 sm bo‘lgаn to‘g‘ri to‘rtburchаkli rаmkаgа 60° burchаk оstidа 
tushmоqdа. Rаmkаdаn o‘tаyotgаn mаgnit oqimi nimaga teng?
Tuzilgan dastur kodi:
procedure TForm1.Button1Click(Sender: TObject);
var B,S,L,a,d,c,F:Float;
begin
B:=StrToFloat(Edit2.Text);
L:=StrToFloat(Edit1.Text);
a:=StrToFloat(Edit4.Text);
b:=StrToFloat(Edit5.Text);
S:=a*b;
c:=cos(L);
F:=B*c*S;
Edit3.Text:='F='+FloatToStr(F);
end;
end.
Dasturning visual ko’rinishi.

2-masala.Yuzasi 20 sm2, o‘ramlar soni 100 ta bo‘lgan simli ramka magnit maydonga
joylashtirilgan. ramkadan 2a tok o‘tganda unda 0,5 mn·m maksimal
aylantiruvchi moment hosil bo‘ladi. Magnit maydonning induksiyasini aniqlang.
procedure TForm1.Button1Click(Sender: TObject);
var N,I,M,B,S:real;
begin
N:=StrToFloat(Edit1.Text);
I:=StrToFloat(Edit2.Text);
M:=StrToFloat(Edit4.Text);
S:=StrToFloat(Edit5.Text);
B:=M/(N*I*S);
Edit3.Text:='B='+FloatToStr(B);
end;

end.

3-misol.To‘g‘ri cheksiz o‘tkаzgichdаn 250 mА tоk o‘tmоqdа. Undаn 4 sm uzоqlikdа joylashgan nuqtаdаgi mаgnit mаydоn induksiyasini tоping.
procedure TForm1.Button1Click(Sender: TObject);
var D,I,M,B:real;
begin
M:=StrToFloat(Edit1.Text);
I:=StrToFloat(Edit2.Text);
D:=StrToFloat(Edit4.Text);

B:=M*(I/(2*3.14*D));
Edit3.Text:='B='+FloatToStr(B);
end;
end.

3-misol.Uzunligi 30 sm bo‘lgan o‘tkazgichdan 2 a tok o‘tmoqda. O‘tkazgich
induksiyasi 1,5 T bo‘lgan bir jinsli magnit maydonning induksiya chiziqlariga
30° burchak ostida joylashgan. O‘tkazgich amper kuchi yo‘nalishida 4 sm ga
ko‘chganda qanday ish bajariladi?
Dasturning kod qismi.
procedure TForm1.Button1Click(Sender: TObject);
var A,s,D,I,L,B,f:real;
begin
A:=StrToFloat(Edit1.Text);
I:=StrToFloat(Edit2.Text);
B:=StrToFloat(Edit4.Text);
D:=StrToFloat(Edit5.Text);
L:=StrToFloat(Edit6.Text);
s:=sin(A);
B:=D*I*L*B*s;
Edit3.Text:='B='+FloatToStr(B);
end;
end.
Dasturning visual qismi:

5-misol.Orasidagi masofa 1,6 m bo‘lgan qo‘sh (ikki) simli o‘zgarmas elektr toki uzatish liniyasi simlarining har bir metr uzunligiga to‘g‘ri keluvchi o‘zaro
ta’sir kuchini toping. O‘tkazgichlardan o‘tayotgan tok kuchining qiymatini
40 a ga teng deb oling.
Dasturning kod qismi:
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var M,I1,I2,D,L,F:real;
begin
M:=StrToFloat(Edit1.Text);
I1:=StrToFloat(Edit2.Text);
I2:=StrToFloat(Edit4.Text);
D:=StrToFloat(Edit5.Text);
L:=StrToFloat(Edit6.Text);
//s:=sin(A);
F:=M*L*(I1*I2)/(2*3.14*D);
Edit3.Text:='F='+FloatToStr(F);
end;
end.
Dasturning visual qismi:

6-masala.Elеktrоn magnit maydon induksiyasi 12 mT bo‘lgan maydоn induksiya chiziqlariga tik uchib kirib, 4 sm radiusli aylana bo‘ylab harakatni davom
ettirgan bo‘lsa, u qanday tеzlik bilan maydonga uchib kirgan?
procedure TForm1.Button1Click(Sender: TObject);
var E,B,R,M,V:real;
begin
E:=StrToFloat(Edit1.Text);
B:=StrToFloat(Edit2.Text);
R:=StrToFloat(Edit4.Text);
M:=StrToFloat(Edit5.Text);
//s:=sin(A);
V:=E*B*R/M;
Edit3.Text:='V='+FloatToStr(V);
end;
end.
Dasturning visual ko’rinishi:

7-misol.O‘tkazgich halqa orqali o‘tgan magnit oqimi 0,2 s davomida 5 mWb ga o‘zgargan. Halqa 0,25 Ω elektr qarshiligiga ega bo‘lsa, halqada qanday induksion tok yuzaga keladi?
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var F,R,T,I:real;
begin
F:=StrToFloat(Edit1.Text);
R:=StrToFloat(Edit2.Text);
T:=StrToFloat(Edit4.Text);
//s:=sin(A);
I:=-F/(R*T);
Edit3.Text:='F='+FloatToStr(F);
end;
end.

8-masala.g‘altakdagi tok 0,2 s davomida noldan 3 a gacha tekis o‘zgarganda 1,5 V o‘zinduksiya EYuK hosil bo‘lsa, g‘altakning induktivligi qanchaga teng?
Dasturning kod qismi:
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var E,T,I,L:real;
begin
E:=StrToFloat(Edit1.Text);
T:=StrToFloat(Edit2.Text);
I:=StrToFloat(Edit4.Text);
//s:=sin(A);
L:=E*T/I;
Edit3.Text:='L='+FloatToStr(L);
end;
end.
Dastuning visual Koʻrinishi:

9-masala.Magnit maydon induksiyasi 0,50 T bo‘lgan o‘zaksiz g‘altakka magnit
singdiruvchanligi 60 ga teng bo‘lgan ferromagnit kiritildi. g‘altak ichida
magnit maydon induksiyasi qanchaga o‘zgaradi?
Dasturning kod qismi:

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var M,B0,B:real;
begin
M:=StrToFloat(Edit1.Text);
B0:=StrToFloat(Edit2.Text);
//s:=sin(A);
B:=M*B0-B0;
Edit3.Text:='B='+FloatToStr(B);
end;
end.
Dasturning visual koʻrinishi:

10-masala.Magnit mаydоnning enеrgiyasi 4 mJ bo‘lishi uchun, induktivligi 0,2 H bo‘lgаn g‘altak chulg‘аmidаgi tоk kuchi qаnchа bo‘lishi lоzim?
$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var W,L,I:real;
begin
W:=StrToFloat(Edit1.Text);
L:=StrToFloat(Edit2.Text);
//s:=sin(A);
I:=sqrt(2*W/L);
Edit3.Text:='I='+FloatToStr(I);
end;
end.
Dasturning visual koʻrinishi: