Traceje Um Retangulo
Artigos Científicos: Traceje Um Retangulo. Pesquise 860.000+ trabalhos acadêmicosPor: Joseag9016 • 17/3/2015 • 2.508 Palavras (11 Páginas) • 158 Visualizações
Program tracejeUmRetangulo ;
var
cont:integer;
Begin
begin
gotoxy(1,1);
write('-');
end;begin
gotoxy(2,1);
write('-');
end;
begin
gotoxy(3,1);
write('-');
end;
begin
gotoxy(4,1);
write('-');
end;
begin
gotoxy(5,1);
write('-');
end;
begin
gotoxy(6,1);
write('-');
end;
begin
gotoxy(7,1);
write('-');
end;
begin
gotoxy(8,1);
write('-');
end;
begin
gotoxy(9,1);
write('-');
end;
begin
gotoxy(10,1);
write('-');
end;
begin
gotoxy(11,1);
write('-');
end;
begin
gotoxy(12,1);
write('-');
end;
begin
gotoxy(13,1);
write('-');
end;
begin
gotoxy(14,1);
write('-');
end;
begin
gotoxy(15,1);
write('-');
end;
begin
gotoxy(16,1);
write('-');
end;
begin
gotoxy(17,1);
write('-');
end;
begin
gotoxy(18,1);
write('-');
end;
begin
gotoxy(19,1);
write('-');
end;
begin
gotoxy(20,1);
write('-');
end;
begin
gotoxy(21,1);
write('-');
end;
begin
gotoxy(22,1);
write('-');
end;
begin
gotoxy(23,1);
write('-');
end;
begin
gotoxy(24,1);
write('-');
end;
begin
gotoxy(25,1);
write('-');
end;
begin
gotoxy(26,1);
write('-');
end;
begin
gotoxy(27,1);
write('-');
end;
begin
gotoxy(28,1);
write('-');
end;
begin
gotoxy(29,1);
write('-');
end;
begin
gotoxy(30,1);
write('-');
end;
begin
gotoxy(31,1);
write('-');
end;
begin
gotoxy(32,1);
write('-');
end;
begin
gotoxy(33,1);
write('-');
...