Zadatak iz turbo pascala

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Ako mozete mi pomoci da uradim zadatak,treba mi algoritam,postupak i testiranje tog zadatka,posto imam seminarski iz informatike a glasi ovako:
1.Napisati program u turbo pascalu,koristeći modularni pristup rješavanja problema uz pomoć računara: Za izračunavanje magnetne indukcije i magnetnog polja u slučaju pravolinijskog i kružnog provodnika,te solenoida.

hvala unaprijed za pomoc,pa vi vidite kako bi ga mogli postaviti da li da kucate ili da slikate ili nesto trece,nije bitno,bitno je samo ako mozete da ga uradite nadam se da nije nejasan zadatak,ako treba ja cu postaviti sliku jednog primjera

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Ja bih taj program rijesio tako sto bih stavio "CASE OF" komandu i recimo ako ukucam rijec "pravolinijski" program mi izabere da upisujem duzinu provodnika i izabira mi formulu za pravolinijski provodnik, ako ukucam "kruzni" program mi izabere formulu za solenoid itd. Na kraju izdas rijesenje i to je to!!!

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Uloguj se preko Facebooka da bi skinuo fajl:

sve bi to dobro bilo da te ja kontam,mislim da znam nesto vise o pascalu,al je problem sto ne znam,vidim da se ti razumijes i da imas volje da pomognes,pa et ako mozes mi pomoci kako ide to redom,bio bi ti zahvalan.Evo i slika od jednog primjera,koji meni nije puno pomogo,ali mislim da hoce tebi,ili nekom ko mi ima volje pomoci:

mycity.rs/must-login.png

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Nažalost, svi školski zadaci iz programiranja imaju više veze sa matematikom, fizikom i ostalim predmetima nego s programiranjem. Ako sam dobro razumeo, ceo program se svodi na to da te na početku pita šta želiš da izračunaš, zatim za unos potrebnih parametara i na kraju izračuna vrednost po formuli. Jedini problem u tom programu je to što većina nas programera nema pojma kako se računa magnetna indukcija i polje i zbog toga niko ne može da ti pomogne (ne znamo koji parametri su potrebni za izračunavanje, ne znamo formule, ne znamo izuzetke ako postoje, itd).

• 1Ovo se svidja korisniku: maajstor
  
  Registruj se da bi pohvalio/la poruku!

Uloguj se preko Facebooka da bi skinuo fajl:

Mozda ovako nesto, ali nisam siguran da li su formule tacne
program magnetna_indukcija; const m0=0.00001256;       pi=3.14; var n,I,B,l,H,r:real;     rijec:string; begin   repeat   write('Unesite za koji provodnik zelite izracunati magnetnu indukciju: ');   readln(rijec);   until (rijec='solenoid') or (rijec='kruzni') or (rijec='pravolinijski');   if (rijec = 'solenoid') then     begin       writeln;       writeln('Izabrali se solenoid');       write('Unesite jacinu struje u Amperima I: ');       readln(I);       write('Unesite broj namotaja n: ');       readln(n);       write('Unesite duzinu solenoida u metrima l: ');       readln(l);       H:=(m0*n*I)/l;       B:=m0*H;       writeln;       writeln('Jacina magnetnog polja ovog solenoida je: ',H:7:7);       writeln('Magnetna indukcija je: ',B:7:14);       readln;     end;   if (rijec = 'pravolinijski') then     begin       writeln;       writeln('Izabrali se pravolinijski provodnik');       write('Unesite jacinu struje u Ampreima I: ');       readln(I);       write('Unesite duzinu provodnika u metrima l: ');       readln(l);       H:=I/(2*pi*l);       B:=m0*H;       writeln;       writeln('Jacina magnetnog polja je: ',H:7:7);       writeln('Magnetna indukcija je: ',B:7:14);       readln;     end;   if (rijec= 'kruzni') then     begin       writeln;       writeln('Izabrali ste kruzni provodnik');       write('Unesite jacinu struje u Ampreima I: ');       readln(I);       write('Unesite poluprecnik kruznog provodnika r: ');       readln(r);       H:=I/(2*r*pi);       B:=m0*H;       writeln;       writeln('Jacina magnetnog polja je: ',H:7:7);       writeln('Magnetna indukcija je: ',B:7:14);       readln;     end; end.
mycity.rs/must-login.png

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

ej hvali ti mnogo,a ja cu prepisati,i pitacu profesora dal je u redu,prije nego mi ocjeni,postavio sam na jedno 4 foruma,a jedino na ovom sam dobio odgovor,hvala jos jednom

• 1Ovo se svidja korisniku: maajstor
  
  Registruj se da bi pohvalio/la poruku!

Hahahahha, nasao sam tvoje pitanje i na gamers.ba forumu....
Samo mi javi sta je profesor rekao da znam ako bude neka greska, ma da je program funkcionalan!!!

• 1Ovo se svidja korisniku: biloxi
  
  Registruj se da bi pohvalio/la poruku!

pozz,ej da javim sta je profa reko,on kaze da ovo nije modularni pristup,ali srecom snaso sam se nekako jedan drug mi uradio,evo kako bi to trebalo izgledati,mozda ima nekih stamparskih gresaka:

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.

a tebi hvala u svakom slucaju na pomoci,sve je super proslo,pozz

• 1Ovo se svidja korisniku: maajstor
  
  Registruj se da bi pohvalio/la poruku!

Aha, nisam ja znao sta je modularni pristup rjesavanja. Sad znam...