Program Erosito;
Uses Crt;
Var Ut,R,x,I,Pout,a,Uki,h:Real;
Label Eleje,Vege;


Begin
Eleje:

Clrscr;



Writeln (' ');
Writeln (' ');

Writeln ('šdv! Ezzel a programmal gyorsan meg tudod nezni, hogy egy adott tapfeszrol,');
Writeln ('egy adott Ohmon terhelve');
Writeln ('mekkora lesz az erositodben az Amper ‚s Watt terhel‚s a kimeneten.');
Writeln ('ill. arra is tok j¢, hogy ha meg tudod m‚rni egy muszerrel');
Writeln ('az erolk”dod t pfesz�lts‚g‚t akkor kb. megtudd h ny Ohm-ot b¡r el');
Writeln ('hoszz£ ideig biztons ggal amikor majd kipadl¢zva hajtod.');
Writeln ('Ehez ne a traf¢t m‚rd hanem az egyenfeszt, mert az egyen magasabb ‚rt‚ku');
Writeln ('‚s az elektronika egyenfeszt kap.');
Writeln (' ');

Writeln ('Kb. azt mondja meg a progi, hogy mekkora a terhel‚s az eros¡tod”n');
Writeln ('akkor ha vigy zol hogy ne legyen a jelben sok frekvenciaemel‚s');
Writeln ('ennek ellen‚re a zen‚ben sok kiugr¢ ereju jel van amugy is,');
Writeln ('de ezek r”vid ideig tartanak nem befoly solj k max 2-3% ban a meleged‚st.');
Writeln (' ');
Writeln ('Az eros¡tok tobbs‚ge ugyanis £gy muk”dik, hogy amit hossz£ ideig is el b¡rnak');
Writeln ('azt kb. ugy adjak le, hogy van mondjuk 56 Volt t pfesz abb¢l 40 ker�l kimentre');
Writeln ('addig semmi gond, de lehet eg‚szen az 56 ig hajtani ott m r nem b¡rja ”r”kk‚.');
Writeln ('Mert: pl. 40V/8Ohm az 5 Amper * 40 volt az 200 Watt pedig a quadban csak');
Writeln ('100-130 Wattos tranzisztorok vannak, de mivel a jel nem allandoan 40 Voltos');
Writeln ('csak pillanatokig esetleg egy k‚t m sodpercig ¡gy a t”bbi idoben visszah�l');
Writeln ('‚s  tlagban v‚ve elmegy az eros¡to a 8 ohmon.');
Writeln ('De ha pl. egy muszer‚szgyerek atalak¡totta £gy hogy kik�ld maxon ak r');
Writeln ('52 voltot is akkor ugyanez a k”vetkezok‚ppen alakul:');
Writeln (' ');
Writeln ('52/8 az 6,5 amper * 52 volt az 338 watt-os cs£cski�t‚sei vannak ami l that¢an');
Writeln ('t”bbsz”r”se mint amit az eredeti tranzisztorok elviselnek ‚s ha tett is m‚g');
Writeln ('bele tranzisztorokat a hut‚st akkor is ugyanilyen ar nyban jav¡tani kell.');
Writeln ('M sk‚pp az eros¡to egy ideig megy azalatt megtelik hovel ‚s le‚g');
Writeln (' ');
Writeln ('Mondjuk norm lis kisebb eros¡tokben mint a quad az amper ek”zben meg sem');
Writeln ('k”zel¡ti a tranzisztorok  ltal leadhat¢ maximum 25-30 ampert.');
Writeln (' ');

Writeln ('3 adatot meg fogok k‚rdezni.');
Writeln (' ');


Writeln ('Mekkora t pfesz�lts‚grol megy? ');
Readln (Ut);
Writeln (' ');

Clrscr;

Writeln ('H ny Ohm-os hangsz¢r¢ lesz r k”tve?');
Writeln ('Lehet tobb darab is.');
Writeln (' ');
Writeln ('P rhuzamosan mind¡g ugy cs”kken,');
Writeln ('hogy ha kb. azzal szamolsz, hogy a hangszorok szamanak duplazpdasaval');
Writeln ('felezodik az Ohm akkor nagyot nem tevedsz.');
Writeln (' ');
Writeln ('Ha Sorosan k”t”d oket akkor sim n ”ssze kell adni pl. 8+4 az 12 Ohm lesz.');
Writeln (' ');
Writeln ('A vegyes kapcsol sn l megkeresed a p rhuzamos ‚s soros r‚szeket,');
Writeln ('k�l”n kisz molod ‚s ”sszeadod a kapott eredm‚nyeiket a keletkezettekkel megint');
Writeln ('¡gy j rsz el eg‚szen addig am¡g csak v‚geredm‚ny�l egy ‚rt‚ked nem marad.');
Writeln (' ');
Writeln ('Norm lisan nem teljesen ¡gy k‚ne,');
Writeln ('de ez kb. haszn lhat¢ eredm‚nyt ad ‚s egyszeru.');
Writeln (' ');


Readln (R);
Writeln (' ');

Writeln ('K”r�lbel�l h ny sz zal‚ka hasznosul a t pfesznek?');
Writeln ('Ha nem tudod vedd £gy, hogy:');
Writeln (' ');
Writeln ('A szar eros¡tok 50.');
Writeln ('Az  tlagos eros¡tok 50-70');
Writeln ('A jobb eros¡tok pl. a quad 405 kb. minimum 70 sz zal‚kosak.');
Writeln (' ');

Writeln ('Ide ¡rd az ‚rt‚ket');
Readln (x);
Writeln (' ');

If x<1 then x:=70;
Uki:=(Ut/100)*x;

writeln ('Kimeneti fesz ',Uki:0:4, ' volt.');

a:=a+1;

I:=Uki/R;
Pout:=(Uki*I);


