![bullet](../../../../_themes/-mio-newbeige/bluon.gif) | Per la natura autocentrante di
Esplosione bisogna calcolare per tentativi le coordinate
"rig”,”col" del suo angolo in alto a sinistra a partire dalle dimensioni
“lar“,“alt“ dell’ingombro finale di Esplosione, a partire dai seguenti algoritmi:
![bullet](../../../../_themes/-mio-newbeige/giallo.gif) | riga
iniziale:
rig = [(25-alt) DIV 2] +1; |
![bullet](../../../../_themes/-mio-newbeige/giallo.gif) | colonna
iniziale: col = [(80-lar) DIV 2]+1
(se 25-lar è pari) o
col = [(80-lar) DIV 2]+2
(se 25-lar è dispari) |
![bullet](../../../../_themes/-mio-newbeige/giallo.gif) | dimensioni
lar1 = lar - 2 ,
alt1 = alt - 1
(dato che
RECUPcorn
prevede la presenza dell'ombra): |
Esempio di
Applicazione n°2 |
Es.
n°1 |
![Mostra Effetto](../../../../img/28x48/OcchioG.gif) |
![Esegui il Programma](../../../../img/28x48/BandieraG.gif) |
![Scarica l'Esempio d'Applicazione](../../../../img/28x48/Scarica1G.gif) |
PROGRAM Prova_Implosione_B;
USES Crt,
giobe;
VAR tasto:char;
BEGIN
Viacur;
{************************************}
Riempi1(7,1,' ');
{*
Clearscreen con il carattere ' '*}
{* con colore Blu(1) su Bianco (7) *}
{************************************}
{Esplosione (ritardo,lar,alt,txt,sfo,tipo,numPAG);}
Esplosione(
10 , 40, 15, 14, 1 , 2 , 2
);
GotoXY (30,8);
write ('Prova di Esplosione');
{**************************************}
tasto:=readkey; {* Aspetta la
pressione di un tasto *}
{**************************************}
{Implosione(ritardo, rig, col, lar, alt, sfo, numPAG);}
Implosione( 10
, 5 , 20, 40, 15, 1 , 2)
;
tasto:=readkey; {**************************************}
GotoXY (1,25); {* Aspetta un tasto e poi torna a DOS *}
RipCur; {**************************************}
END.
|
|