Scripts de pascal

Dibujar un pentagono en pascal

A continuación vamos a hacer un programa que dibuje un pentágono utilizando asteriscos (*) y la instrucción write.

program pentagono;
uses
    crt;
begin
     clrscr;
     textcolor(yellow);
     writeln("*":40);
     writeln("*      *":44);
     writeln("*          *":46);
     writeln("*              *":48);
     writeln("*            *":47);
     writeln("*          *":46);
     writeln("*  *  *  *":45);
     readln;
end.

 

Autor: hugo DescargarDescargar

Comentarios en "Dibujar un pentagono en pascal"

Table 'programa_programas.t_comentarios' doesn't exist