Clrscr;

Writeln (' ');
Writeln (' ');
Writeln ('A kimeneti  ram ',I:0:2,' amper.');
Writeln ('A kimeneti teljes¡tm‚ny ',Pout:0:2,' watt.');
Writeln (' ');
Writeln (' ');
Writeln ('Ugy vedd, hogy egy hangszoro a kovetkezokeppen mukodik.');
Writeln ('Meredeken v ltozik a leadott hang ereje aszerint mennyire jol hasznos¡tja');
Writeln ('a bet pl lt Watt-okat ez‚rt sim n van, hogy pl. egy 200w-os hangsz¢r¢');
Writeln ('sokkal nagyobbat sz¢l mint egy 300 folotti.');
Writeln ('A tekercs ‚s a membr n minos‚ge meghat roz¢ fontoss g£ak.');
Writeln ('Ezenk¡v�l a tekercs ugyanolyan periodikus kiugr sok  ltal van meleg¡tve mint a');
Writeln ('m r eml¡tett tranzisztorok csak sokkal kev‚sb‚ b¡rja mivel alig lehet huteni.');
Writeln ('A hangsz¢r¢k teljes¡tm‚nye kb. a k”vetkezo k‚ppen n‚z ki');
Writeln ('Vegy�nk p‚ldl nak egy m‚lyhangsz¢r¢t ami Zenei 600 w-os.');
Writeln ('Ez  tlagban k‚pess‚g‚n bel�li frekvenciahat rok k”z”tt a 600w-ot');
Writeln ('csup n Kiugr s szeruen visel el.');
Writeln ('Atlagban RMS 300w ot b¡r ki de azt is csak rovid p r m‚sodperces idokre');
Writeln ('Folyamatosan elvisel m r 200w-ot de ettol a felfuggeszt‚se sz‚tnyulik');
Writeln ('p r h¢napon bel�l hallani lehet a hangj n ‚s n‚ha szervizbe ker�l :)');
Writeln ('150 Watt az amit garant ltan hosszuideig folyamatos haszn latn l elb¡r.');
Writeln ('Ahoz, hogy l ssuk mi‚rt misztifik lt k sz‚t a wattokat tudni kell, hogy egy');
Writeln ('j¢ ‚rz‚kenys‚gu hangsz¢r¢ ezen a 150w-on 1m-rol ‚melyg‚st okoz ‚s fejf j st.');
Writeln ('�s mivel az emberek t”bbs‚g‚nek nincsen, de a fent le¡rtak szerint egy 50w-os');
Writeln ('hangsz¢r¢ maximuma 200w k”r�l alakul nagyon sz‚p feliratokat lehet csin lni');
Writeln ('az elad sokhoz. Emellett az is igaz, hogy egy rosszabb ‚rz‚kenys‚gu, viszont');
Writeln ('vastag huzalb¢l tekert hangsz¢r¢ le‚gni ugyan nem fog a wattol de szolni sem.');
Writeln ('Sajna a tekercs ‚rz‚kenys‚ge ‚s a huzalj nak vastags ga ford¡tottan ar nyosak.');
Writeln ('Min‚l ‚rz‚kenyebb ann l jobban melegszik ez‚rt kezdtek');
Writeln ('egyre erosebb m gnesekkel jav¡tani az ‚rz‚kenys‚gen, de az a dr ga kateg¢ria.');
Writeln (' ');
Writeln ('A teljes¡tm‚nyt 1 Khz-es frekvenc¡ n adj k meg ami elfogadott k”z‚p‚rt‚k.');
Writeln ('A hangsz¢r¢k itt szinte egy ltal n nem mozdulnak meg. Ahogy megyunk lefel‚');
Writeln ('egyre jobban akarnak mozogni amit neh‚z £gy biztos¡tani, hogy a tekercs ne s‚r�lj”n');
Writeln ('a m gnes felso sz‚l‚n levo vashoz ‚rve, mert szuk a hely k”z”tt�k (min‚l szukebb');
Writeln ('ann l jobb az ‚rz‚kenys‚g) ‚s ne is okozzon ez az eg‚sz mozg¢ t”meg mell‚khangokat.');
Writeln ('Az xmax jelz‚s megadja, hogy mekkora az a kileng‚s amin‚l a tekercs m‚g');
Writeln ('az eml¡tett szuk vasr‚sz k”zel‚ben marad, de ettol m‚g valamivel tov bb is tud menni');
Writeln ('add¡g amig meg nem fesz�l a felf�ggeszt‚se, olyankor m r torz hangja is szokott lenni.');
Writeln ('Ez‚rt van az, hogy 30 Hz alatt sz‚t lehet hajtani m‚g egy eros hangsz¢r¢t is');
Writeln ('ha nem tud el‚g nagyot mozogni hozz . Ilyenkor 30w m r nagynak sz m¡t¢');
Writeln ('2 cm-es kileng‚st okoz. (Lejjebb m‚gt”bbet) 1990-ben m‚g relative kev‚s hangsz¢r¢');
Writeln ('tudott ennyit mozogni, 2000 kor�l m r akadtak foleg aut¢hifiben, mert ott');
Writeln ('kisebb membr nal kell ugyanannyi levegot megmozgatni. (ezeknek nincsen sz‚p hangjuk)');
Writeln ('Az olcs¢ hangsz¢r¢k ma is 10 mm xmax alatt mozognak.');

Writeln (' ');
Writeln ('Ha akarsz sz molni egy £jat, es elolvastad amit akart l �sd le az 1 billentyut');
Writeln ('majd at entert.');
Writeln ('B rmi m st �tsz 1 helyett a program kil‚p');
Writeln (' ');
Readln (h);
If h=1 then goto Eleje else goto Vege;

Vege:
exit;
end.