Ejercicios Resueltos Lógica Computacional

function Operaciones.getNumero2:double;//metodo selector para el atributo numero2beginresult:=numero2;end;function Operaciones.obtenerSuma:double;//metodo de trabajo para obtener la suma de dos numeros,//relacionados mediante los atributos de la clasevarresultado:double;beginresultado:=getnumero1+getnumero2;result:=resultado;end;function Operaciones.obtenerMultiplicacion:double;//metodo de trabajo para obtener la multiplicacion de dos numeros,// relacionados mediante los atributos de la clasevarresultado:double;beginresultado:=getnumero1*getnumero2;result:=resultado;end;end.b) Obtener el cuadrado de un numero dado.Solución:unit unidad2;interfacetypeCuadrado = class //definicion de un tipo classprivatenumero:real; //atributos privados pertenecientes a la clasepublicconstructor Create;procedure setNumero(valor:real);function getNumero:real; //metodos publicos pertenecientes a la clasefunction obtenerCuadrado:real;end;implementationconstructor Cuadrado.Create;//creacion del metodo constructor e inicializacion de valores para los atributos//para la clasebeginnumero:=0;end;

procedure Cuadrado.setNumero(valor:real);//metodo modificador para el atributo numerobeginnumero:=valor;end;function Cuadrado.getNumero:real;//metodo selector para el atributo numerobeginresult:=numero;end;function Cuadrado.obtenerCuadrado:real;//metodo de trabajo que permite obtener el cuadrado del valor estipulado// en el atributo numerovarresultado:real;beginresultado:=numero*numero;result:=resultado;end;end.c) Obtener el promedio de notas de un estudiante , a razon de tres notas dadasSolución:unit unidad3;interfacetypePromedioNota = class //definicion de un tipo classprivatenota1:real;nota2:real; //atributos privados pertenecientes a la clasenota3:real;publicconstructor Create;procedure setNota1(valor:real);procedure setNota2(valor:real);procedure setNota3(valor:real); //metodos publicos pertenecientes a la clasefunction getNota1:real;function getNota2:real;function getNota3:real;function obtenerPromedio:real;end;implementationconstructor PromedioNota.Create;//constructor de la clase e inicializacion de valores para los atributosbeginnota1:=0;nota2:=0;nota3:=0;end;

procedure PromedioNota.setNota1(valor:real);//metodo modificador para el atributo nota1beginnota1:=valor;end;procedure PromedioNota.setNota2(valor:real);//metodo modificador para el atributo nota2beginnota2:=valor;end;procedure PromedioNota.setNota3(valor:real);//metodo modificador para el atributo nota3beginnota3:=valor;end;function PromedioNota.getNota1:real;//metodo selector para el atributo nota1beginresult:=nota1;end;function PromedioNota.getNota2:real;//metodo selector para el atributo nota2beginresult:=nota2;end;function PromedioNota.getNota3:real;//metodo selector para el atributo nota3beginresult:=nota3;end;function PromedioNota.obtenerPromedio:real;//metodo de trabajo que permite obtener el promedio de tres notas, plasmadas mediante los atributos de la clasevarvalorpromedio:real;beginvalorpromedio:=( ( nota1 + nota2 + nota2)/3);result:=valorpromedio;end;end.

ActividadRealizar la actividad en grupo de 3 estudiantes , explicando el porque de cada método yatributo, entregar el documento el dia 27 de octubre del 2009 en el departamento deingenieria de sistemas y telecomunicaciones de forma impresa.Diseñar e implementar en object pascal, la solución para los siguientes problemas, utilizando elparadigma de programación orientado a objetos.a) Obtener el índice de masa corporal, de una persona con base a la siguiente formula:IMC:peso/altura*alturab) Obtener el área y el perímetro de un cuadrado, con base a un ladoc) Obtener el área y el perímetro de un rectángulo, en relación a dos lados (Lado1, Lado2)d) Investigar como se realiza la instancia de una clase en object pascal ,tomar uno de los ejerciciosplanteados dentro de la actividad y realizar la instancia de una clase. Explicando cada pasorealizado.