Forum Forum 1 Grupy Ćwiczeniowej Strona Główna

 Forum 1 Grupy Ćwiczeniowej
Forum studentów informatyki Politechniki Białostockiej
 

Metody Numeryczne - silnia PS2

 
Napisz nowy temat   Odpowiedz do tematu    Forum Forum 1 Grupy Ćwiczeniowej Strona Główna -> 3 semestr
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
Roberto



Dołączył: 14 Mar 2007
Posty: 76
Przeczytał: 0 tematów

Ostrzeżeń: 0/5
Skąd: Białystok
PostWysł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]
Powrót do góry
Zobacz profil autora
czart



Dołączył: 02 Mar 2007
Posty: 168
Przeczytał: 0 tematów

Ostrzeżeń: 0/5
Skąd: Z lasu
PostWysłany: Wto 16:04, 09 Paź 2007    Temat postu:
1. To Delphi ??
2. To jest zadane na jutro ?
Powrót do góry
Zobacz profil autora
Rzemierzy



Dołączył: 01 Mar 2007
Posty: 15
Przeczytał: 0 tematów

Ostrzeżeń: 0/5
PostWysłany: Wto 16:45, 09 Paź 2007    Temat postu:
Czarcie Czarcie... widziales nazwe tematu?? Very Happy tam pisze PS2 Razz wiec to nie dla nas Razz
Powrót do góry
Zobacz profil autora
wicher



Dołączył: 07 Mar 2007
Posty: 70
Przeczytał: 0 tematów

Ostrzeżeń: 0/5
Skąd: z 13 posterunku
PostWysł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ż??
Powrót do góry
Zobacz profil autora
dziemian_rec



Dołączył: 08 Mar 2007
Posty: 38
Przeczytał: 0 tematów

Ostrzeżeń: 0/5
Skąd: z nikąd
PostWysł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 Evil or Very Mad
Powrót do góry
Zobacz profil autora
boro



Dołączył: 27 Lut 2007
Posty: 286
Przeczytał: 0 tematów

Ostrzeżeń: 0/5
PostWysł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;
Powrót do góry
Zobacz profil autora
Wyświetl posty z ostatnich:   
Napisz nowy temat   Odpowiedz do tematu    Forum Forum 1 Grupy Ćwiczeniowej Strona Główna -> 3 semestr Wszystkie czasy w strefie EET (Europa)
Strona 1 z 1

 
Skocz do:  
Możesz pisać nowe tematy
Możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach


fora.pl - załóż własne forum dyskusyjne za darmo
Powered by phpBB © 2001, 2005 phpBB Group
deoxBlue v1.0 // Theme created by Sopel stylerbb.net & programosy.pl

Regulamin
Na skróty:To już 5 semestr???Chillout3 semestrSpam Room4 semestrHumorLinuxSystemy ekspertoweGrafika komputerowaSystemy operacyjneMetody probabilistyczne i statystykaProgramowanie systemów aplikacyjnychArchitektura KomputerówSystemy SamoucząceSystemy Operacyjne 2Układy elektroniczneAngielskiProgramowanie ObiektoweBezpieczeństwo Systemów KomputerowychBazy DanychStatystyka 2OiPL [o ile cos takiego bedzie]