Program Pascal-vypocet rezistorov

patesw · Napísal **patesw**: 24.05.2012 11:38

Nazdar potreboval by som poradit. Neviem urobit program ktoreho zadanie je nasledovne:
-program ktory vypocita velkost seriovo a paralelne zap. rezistorov
-nacita pocet R v zozsahu 2-5
-nacita hodnoty
-vykona vypocet
NIEJE TO ULOHA DO SKOLY

Kód:

program rezistori;
var a,b,c,d,e,s:integer;
r: array [2..5] of real;
begin
writeln ('zadajte pocet rezistorov');
readln (r);
for i:= 2 to 5 do
readln (a);
readln (b);
readln (c);
readln (d);
readln (e);
s:= a+b+c+d+e;
writeln (s);
readln ();
end.

F3RY · Napísal **F3RY**: 24.05.2012 11:53

ako sa pocitaju rezistori, nemam ani sajnu, ale so syntaxou ti mozem poradit.
Myslim, ze sam nerozumies tomu, co si napisal. Cyklus bude vyzerat takto:

Kód:

for i:=2 to 5 do begin
 readln (a);
 b:=b+a;
                  end;

Porozmyslaj naco ten cyklus je...
Z akeho dovodu definujes pole, ktore, nevyuzivas?
Ak mas v cykle viac prikazov, musis pouzit begin,end

Fico · Napísal **Fico**: 24.05.2012 11:54

Mas tam zopar chyb:

1.) ak chces nacitat pocet rezistorov, tak ten pocet uchovavaj v premennej typu integer, pretoze sa jedna iba o jeden ciselny udaj
2.) potom to nacitane cislo porovnaj, ci je v rozsahu <2,5> a ak nie, tak vypis nejaku hlasku alebo zopakuj nacitavanie, apod
3.) teraz mozes v cykle od 1 po nacitane cislo nacitavat konkretne hodnoty do pola a vsetky tie premenne a - e su ti zbytocne, nato mas predsa pole, aby si tam uchoval vsetky hodnoty
4.) nakoniec uz len vypocitas vysledny odpor pre seriove zapojenie a vysledny odpor pre paralelne zapojenie. Vysledok vypises a hotovo

Nie je to nic komplikovane, skus to podla tohto postupu.

shiro · Napísal **shiro**: 24.05.2012 12:44

lol myslis ze ked napises ze to neni do skoly, tak ze sme tak blbi?
pretoze v normalnom zivote taketo blbiny nieje vobec potrebne programovat vo freepascale a navyse programator ktory to nepotrebuje do skoly (tj. sa programovanim zivi) dokaze taketo matematicke jednoduche veci spravit za minutu.

patesw · Napísal autor témy **patesw**: 24.05.2012 21:16

Z toho pola som mimo, napadlo ma to potom urobit cez if, bude to zbytocne dlhe ja viem ale to nevadi, dik Vám co ste sa snazili pomoct

Kód:

program rezistori;
var x,a,b,c,d,e,s:integer;
var p:real;
begin
writeln ('zadajte pocet R');
readln (x);
if x=2 then
        begin
        writeln ('zadajte R1');
        readln (a);
        writeln ('zadajte R2');
        readln (b);
        s:=a+b;
        p:=(1/a)+(1/b);
        writeln ('Vysledny seriovy odpor:',s);
        writeln ('Vysledny paralelny odpor:',p);
        end;
readln ();
end.

toto je len cast, zadam este podmienky x=3,4,5 atd. a pojde to

Fico · Napísal **Fico**: 24.05.2012 21:22

Pokus sa to spravit s polom, takto to nie len ze bude dlhe, ale aj neprehladne. Mala ukazka:

Kód:

for i:= 1 to pocet do
begin
    write( 'Hodnota rezistora R' + i + ': ' );
    readln ( r[i] );
end;

kde r je typu array [2..5] of real; Okrem toho, mas chybu vo vypocte paralelneho zapojenia. Treba ho este prevratit.

F3RY · Napísal **F3RY**: 24.05.2012 21:26

Mozes to urobit aj pomocou funkcie a namiesto IF pouzi CASE OF,

nBXXL · Napísal **nBXXL**: 24.05.2012 23:31

F3RY: myslíš, že keď ledva ovláda pole a for cyklus bude vedieť čo sú to funkcie a case of?

a inak dá sa to spraiť aj bez poľa.. šak len prirátavaš k sériovému to čo si načítal, k paralelnému prevrátene to čo si načítal, na konci ten paralelný otočíš a máš.. a najrozumnejšie je to načítavanie spraviť for cyklom, aký popísal Fico

Program Pascal-vypocet rezistorov

Podobné témy