Pascal - Chi lo sa? - Piero Tofy.it

Forum - Pascal - Chi lo sa? - Pagina 2

Pagine: [ 1 2 ]

Anonymous (Member)
Guru

Messaggi: 1059
Iscritto: 30/07/2006

Postato alle 13:05
Sabato, 19/08/2006

allora fai un cerchio talmente grande in modo tale che i bordi escano dallo schermo

siddy (Normal User)
Newbie

Messaggi: 8
Iscritto: 08/08/2006

Postato alle 19:01
Lunedì, 21/08/2006

Non mi sembra buona nemmeno questa idea, poiché lo schermo è pieno di altre cose e non è assolutamente il caso di oscurarle... Altre idee? Vi prego...

Herbert Kilpin (Normal User)
Newbie

Messaggi: 14
Iscritto: 21/08/2006

Postato alle 22:41
Lunedì, 21/08/2006

Testo quotato

Postato originariamente da nikipe_silver:

cavolo scrivi una libreria e non te ne rendi conto?!?!

fatti curare... :rotfl:

Uno per scivere una libreria in pascal deve esser bello sbronzo, questo giustifica il fatto che non ricordi o finga di non ricordare... :rotfl:

siddy (Normal User)
Newbie

Messaggi: 8
Iscritto: 08/08/2006

Postato alle 10:25
Mercoledì, 30/08/2006

Ma allora non c'è proprio nessuno in grado di rispondere concretamente alle mie domande poste inizialmente????

Maury91 (Member)
Expert

Messaggi: 531
Iscritto: 18/09/2006

Postato alle 18:37
Lunedì, 23/10/2006

Io sono in grado di rispondere alla tua domanda, usa questa procedura e non ti uscirà un poligono senza contorno :

Codice sorgente - presumibilmente Delphi

procedure Poligono(x, y, r, l: integer);
var n,c,d,e,f : integer;
a,b : real;
begin
n := 0;
repeat
a := sin(n*pi/(l/2));
b := cos(n*pi/(l/2));
c := trunc(x-r*a);
d := trunc(y-r*b);
n := n + 1;
a := sin(n*pi/(l/2));
b := cos(n*pi/(l/2));
e := trunc(x-r*a);
f := trunc(y-r*b);
line(c,d,e,f)
until n >= l;
end;

Buon divertimento

Pagine: [ 1 2 ]