Forum 1 Grupy Ćwiczeniowej
Forum studentów informatyki Politechniki Białostockiej
FAQ
Szukaj
Użytkownicy
Grupy
Galerie
Rejestracja
Profil
Zaloguj
Forum Forum 1 Grupy Ćwiczeniowej Strona Główna
->
3 semestr
Napisz odpowiedź
Użytkownik
Temat
Treść wiadomości
Emotikony
Więcej Ikon
Kolor:
Domyślny
Ciemnoczerwony
Czerwony
Pomarańćzowy
Brązowy
Żółty
Zielony
Oliwkowy
Błękitny
Niebieski
Ciemnoniebieski
Purpurowy
Fioletowy
Biały
Czarny
Rozmiar:
Minimalny
Mały
Normalny
Duży
Ogromny
Zamknij Tagi
Opcje
HTML:
TAK
BBCode
:
TAK
Uśmieszki:
TAK
Wyłącz HTML w tym poście
Wyłącz BBCode w tym poście
Wyłącz Uśmieszki w tym poście
Kod potwierdzający: *
Wszystkie czasy w strefie EET (Europa)
Skocz do:
Wybierz forum
To już 5 semestr???
----------------
Programowanie systemów aplikacyjnych
Metody probabilistyczne i statystyka
Grafika komputerowa
Systemy operacyjne
Układy elektroniczne
Systemy ekspertowe
Angielski
Architektura Komputerów
Bazy Danych
Systemy Samouczące
Bezpieczeństwo Systemów Komputerowych
Systemy Operacyjne 2
Programowanie Obiektowe
Statystyka 2
OiPL [o ile cos takiego bedzie]
Linux
4 semestr
3 semestr
Chillout
----------------
Spam Room
Humor
ShoutBox
Przegląd tematu
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]
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