TUNING FORUM - bazar, chip tuning, auto tuning online

ovlada nekdo tenhle program. jazyk a byl by mne ochoten poradit pripadne odkaz na nejaky forum o pascalu? diky

ovladal sem ho celkem dobre, ale 2 roky sem ho nepouzil...

ptej se.... treba budu vědět, mám tu i nějaký programy co sem psal tak treba by ti to pomohlo...

Taky jsem ho chvili delal, kdyztak SZ nebo to postni sem...

mam do skoly napsat program na pocitani exponentu uz ho mam akorat mne nevali kdyz dam zapornej exponent nevim jak to vosetrit tak jestli bys nevedel? pak mam jeste dalsi programy to kdyztak pozdeji

tady je ten zdrojak:

program exponent;
uses Crt;
var a,b: integer;
x:real;
c:char;

begin
ClrScr;
repeat
repeat
writeln ('Zadejte zaklad');
readln (a);
if (a>0) then begin
writeln ('Zadejte exponent');
readln (b);
x:=exp(b*ln(a));
end
else writeln ('Musite zadat kladne cislo');
until a>0;
writeln ('Vysledek je' ,x:8:2);
writeln ('Pocitat znovu? A/N');
c:=readkey;
until (c='n') or (c='N');
end.

Co zkusit to writeln ('Vysledek je' ,x:8:2); dát hned za to x:=.........

.... a předpokládám, že ten repeat je tam jen jednou

Jardo, mám o Pascalu ze školy scripta...ozvi se, nějak se domluvíme a já Ti je klíďo půjčím

jen je musím zkusit od někud vyhrabat

Sry - only C++, ale je to dost podobný

proměnou b si dej jako char a pak cykl kdy bude prochazet znak po znaku

sem blbej hovno char, string

ten exponent musi bejt kladnej, nebo jen neumis udelat i zapornej?
a jestli tomu rozumim tak pocitas A na B ??

v praskalu trochu umim ale nevim co je exponent

kurva, tady je to samej programátor to až budu potřeboval v programování s něčím poradit, tak vím, kde se zastavit!

tak jsem asi blbej ale ted jsem to bez jakejchkoliv dlasich uprav zkousel a funguje to normalne

no vidiš to jak sme ti poradili

Tadaaa, a je to :p

no a jak byste prepsali tenhle program do behuschopneho stavu:

kostra programu pro spocteni nejvetsiho spolecneho delitele;

- nacti dve cisla
- spocti nsd(a,b) pomoci postupneho odcitani

- pocitame s x a y
- cyklus
pokud x>y => x zmensi o y
pokud y>x => y zmensi o x
podminka x=y ; ne : opakuj od zacatku
ano : nsd(a,b)=x=y => konec
konec cyklu


opet motivace :
nutno si uvedomit, ze pokud nejake cislo deli a i b tak deli i jejich rozdil
tzn., plati nasledujici implikace

(x/a) ^ (x/b) => (x/(a-b))
(a = x * m) ^ (b = x * n) => (a-b = x * (m-n) = x * q)