desenhando

Ola pessoal, estou postando mais um programa de pascal, esse é chique em, com ele você será capaz de fazer desenhos, espero que gostem.

Program asterisco ;
var
c:char;
x,y,col,lin,cor:integer;
Begin
x:=40;
y:=15;
cor:=0;
gotoxy(x,y);
write(‘*’);

// ate aki eh a borda
for col:=1 to 80 do
begin
gotoxy(col,6);
write(‘*’);
end;

for col:=1 to 80 do
begin
gotoxy(col,25);
write(‘*’);
end;

for lin:=6 to 25 do
begin
gotoxy(1,lin);
write(‘*’);
end;

for lin:=6 to 25 do
begin
gotoxy(80,lin);
write(‘*’);
end;

repeat
// Dados
textcolor(7);
gotoxy(1,3);
writeln(‘lin:’,y:2);
gotoxy(10,3);
writeln(‘Col:’,x:2);
gotoxy(65,3);
writeln(‘Cor:’);
textcolor(cor);
gotoxy(70,3);
write(chr(177),cor:2);

c:=upcase(readkey);
if c=’M’ then // mudança de cor
begin
cor:=cor+1;
if cor>15 then
cor:=0;
end
else
if c=’W’ then
begin
if y>7 then
begin
y:=y-1;
end;
end
else
if c=’S’then
begin
if y<24 then
begin
y:=y+1;
end;

end
else
if c=’A’ then
begin
if x>2 then
begin
x:=x-1;
end;
end
else
if c=’D’ then
begin
if x<79 then
begin
x:=x+1;
end;

end
else
if c=’Q’ then
begin
if (y>7) and (x>2) then
begin
x:=x-1;
y:=y-1;
end;
end
else
if c=’E’ then
begin
if (y>7) and (x<79) then
begin
x:=x+1;
y:=y-1;
end;
end
else
if c=’Z’ then
begin
if (y2) then
begin
x:=x-1;
y:=y+1;
end;
end
else
if c=’C’ then
begin
if (y<24) and (x<79) then
begin
x:=x+1;
y:=y+1;
end;
end;

if c=’P’ then
begin
clrscr;
end;

gotoxy(x,y);
write(‘*’);
until (c=’F’);

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: