From: webmajsterek gmail.com
Subject: Re: Free Pascal 2.1.4 Beta
On 1 Cze, 21:06, astro <r.ziomberWytnij stop_dla_spamu!astronomia.pl>
wrote:
> Ukazala sie kolejna wersja (jeszcze beta) kompilatora Free Pascal...www.freepascal.orgwww.freewarefiles.com/program_10_117_32963.html
a moze zapodasz jakies nowosci ?? ja tam bety bym jeszcze nei
pobieral -- bo ostanio pobralem 0.9.23 lazarusa i mi sie dozjechal
-- od fontow poczynajac , po nie dajace sie skompilowac zrodla
( wlasciwie to iinterfejsy -- dla qt , gkt2 ).
From: Tygrys <news15 wywalto.tygrys.com.pl>
Subject: Re: Typ zmiennej?
malysz79 poczta.onet.pl pisze:
> Mam prosty program:
> program sam;
> var
> n,c,d:extended;
> begin
> d:=1111111111;
> c:=1111111111;
> n:=d*c;
> writeln(n:0:0);
> end.
> daje wynik: 1234567900987654300
> teraz ten sam program przy innej typie zmiennej:
> program sam;
> var
> n,c,d:real;
> begin
> d:=1111111111;
> c:=1111111111;
> n:=d*c;
> writeln(n:0:0);
> end.
> daje wynik: 1234567900987654000
>
> A to właściwy wynik: 1234567887654321
>
> Co jest nie tak?
>
Wszystko jest tak. Policz to sobie na kalkulatorze i też dostaniesz
obcięcie dokładności.
Typy zmiennoprzecinkowe jak real, double czy extended potrafią pamiętać
kilka-kilkanaście cyfr znaczących z liczby, tzn. np liczbę
1234567890 zapamiętają jako 123456 * 10E4, czyli 1234560000.
A to, jaka jest dokładność przechowania danych dla różnych typów
zobaczysz w helpie albo dokumentacji.
Do dokładnych obliczeń musisz używać liczb całkowitych, niestety ich
zakres jest ograniczony, nawet dla typu int64.
Większa dokładność jest możliwa przy użyciu specjalnych klas, nie
będących standardowo w pascalu
Tygrys
From: webmajsterek gmail.com
Subject: Re: Kernel w pascalu
On Jun 8, 10:07 pm, "Wiktor S." <SPAM.wswik... poczta.SPAM.fm.SPAM>
wrote:
>
> ha, tamto by o 100% asm :-)
nie szkodzi --- zostaw swoje dzielo na wieki w archiwach sieci .
From: Daniel Janus <przesunmalpe nathell.korpus.pl>
Subject: Re: Borland Pascal - =?iso-8859-2?Q?obs=B3uga?= SQL
Dnia 31.08.2007 Magda S <sowamagda vp.pl> napisał/a:
> Donald E. Knuth napisał edytor TEX w Turbo Pasalu 3.x.
OIMW to jest nieprawda. I nie ma czegoś takiego jak ,,edytor TEX'',
jest system składu TeX.
--
Daniel 'Nathell' Janus, GG #1631668, przesunmalpe nathell.korpus.pl
create_initial_thread(initial_function);
lose("CATS. CATS ARE NICE.\n");
-- Steel Bank Common Lisp, sbcl/runtime/runtime.c:425
From: "Wiktor S." <SPAM.wswiktor poczta.SPAM.fm.SPAM>
Subject: Re: operator =
> aha juz czaje -- po prostu clasa to cosik takiego
>
> type PJakis=^Tjakis;
> TJakis=object( jakis_przodek )
>
> wlasnie probowalem przeciazyc taka konstrukcje i sie nie dalo .
Tak, klasa ma automatycznie to ^. Tylko oczywiście class to mimo wszystko
nie jest to samo co taki sam object z daszkiem ;-)
--
Azarien
From: DarekM <darekm emadar.com>
Subject: Re: Warunek =?ISO-8859-2?Q?sprawdzaj=B1cy_ilo=B6=E6_liczb_?=
vampirrr gmail.com napisał(a):
> On 11 Cze, 21:23, Łukasz 'Maly' Ostrowski <m... USUNnemo.pl> wrote:
>> vampi... gmail.com wrote:
>>> Witam, chcę zrobić warunek, który znajdzie czwórki liczb pierwszych
>>> należących do tej samej dziesiątki.
>> Mhm, ciekawe akademickie zadanie... ;).
>>
>> Warunek ten wyglada tak:
>>
>> if((kontener_ktory_przechowuje_liczby_pierwsze.Length=4) and
>> liczby_w_kontenerze_naleza_do_tej_samej_dziesiatki) then
>> znalezlismy_komplet();
>>
>>> Nie moge tego wykombinować, pomocy.
>> A co już wykombinowałeś?
>>
>
> Treść zadania:
> Dana jest liczba n. Znaleźć czwórki liczb pierwszych mniejszych od n,
> należyących do tej samej dziesiątki (np. 11, 13, 17 i 19).
dwie liczby x,y należą do tej same dziesiątki gdy
(x div 10)= (y div 10)
Darek
From: Solaris <solaris be.inspired>
Subject: Re: pakiet projektow w lazarusie ??
Dnia Wed, 13 Jun 2007 00:42:12 -0700, jak=BFe pi=EAknego
webmajsterek gmail.com wystuka=B3 co zawarte poni=BFej:
:: czy w lazarusie da sie trzymac mega pakiet ?? taki pakiet w ktorym
:: jest kilka projektow ( np jedna aplikacjia ( okienkowa ) , jeden
:: program typu freepascal , jakas biblioteka , jeszcze jakis plik
:: asm ) , a do kazdego podpiac odzielny skrypt kompilujacy ( np do
:: asm ) ??
::=20
:: jakos tak dzinie sie sklada ze lazarus mi sie wywala gdy chce utworzyc
:: libary !! tez tak macie ??
::=20
Czy w Lazarusie da si=EA trzyma=E6 'mega pakiet'? To taki pakiet w kt=F3rym
jest kilka projekt=F3w (np. jedna aplikacja (okientowa), jeden program
typu w OP, jaka=B6 biblioteka, jeszcze jaki=B6 plik asemblera), a do ka=BFd=
ego
chce pidi=B1=E6 oddzielnny skrypt kompiluj=B1cy (np. do asemblera)?
Jako=B6 tak dziwnie si=EA sk=B3ada, =BFe Lazarus mi si=EA wywala gdy chce u=
tworzy=E6
bibliotek=EA (library)! Te=BF tak macie?
--=20
Born to raise hell.
Linux registered user: 408584
Contact: GG#3802676, solaris#idns.pl
19:16:28 -!- Platyna Erroneous Nickname=20
From: Magda S <sowamagda vp.pl>
Subject: Re: Liczenie literek - string?
Solaris pisze:
> Dnia Mon, 23 Apr 2007 17:34:37 +0200, jakże pięknego
> Łukasz 'Maly' Ostrowski <maly USUNnemo.pl> wystukał co zawarte poniżej:
>
> :: Solaris wrote:
> :: > Daj całą treść zadania, napiszę Ci rozwiązanie.
> ::
> :: Prowokacja Solaris? Jak zwykle?:>:> ;)
>
> Hehe, a jak myślisz? ;) Dostanie taki kod o jaki prosi ^_^
>
Function IleLiter(S:String):integer;
var
ls: integer;
begin
ls := length(S);
if (ls = 0)
then
IleLiter := 0
else if (ls=1) then
begin
if S[1] in Letters
then
IleLiter := 1
else
IleLiter := 0
end
else
IleLiter := IleLiter(S[1]) + IleLiter(Copy(S, 2, ls-1));
end;
and (S[1] in Letters))
From: "Paweł Koś" <Pablo568 wp.pl>
Subject: Jak się do tego zabrać.
1) Wyświetlić liczbę całkowitą na wyświetlaczu 7-segmentowym stosując
procedurę graficzną Bar.
6-13
2) Dla tablicy rekordów z zadania 6-13 należy napisać procedurę, wypisującą
wartości pól A,B,C oraz X wszystkich tych rekordów, które wyróżnione są
wartością pola WartDelta wskazującą na prawdziwość wyrażenia Delta=0
Za każdą pomoc wdzięcznie dziękuję!
From: "Wiktor S." <SPAM.wswiktor poczta.SPAM.fm.SPAM>
Subject: =?iso-8859-2?Q?Re:_Turbo_Pascal_do_C++_--_jak_przekonwertowa=E6=3F=3F?=
> ciekawe zastosowanie instrukcji case... nie lepiej if .. else ?? :D
czasami jest przejrzyściej :-)
ostatnio musiałem przerobić wszystkie kombinacje czterech zmiennych boolean.
Zamiast tak
if a then
begin
if b then
begin
if c then
begin
if d
then foo
else bar;
end else begin
if d
then foo
else bar;
end;
end else begin
..
..
..
..
przejrzyściej wyglądało
case a of
true : case b of
true : case c of
true : case d of
true : foo;
false : bar;
false : case d of
true : foo;
false : bar;
end;
false : case c of
true : case d of
true : foo;
false : bar;
false : case d of
true : foo;
false : bar;
end;
end;
false :
itd.
end;
Później wszystkie "false" zastąpiłem przez "else", by kod wykonywał się
odrobinę szybciej (powinien - nie mierzyłem).
--
Azarien
From: =?iso-8859-2?Q?=A3ukasz_'Maly'_Ostrowski?= <maly USUNnemo.pl>
Subject: Re: [OT/organizacyjnie] kwota slownie
Solaris wrote:
>> p.s. wylaczylem rejestracje w faq-wiki, bo jakieś pie***one
>> spamery z azji wciskały stronki pozycjonujące, takteż jak
>> ktoś chce konto w kierunku aktywnego dopisywania to walić
>> do mnie, Solar chyba też ma admina więc do niego chyba też
>> się da ~=].
>
> Napewno mam status administratora? :)
Już masz ~=].
--
Pozdrawiam,
Łukasz 'Maly' Ostrowski.
http://maly.nemo.pl/
From: "Krzysztof Tabaczynski" <ktabaczynski wp.pl>
Subject: Re: Liczenie literek - string?
Użytkownik "Magda S" <sowamagda vp.pl> napisał w wiadomości
news:fbm79m$5lv$1 news.onet.pl...
> 2. Trochę mi żal człowieka, bo wychodzi na to, że wyciągnęłam go z z
> niezbyt głębokiej wody (topił się) i wrzucam do gnojówki. Chyba już więcej
> nie poprosi o gotowca.
Proszenie o gotowca wcale nie jest takim
dużym błędem przy pisaniu programów.
Wiele lat pracowałem właśnie w takim trybie.
Pisałem szkielet programu i najważniejsze
procedury prosząc kilku młodszych kolegów
właśnie o "gotowce". Ważna jest tylko precyzyjna
definicja owego "gotowca".
Pozdrowienia. Krzysztof z Tychów.
From: "Janusz" <dasej wwwwp.pl>
Subject: FPC MySQL
Witam.
Szukam clienta do servera MySQL 5.0 pod FCP.
W necie znalazłem tylko clienta 4.0.
Janusz.
From: Terrmit <terrmitv poczta.onet.pl>
Subject: Re: [Lazarus][Linux] FindFirst i Attr
> W fpc to jest hm, albo fstat() albo fpfstat albo coś takiego,
> w każdym razie ten call powinien powiedzieć Tobie wszystko
> o danym entity na dysku. Reference i flagi sa pewnie w
> reference do libc.
http://lazarus-ccr.sourceforge.net/docs/rtl/oldlinux/fstat.html
Niestety info.nlink = 1 niezależnie, czy jest to plik, czy
link symboliczny do pliku.
Rozróżnia tylko katalog od linku do katalogu dając wynik
$04 dla katalogu
$12 dla linku do katalogu
Z kolei info.mode daje taki sam wynik jak Mode z TSearchRec.
Problem katalogów mogę uznać za rozwiązany, ale pozostają
jeszcze pliki. Jeśli zechcę skasować znaleziony plik,
a okaże się, że nie jest to rzeczywisty plik, tylko dowiązanie
symboliczne, to skasuję to dowiązanie, a plik zostaje.
Sławek
From: Logrox <logrox o2.pl>
Subject: =?iso-8859-2?q?Pascal_i_szyfrowanie_string_u=BFywaj=B1c_md5?=
Orientuje si=EA kto=B6, jak zaszyfrowa=E6 tekst typu String poprzez md5.
bardzo prosi=B3bym o jakie=B6 materia=B3y albo o podanie kodu =BCr=F3d=B3ow=
ego.
Z g=F3ry dzi=EAkuje. :).
POZDRO.
From: Terrmit <terrmitv poczta.onet.pl>
Subject: Re: Lazarus, Indy, TIdHttp i zdarzenie OnStatus
Terrmit napisał(a):
> Łukasz 'Maly' Ostrowski napisał(a):
[ciach]
> Na Windows 98SE jest ten sam problem. Na XP nie sprawdzałem
> póki co. Obawiam się jednak, że będzie to samo.
>
> Sławek
Może jutro posiedzę nad tym na XP-ku i sprawdzę.
Teraz nie da rady, bo żona okupuje kompa z XP-kiem.
Sławek