Turbo Pascal pomoć

Eh ovako, imam jedan zadačić, ali nemogu bas da ga uradim dobro. Pa ako ko ima vremena i znanja da mi malo pomogne
Zadatak glasi: Napraviti program koji će izračunavati kapacitet proizvoljnog broja kondenzatora kod paralelne i serijske veze.

Hvala unaprijed

Pa je li trebaš izračunati kapacitet preko zadatog otpora, ili struje i napona ili kako već ?

ko mu uradi ima 40 boba od mene

za ove bodove mora se napisati cjela strukutra u pascalu !!!

radim, bude edit


ovako, moram li ti citavu strukturu raditi ili samo da ti objasnim kako se radi?

Evo objasnjenje, pa ces ti uspjeti
Prvo, zadaj neko n - koje će biti integer, i koje oznacava broj kondenzatora. To n treba unijeti na ulazu. Zatim unesi neko x koje ce biti char. I to unosis na ulazu. Onda postavi if x jednako npr. p (paralelno) then begin; pa u taj dio programa stavi petlju od 1 do n, u petlji da se unosi neko a (to je kapacitet svakog kondenzatora) - takodjer u for petlji postavi c:=c+a (a prije toga definisi c kao c:=0, pocetna vrijednost). nakon toga end; pa se opet vracas na if - i pisi else, pa opet for petlja isto 1 to n do begin; unosi ponovo a, a sad ce u formuli biti 1/c=1/c + 1/a i na kraju ispisi c.
malo sam zapetljao jer je zapetljan zadatak al nadam se da ces skontati..

pozz

Za Pascal trebaš biti mozak

Otprilike:

program kapacitet;
var n,i:integer;
a,c,deal;
x:char;
begin
readln('unesi broj kondenzatora');
writeln(n);
readln('unesi vrstu veze, za paralelnu vezu unesi 'p', a za serijsku 's');
writeln(x);
readln('unesi kapacitet prvog kondenzatora');
writeln(d);
c:=d;
if x:=p then begin;
for i=1 to n do
begin;
readln('unesi kapacitet kondenzatora');
writeln(a);
c:=c+a;
end;
end;
else begin;
for i = 1 to n do
begin;
readln('unesi kapacitet kondenzatora');
writeln(a);
c:=(c*a)/(c+a);
end;
end;
writeln('ekvivalentni kapacitet unesenih kondenzatora iznosi ', c:0:2);
readln;
end.


edit, pokusaj se snaci sa begin-ovima i end-ovima, jer ne mogu uvlaciti ovdje.. pozz

To je samo za 2, trazi se proizvoljan broj, evo cekajte, sad cu ja zavrsiti.

EDIT:

Testirano, provjereno, radi:

Đeste programeri

Hvala mnogo na pomoći UrQuan i vi svi ostali

Samo jos jedno pitanje. Mogu li kako prebaciti iz TP u word i obrnuto text programa?

otvori 2 prozora i piši xD.

Iz turbo pascala.. samo ides Save As : i sacuvas dje oces pod ekstenzijom .txt .. npr .. C:\Program Files\TP\Kondenz.txt
i odes i nadjes datoteku i samo odatle kopiras .. btw malo se odmaknite od lijeve ivice ... lakse je raditi