Ejemplo 78 figuras geometricas - Cursos Pro A tu alcance (4)

Vista previa del material en texto

Ejercicios con PASCAL 
Ejemplo 78 
 
Programa que permite imprimir figuras geométricas en PASCAL: 
 
program DibujarFiguras; 
 
uses 
 crt; 
 
procedure DibujarCuadrado; 
begin 
 writeln(' ********** '); 
 writeln(' * * '); 
 writeln(' * * '); 
 writeln(' * * '); 
 writeln(' ********** '); 
end; 
 
procedure DibujarTriangulo; 
begin 
 writeln(' * '); 
 writeln(' * * '); 
 writeln(' * * '); 
 writeln(' * * '); 
 writeln(' ********* '); 
end; 
 
Ejercicios con PASCAL 
procedure DibujarCirculo; 
begin 
 writeln(' **** '); 
 writeln(' ** ** '); 
 writeln(' ** ** '); 
 writeln(' ** ** '); 
 writeln(' ** ** '); 
 writeln(' **** '); 
end; 
 
var 
 figura: char; 
 
begin 
 clrscr; 
 
 writeln('Seleccione la figura que desea dibujar:'); 
 writeln('1 - Cuadrado'); 
 writeln('2 - Triángulo'); 
 writeln('3 - Círculo'); 
 
 readln(figura); 
 
 clrscr; 
 
 case figura of 
 '1': DibujarCuadrado; 
 '2': DibujarTriangulo; 
Ejercicios con PASCAL 
 '3': DibujarCirculo; 
 else 
 writeln('Opción inválida.'); 
 end; 
 
 readln; 
end.