Article View: pl.comp.lang.pascal
Article #92862Re: rysowanie kółek w pascalu
From: Łukasz 'Maly' Ostrowski
Date: Thu, 16 Apr 2009 22:27
Date: Thu, 16 Apr 2009 22:27
72 lines
3579 bytes
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-mailReferences:
<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