Re: rysowanie kółek w pascalu

Article View: pl.comp.lang.pascal

Article #92857

Back to pl.comp.lang.pascal Previous Next

#92857

From: bala_dżi
Date: Mon, 13 Apr 2009 07:01

36 lines
2021 bytes

Wczoraj się wziąłem i napisałem taki "kodzik" ;-):
program grr;
uses Crt,Graph;
var
 sterownik,tryb,liczba,r,i:integer;
 x:array [0..50] of integer;
 y:array [0..50] of integer;

begin
 sterownik:=0; InitGraph(sterownik,tryb,'');
 if GraphResult<>0 then
 begin
  writeln ('blad grafiki'); halt;
 end;

 r:=20;
randomize;
for i:=1 to 20 do
begin
 x[i]:=random(320);
 y[i]:=random(200);
end;

for i:=1 to 20 do
begin
 if (abs (x[i+1]-x[i])+ abs (y[i+1]-y[i])) > r*2 then
 circle (x[i],y[i],r);
end;

 Delay(3000);
 CloseGraph;

 readln;
end.
Ale to nie to, dla dwóch kółek to działa nie moge wpasc na to jak
sprawdzic zeby się nie przecinało ze wszystkimi.

Technical Details

Message-ID: <cf45cc82-118b-403c-9d74-0f2e44329e03@l1g2000yqk.googlegroups.com>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!news.onet.pl!news.nask.pl!news.nask.org.pl!newsfeed00.sul.t-online.de!t-online.de!border2.nntp.dca.giganews.com!nntp.giganews.com!postnews.google.com!l1g2000yqk.googlegroups.com!not-for-mail

References: <965c12ab-f22e-4c33-be78-3718696c62c7@r33g2000yqn.googlegroups.com> <bjr6f5u3nmup.7gtm65h9drt6.dlg@40tude.net>

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!news.onet.pl!news.nask.pl!news.nask.org.pl!newsfeed00.sul.t-online.de!t-online.de!border2.nntp.dca.giganews.com!nntp.giganews.com!postnews.google.com!l1g2000yqk.googlegroups.com!not-for-mail
From: bala_dżi <larry.marcin@gmail.com>
Newsgroups: pl.comp.lang.pascal
Subject: Re: rysowanie kółek w pascalu
Date: Mon, 13 Apr 2009 00:01:16 -0700 (PDT)
Organization: http://groups.google.com
Lines: 37
Message-ID: <cf45cc82-118b-403c-9d74-0f2e44329e03@l1g2000yqk.googlegroups.com>
References: <965c12ab-f22e-4c33-be78-3718696c62c7@r33g2000yqn.googlegroups.com>  <bjr6f5u3nmup.7gtm65h9drt6.dlg@40tude.net>
NNTP-Posting-Host: 79.162.91.174
Mime-Version: 1.0
X-Trace: posting.google.com 1239606076 5780 127.0.0.1 (13 Apr 2009 07:01:16 GMT)
X-Complaints-To: groups-abuse@google.com
NNTP-Posting-Date: Mon, 13 Apr 2009 07:01:16 +0000 (UTC)
Complaints-To: groups-abuse@google.com
Injection-Info: l1g2000yqk.googlegroups.com; posting-host=79.162.91.174;  posting-account=11u2pAoAAAAqE-cC28kNuWF05zNjYR1V
User-Agent: G2/1.0
X-HTTP-UserAgent: Mozilla/5.0 (Windows; U; Windows NT 5.1; pl; rv:1.8.1.7)  Gecko/20070914 Firefox/2.0.0.7,gzip(gfe),gzip(gfe)
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message