Practica 1

INTRODUCCIÓN

Intentar dar una definición de lo que es programar en la actualidad es muy atrevido, por lo que el que desee una de esas definiciones solo tiene que acudir a Internet y encontrara seguro un sin fin de ellas.

Pero para escribir un programa, una aplicación, un paquete informático, hay que combinar varios elementos.

• Técnica.

• Diseño.

• Imaginación.Técnica, que se puede aprender, y que es lo que se quiere enseñar en este curso de iniciación.

Diseño, estilo, gusto, que es más difícil enseñarlo, pues es una cuestión personal, y se trata de ofrecer nuestro producto en un formato agradable para quien lo va a utilizar.

Imaginación, conocida la técnica de programación, está capacidad se puede adquirir con la experiencia, es más difícil, porque lacapacidad de poder crear, imaginar la solución, o forma en la cual se desea plantear o mostrar lo que se quiere obtener, es una capacidad individual que cada uno tiene más o menos desarrollada.

Estos elementos nos permitirán combinar otros tres elementos, que son:

• El hardware, el ordenador.

• Los procedimientos, funciones, clases y objetos.

• Las estructuras de datos.Elementos de programación

Podríamos denominar los siguientes apartados como elementos de la programación.

• Tener claro que queremos hacer.

• Dominar los elementos a nuestro alcance.

• Imaginar espacialmente la solución que deseamos obtener.

• Aplicar dicha solución.

Ha de facilitar su mantenimiento, es decir, debe permitir que se modifique o actualice enfunción de las necesidades del problema a resolver. Para ello es conveniente comentar adecuadamente el código.

Un programa debe quedar escrito y documentado de tal forma que otra persona que venga detrás pueda modificarlo o ampliarlo sin excesiva dificultad.











PROGRAMA 1

Descripción: En este primer programa lograremos que al correr Geany nos diga “Hola mundo”.

program uno;uses crt;
Begin
Clrscr;
write('Hola mundo');
End.



PROGRAMA 2

Descripción: En este programa haremos que nos pregunte nuestro nombre y edad...

program dos;
uses crt;
Var
nombre: string;
edad: integer;
Begin;
Clrscr;
Write('¿Cuál es tu nombre?');
readln(nombre);
Write('¿Cuál es tu edad?');
readln(edad);
Writeln('Tu nombre es ',nombre,' y tu edad es ', edad);
End.PROGRAMA 3

Descripción: En este programa podremos sacar el área y perímetro de un cuadrado.

Program tres;
Uses crt;
Var L, area,perimetro:real;
Begin
Clrscr;
Writeln('Programa 3');
Writeln('Area de un cuadrado');
Writeln('Perimetro de un cuadrado');
Write('Dame el valor de uno de los lados del cuadrado');
Readln(L);
area:=sqr(L);
perimetro:=(L*4);
Writeln('El area del cuadradoes',area:2:2);
Writeln('El perimetro del cuadrado es',perimetro:2:2);
Writeln('Presiona una tecla para continuar');
Readkey;
End.


PROGRAMA 4

Descripción: En este programa podremos sacar el área y perímetro de un círculo.

Program cuatro;
Uses crt;
Var r,area,perimetro:real;
Begin
Clrscr;
Writeln('Programa 4');
Writeln('Area de un circulo');
Writeln('Perimetro de un circulo');Write('Dame el valor del radio del circulo');
Readln(r);
area:=(3.1416*sqr(r));
perimetro:=(3.1416*r*2);
Writeln('El area del circulo es:', area:2:4);
Writeln('El perimetro del circulo es:',perimetro:2:4);
Writeln('Presiona una tecla para continuar');
Readkey;
End.





PROGRAMA 5

Descripción: En este programa obtendremos el área y perímetro de un pentágono!

Program cinco;
Usescrt;
Var L, a,area, perimetro:real;
Begin
Clrscr;
Writeln('Programa 5');
Writeln('Perimetro de un pentagono');
Writeln('Area de un pentagono');
Write('Dame el valor de un lado del pentagono');
Readln(L);
Write('Dame el valor del apotema del pentagono');
Readln(a);
perimetro:=(L*5);
area:=(perimetro*a/2);
Writeln('El perimetro del pentagono es:', perimetro:2:2);
Writeln('El area...