🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.pascal
Article #92862

Re: rysowanie kółek w pascalu

#92862
From: Łukasz 'Maly' Ostrowski
Date: Thu, 16 Apr 2009 22:27
72 lines
3579 bytes
On Thu, 16 Apr 2009 01:33:27 -0700 (PDT), bala_dżi wrote:
>  Rozumiem istotę losowania okręgów. Ale nie bardzo czaję jak to tam
> idzie dalej,
>  Dlaczego deklarujesz typ? Chodzi Ci o to aby nie wyłaziły?

Deklaruje typ żeby się nie powtarzać. Programiści są leniwi. ;)

>    Możesz napisać mi to:
>> function czyKolidujaDwa(x1,y1,r1,x2,y2,r2):boolean;
>> begin
>>   // umiesz zaimplementowac?
>> end;

Nie, nie mogę napisać gotowca, w czym problem? Już mam
złe przeczucie bo miałeś alternatywę zakodowaną?
Plagiacik i nadzieja na gotowca? ;) Nie tutaj.

>  I to też:
>> procedure dodajOkrag(ox,oy);
>> begin
>>   // też powinieneś w stanie być odpowiednio zmanipulowac
>>   // zmienne tx, ty i ile zeby dodac element do kolekcji
>> end;

Analogicznie.

>   To na szczęście rozumiem
>> function czyKolidujeZeWszystkimi(x,y,r):boolean;
>> begin
>>   czyKoliduje := false;
>>   for n:=1 to ile do
>>     if (czyKoliduja2(tx[n], ty[n], r, x, y, r))
>>       czyKoliduje := true; // tu mozna nawet machnac Exit(true); ;)
>>   Result := czyKoliduje;
>> end;

Gdzie dopiszesz zmienne(w jakim scope?), jakiego typu?

>> Utrudniasz sobie, losuj przesunięte okręgi.
>> x := Random(320-2*r)+r;
>> analogicznie y. Będziesz miał pewniaka że wszysto będzie
>> w View Porcie, bez zbędnego kombinowania.
> Tak zrobię ;-)

W aucie =].

>> p.s. Jakiego kompilatora używasz? Mam nadzieję że fpc
>>      bo ja preferuje ten dialekt, i preferuje ludzi
>>      nie używających archaicznego Turbo Pascal'a z
>>      powodów:
>>      - bo nauczyciel każe kraść
>>      - bo tak
>>
>>      ;-).
> 
> Też wolę fpc, ale program ma być na DOS, a fpc jest na Win32, jestem
> zmuszony korzystać z Turbo :-(. Zresztą Turbo to abadonware, więc za
> korzystanie z niego nikt mnie raczej nie zamknie ;-). Zresztą Borlanda
> już nie ma

1. TP to nie jest abandonware, wnosisz po wieku?
2. Borlanda przejęła inna firma, markuje kompilator o 
   wiele wieków lepszy, za darmo, dla celów nawet komercyjnych,
3. fpc ma też target go32, który jest extenderem protected-mode
   DOS, QED.
4. fpc jest znacznie lepiej zaprojektowane ;).

-- 
Pozdrawiam,
Łukasz 'Maly' Ostrowski.      http://maly.nemo.pl/
ICQ: 148498663     GG: 2544385      AIM: malyzgora
GTalk: l3vi4than@gmail.com        ASTRA: L3viathan
Technical Details
Message-ID: <1kxbivuqrf8yt$.127ag7yb40vab$.dlg@40tude.net>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!newsfeed.pionier.net.pl!news.dialog.net.pl!not-for-mail
References: <965c12ab-f22e-4c33-be78-3718696c62c7@r33g2000yqn.googlegroups.com> <bjr6f5u3nmup.7gtm65h9drt6.dlg@40tude.net> <cf45cc82-118b-403c-9d74-0f2e44329e03@l1g2000yqk.googlegroups.com> <q025rvbbsfsw.1ll6oa39v41ha$.dlg@40tude.net> <8be05bb3-a81c-45ec-8d42-a56108df3072@f17g2000vbf.googlegroups.com> <1wwtx7p9jg45z.1qenm4vzw4dnd$.dlg@40tude.net> <a3a16e92-2cf3-4065-be0d-00014715e513@v19g2000yqn.googlegroups.com>

Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!newsfeed.pionier.net.pl!news.dialog.net.pl!not-for-mail
From: Łukasz 'Maly' Ostrowski <maly@nemo.pl>
Newsgroups: pl.comp.lang.pascal
Subject: Re: rysowanie kółek w pascalu
Date: Fri, 17 Apr 2009 00:27:44 +0200
Organization: Acme
Lines: 72
Message-ID: <1kxbivuqrf8yt$.127ag7yb40vab$.dlg@40tude.net>
References: <965c12ab-f22e-4c33-be78-3718696c62c7@r33g2000yqn.googlegroups.com>  <bjr6f5u3nmup.7gtm65h9drt6.dlg@40tude.net> <cf45cc82-118b-403c-9d74-0f2e44329e03@l1g2000yqk.googlegroups.com> <q025rvbbsfsw.1ll6oa39v41ha$.dlg@40tude.net> <8be05bb3-a81c-45ec-8d42-a56108df3072@f17g2000vbf.googlegroups.com> <1wwtx7p9jg45z.1qenm4vzw4dnd$.dlg@40tude.net> <a3a16e92-2cf3-4065-be0d-00014715e513@v19g2000yqn.googlegroups.com>
NNTP-Posting-Host: static-78-8-208-81.ssp.dialog.net.pl
Mime-Version: 1.0
X-Trace: news.dialog.net.pl 1239920938 28192 78.8.208.81 (16 Apr 2009 22:28:58 GMT)
X-Complaints-To: abuse@dialog.net.pl
NNTP-Posting-Date: Thu, 16 Apr 2009 22:28:58 +0000 (UTC)
User-Agent: 40tude_Dialog/2.0.15.1
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit