Zapis matematickych operacii v pascale (hladam)

Potreboval by som najst nejaku stranku kde by som nasiel nejake matematicke operacie a ich pascalovsky tvar, log-y, mocniny, odmocniny lubovol.cisel, exonenty s e a podobne. Potrebujem totiz dost zlozity vzorec nejako dostat do pascala ale neviem par veci zapisat.

za pomoc dakujem

napis vzorec sem, a my ti ho skusime prepisat

jednak ze by som to musel odfotit lebo take nieco nezapisem, a jednak ze by som mal z toho trt makovy keby mi to spravil niekto iny... ale vdaka za ponuku

juho · Príspevok od používateľa **juho** » 15 okt 2007, 13:52

ale co by si nezapisal tu je kodovanie windows-1250 tak neondiaj ze by sa ten vzorec nedal napisat.

neppo

tema akurat vyhovuje jednej mojej otazke... ako spravit odmocninu iba pomocou while, for, + a - ???

caesar1987

odmocnina v delphi

Kód: Vybrať všetko

var
   vstup, a, i, j, vystup:integer;
begin
  a:= 0;
  vystup:= 0;
  vstup:= strtointdef(edit1.Text, -1);
  if vstup > 0 then
  begin
    for j:= 1 to vstup do
    begin
      if vystup < vstup then
      begin
        for i:=1 to j do
          vystup:= vystup+j;
        if vystup < vstup then
          vystup:=0;
        a:= j;
      end;
    end;

  memo1.Lines.Add('Číslo: ' + inttostr(vstup));
  memo1.Lines.Add('Odmocnina: ' + inttostr(a));
  memo1.Lines.Add(' ');
  end;

end;

a ak by si chcel tak aj logaritmus

Kód: Vybrať všetko

var
   zaklad, argument, a, b, i, j, k:integer;
begin
  i:= 1;
  zaklad:= strtointdef(edit1.Text, -1);
  argument:= strtointdef(edit2.Text, -1);
  b:= zaklad;
  if (zaklad > 0) and  (argument > 0) then
  begin
    for k:= 1 to argument do
      if b < argument  then
      begin
        i:= i+1;
        a:= b;
        for j:=1 to zaklad-1 do
          b:= b + a;
      end;
    memo1.Lines.Add('log ' + inttostr(argument) + ' so základom ' + inttostr(zaklad));
    memo1.Lines.Add('Výsledok: ' + inttostr(i));
    memo1.Lines.Add(' ');
  end;

end;

robil som to v dobe, ked som vedel delphi mesiac

funguje ale je mozne, ze by sa to dalo aj lahsie

programator

Pre odmocninu existuje este jednoduchsie riesenie a to nasledovne :
vezmime si napr. cislo 27. Ak chceme napisat jeho 3-tiu odmocninu (co vieme ze je 3) napiseme to takto : 27^(1/3) .
Cize mozeme zneuzit funkciu power, kt. delphi poskytuje... funkcia moze vyzerat nasledovne :

Kód: Vybrať všetko

function fsqrt(Base, Exponent, Root : Extended) : Extended;
begin
   Result := Power(Base, Exponent / Root);
end;

a priklad volania :

Kód: Vybrať všetko

showmessage(FloatToStr(fsqrt(27, 1, 3)));

Tak poprve ako som hovoril ak mi to niekto spravi bude mi to na tri veci kedze nebudem vediet AKO to spravil a podruhe aj keby som chcel, tak by to trvalo ...

A netlacte sa mi do temy, tato tema je o mojej sprostosti, nie o vasej!

//to mastermind: to bolo myslene inak len som zabudol pripisat smajla

mi-chau napísal:Tak poprve ako som hovoril ak mi to niekto spravi bude mi to na tri veci kedze nebudem vediet AKO to spravil a podruhe aj keby som chcel, tak by to trvalo ...

A netlacte sa mi do temy, tato tema je o mojej sprostosti, nie o vasej!

tak to sa teda sakramentsky mylis. urobili dobre ze nezalozili vlastnu temu.

caesar1987

programator napísal: Cize mozeme zneuzit funkciu power, kt. delphi poskytuje... funkcia moze vyzerat nasledovne :

lenze on moze pouzit len while, for, + a -

teda aspon to tak pisal

no nic poradil som si sam

neppo

caesar1987 napísal:lenze on moze pouzit len while, for, + a -

teda aspon to tak pisal

jj presne tak a nie v deplhi ale v pascale aj ked sa to da lahko prepisat...

caesar1987

neppo napísal:jj presne tak a nie v deplhi ale v pascale aj ked sa to da lahko prepisat...

ja som ti tam dal tu odmocninu v delphi.. skus to prepisat..