pozz,evo mene,uz pomoc nekih prijatelja uspio sam ispisati zadatak,ali kad sam ga ukuco izbacuje mi neke greske,znaci n moeze da radi pa bi vas zamolio ako mozete da mi ispravite te greske,i to danas ako je moguce jer vec sutra moram nositi na ocjenjivanje hvala unaprijed:
Code:
program magnetnaindukcijaimagnetnopolje;
uses crt;
var mi,I,a,l,N,o:real;
procedure magnetnaindukcijakodpravolinijskogprovodnika(mi,I,a:integer);
var B:real;
const pi=3.141592654;
begin
B:=mi*I/(2*pi*a);
writeln ('Rjesenje magnetne indukcije kod pravolinijskog provodnika je', B);
end;
procedure magnetnopoljekodpravolinijskogprovodnika(I,a:integer);
var H:real;
const pi=3.141592654;
begin
H:=I/(2*a*pi);
writeln ('Rjesenje magnetnog polja kod pravolinijskog provodnika je', H);
end;
procedure magnetnaindukcijakodkruznogprovodnika(mi,a,I:integer);
var B:real;
begin
B:=mi*I/(2*a);
writeln ('Rjesenje magnetne indukcije kod kruznog provodnika je', B);
end;
procedure magnetnopoljekodkruznogprovodnika(I,a:integer);
var H:real;
begin
H:=I/(2*a);
writeln ('Rjesenje magnetnog polja kod kruznog provodnika je', H);
end;
procedure magnetnaindukcijakodsolenoida(N,I,l:integer);
var B:real;
const n0=mi*pi*10-7;
const pi=3.141592654;
begin
B:=n0*N*I/l;
writeln ('Rjesenje magnetnw indukcije kod solenoida je', B);
end;
procedure magnetnopoljekodsolenoida(N,I,l:integer);
var H:real;
begin
H:=N*I/l;
writeln ('Rjesenje magnetnog polja kod solenoida je', H);
end;
clrscr;
writeln ('Unesite 1 za izracunavanje magnetnog polja i magnetne indukcije kod pravolinijskog provodnika,2 za izracunavanje magnetnog polja i magnetne indukcije kod kruznog provodnika,ili 3 za izracunavanje magnetne indukcije i magnetnog polja kod solenoida');
readln (o);
if o=1 then
begin
writeln ('Unesite vrijednosti koeficijenata mi,a,I');
readln(mi,a,I);
if a=0 then writeln ('Pogresan unos');
else magnetnaindukcijaimagnetnopoljekodpravolinijskogprovodnika (mi,a,I);
else if o=2 then
begin
writeln('Unesite vrijednosti koeficijenata mi,I,a');
readln (mi,I,a);
if a=0 then writeln ('Pogresan unos');
else magnetnaindukcijaimagnetnopoljekodkruznogprovodnika (mi,a,I);
end;
else if o=3
begin
writeln ('Unesite vrijednosti koeficijenata mi,I,l');
readln (N,I,l);
if l=0 then writeln ('Pogresan unos');
else magnetnaindukcijaimagnetnopoljekodsolenoida (N,I,l);
readln;
end.
evo uradjen i u pascalu
[url]http://www.sendspace.com/file/1n8zf3[/url]