Pascal/Librerie e funzioni predefinite: differenze tra le versioni
Contenuto cancellato Contenuto aggiunto
Riga 185:
'''draw(''x1'',''y1'',''x2'',''y2'',''c'')'''
Questa funzione permette di disegnare una linea dal punto ''x1'', ''y1'' al punto ''x2'', ''y2'' di colore ''c''
Esempio di applicazione in crt e graph:
'''{Prodotto da lolloscarrow.altervista.org, questo programma disegna un triangolo applicando
a ogni vertice una circonferenza di raggio 50 px}
program diegna_triangolo;
uses crt,graph;
var triangolo,modo:smallint;
x,y,x1,y1,x2,y2:longint;
e:boolean;
begin
repeat
clrscr;
textcolor(10);
gotoxy(2,5); writeln('Per uscire dal programma premere "e"');
delay(2000);
clrscr;
textcolor(11);
gotoxy(2,2);writeln('PROGRAMMA DI DISEGNO MATEMATICO');
gotoxy(2,3);writeln('per una migliore visualizzazione mantenre le "y" sotto 800');
textcolor(yellow);
gotoxy(3,4);writeln('inserire i dati richiesti:');
textcolor(11);
write('x:_'); readln(x);
write('y:_'); readln(y);
write('x1:_'); readln(x1);
write('y1:_'); readln(y1);
write('x2:_'); readln(x2);
write('y2:_'); readln(y2);
{questa sezione serve in caso che il limite del range delle y venga superato
e quindo lo diminuisce un poco}
if y>=1000 then
begin
y:=y-400;
readln(y);
end;
if y2>=1000 then
begin
y2:=y2-400;
readln(y2);
end;
if y1>=1000 then
begin
y1:=y1-400;
readln(y1);
end;
triangolo:=detect; {sezione di inizializzazione della grafica }
initgraph(triangolo,modo,'');
{da qui in poi si entra nella sezione grafica: setcolor imposta il colore di
ciò che si vuole disegnare}
setcolor(yellow);
putpixel(x,y,12); {putpixel sposta il puntatore attivo in una determinata
posizione x,y in questo caso putpixel(x,y,colore del punto}
line(x,y,x1,y1); {disegna una linea dal puntatore attivo a un punto di
coordinate x1,y1}
setcolor(red);
putpixel(x1,y1,11);
line(x1,y1,x2,y2);
setcolor(green);
putpixel(x2,x2,10);
line(x2,y2,x,y);
setcolor(15);
circle(x,y,50); {diegna una circonferenza di centro x,y e di raggio 50}
circle(x1,y1,50);
circle(x2,y2,50);
readln;
closegraph; {sezione obbligatoria indica quando termina l'eseguzione grafica}
readln;
until e;
end.'''
[[Categoria:Pascal|Librerie e funzioni predefinite]]
| |||