| Autor |
Wiadomość |
| boro |
 Wysłany: Czw 20:16, 11 Paź 2007 Temat postu: |
|
KWADRATOWY:
| Kod: | function funkw(x,eps,y0:real):real;
var
r,yn,yn1:real;
begin
yn:=y0;
repeat
yn1:=0.5*(yn+x/yn);
r:=yn-yn1;
yn:=yn1;
until abs(r)<eps;
funkw:=yn;
end; |
6ENNY:
| Kod: | function funsz(x,eps,y0:real):real;
var
r,yn,yn1:real;
begin
yn:=y0;
repeat
yn1:=((2.0*yn+x/sqr(yn))/3.0);
r:=yn-yn1;
yn:=yn1;
until abs(r)<eps;
funsz:=yn;
end; |
|
|
 |
| dziemian_rec |
| Wysłany: Czw 19:45, 11 Paź 2007 Temat postu: |
|
ma ktoś może treść funkcji: pierwiastek kwadratowy i sześcienny (w paskalu) ?? z wykładu ....
Bo w skrypcie niema  |
|
|
| wicher |
| Wysłany: Wto 20:58, 09 Paź 2007 Temat postu: |
|
| a właśnie odnośnie tego co na jutro, trzeba chyba sinus, cosinus(+ hiperboliczne), a wykresy też?? |
|
|
| Rzemierzy |
| Wysłany: Wto 16:45, 09 Paź 2007 Temat postu: |
|
Czarcie Czarcie... widziales nazwe tematu??  tam pisze PS2  wiec to nie dla nas |
|
|
| czart |
| Wysłany: Wto 16:04, 09 Paź 2007 Temat postu: |
|
1. To Delphi ??
2. To jest zadane na jutro ? |
|
|
| Roberto |
| Wysłany: Wto 14:39, 09 Paź 2007 Temat postu: Metody Numeryczne - silnia PS2 |
|
| Kod: | unit SilniaD;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
type
TForm1 = class(TForm)
Edit1: TEdit;
SpeedButton1: TSpeedButton;
Memo1: TMemo;
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{var a:single;}
{$R *.dfm}
function silnia(n:single):single;
BEGIN
IF (n = 0)or(n = 1) THEN silnia := 1
ELSE silnia := n*silnia(n - 1)
END;
procedure TForm1.SpeedButton1Click(Sender: TObject);
var a,c:single;
begin
a:=strtofloat(edit1.Text);
c:=silnia(a);
memo1.Lines.Add(floattostr(c));
end;
end. |
[/code] |
|
|