Zadatak iz turbo pascala

Zadatak iz turbo pascala

offline
  • Pridružio: 21 Nov 2010
  • Poruke: 12

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



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • biloxi 
  • Novi MyCity građanin
  • Pridružio: 15 Jul 2009
  • Poruke: 25

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!!!



offline
  • Pridružio: 21 Nov 2010
  • Poruke: 12

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

offline
  • Srđan Tot
  • Am I evil? I am man, yes I am.
  • Pridružio: 12 Jul 2005
  • Poruke: 2483
  • Gde živiš: Ljubljana

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).

offline
  • biloxi 
  • Novi MyCity građanin
  • Pridružio: 15 Jul 2009
  • Poruke: 25

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

offline
  • Pridružio: 21 Nov 2010
  • Poruke: 12

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

offline
  • biloxi 
  • Novi MyCity građanin
  • Pridružio: 15 Jul 2009
  • Poruke: 25

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

offline
  • Pridružio: 21 Nov 2010
  • Poruke: 12

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

offline
  • biloxi 
  • Novi MyCity građanin
  • Pridružio: 15 Jul 2009
  • Poruke: 25

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

Ko je trenutno na forumu
 

Ukupno su 933 korisnika na forumu :: 54 registrovanih, 6 sakrivenih i 873 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: -[CoA]-, 357magnum, 8u47, _Rade, babaroga, Battlehammer, Bobrock1, bokisha253, Boris Bosiljčić, BORUTUS, Brana01, bufanje, cemix, Centauro, comi_pfc, cvrle312, DENIRO, Dimitrise93, Djokislav, dragon986, Georgius, h8propaganda, hooraay, ILGromovnik, jackreacher011011, Kubovac, kybonacci, Lieutenant, ljuba, Magistar78, mercedesamg, mile23, milenko crazy north, Milometer, MiroslavD, misa1xx, muaddib, Nemanja.M, novator, opt1, Panter, prle122, Ripanjac, SlaKoj, stegonosa, vathra, VJ, Vladko, vladulns, Volkhov-M, wolverined4, zziko, Čivi, 125