Pascal

aruh
(usa Outra)

Enviado em 16/06/2011 - 03:11h

Galera foi me passado o seguinte problema.

Criar um procedimento (procedure) que desenhe uma moldura ao redor da tela do micro (quadrado 24x80). Faça no programa principal uma chamada a esta procedure, desenhando a moldura e após escrevendo "Hello World" no meio da tela (Coluna X=35, Linha Y=12). Para desenhar a moldura use os caracteres especiais da tabela ASCII.

conseguir fazer até essa parte aqui, alguém poderia me dar uma luz.

Program Quest3;
USES CRT;

Procedure moldura(altura,largura:integer);
Var
x,y:integer;


Begin

gotoxy(1,1);
For x:=1 to largura-1 do {primeira linha horizontal}
write('*');

gotoxy(1, altura-1);
for x:1 to largura-1 do {segunda linha horizontal}
write('*');

gotoxy(1,1); {primeira coluna}
for y:=2 to altura-1 do
writeln('-');

for y:=1 to altura-1 do begin
gotoxy(largura, y); {segunda coluna}
writeln('-');
end;

End;

procedure textocommoldura(texto: string;largura, altura:integer);
var posicaox,posicaoy : integer;

begin
moldura(24,48);
posicaox:=trunc(largura div 2);
posicaoy:=trunc(altura div 2);
gotoxy(posicaox, posicaoy);
write(texto);
end;
begin

clrscr;
textocommoldura('Hello World',25,12);
readkey;
end.