Preenchimento com o asterisco

Program preenchimento ;
var
lin,col:integer;
Begin
for lin:=1 to 25 do
begin
for col:=1 to 80 do
begin
textcolor(red);
gotoxy(col,lin);
write(‘*’);
delay(25);
end;
end;
End.

Deixe uma Resposta

Preencha os seus detalhes abaixo ou clique num ícone para iniciar sessão:

Logótipo da WordPress.com

Está a comentar usando a sua conta WordPress.com Terminar Sessão / Alterar )

Imagem do Twitter

Está a comentar usando a sua conta Twitter Terminar Sessão / Alterar )

Facebook photo

Está a comentar usando a sua conta Facebook Terminar Sessão / Alterar )

Google+ photo

Está a comentar usando a sua conta Google+ Terminar Sessão / Alterar )

Connecting to %s

%d bloggers like this: