domingo, 1 de febrero de 2009

Ultima Evaluación Secc. 6. Prof. Karina

Hola buenos dias alumnos de la sección 6, esta entrega debe hacerse antes del miercoles. Si se les dificulta la transcripcion lo realizan a lapicero y scanean el archivo y me lo hacen llegar a mi correo.

Ejercicio No. 1:
Diseñe un algoritmo para encontrar el entero positivo más pequeño (ent) para el cual la suma 1 + 2+ 3+ 4...+ ent es menor que limite.

Ejercicio No.2:
Diseñar en el lenguaje pascal una ecuación de segundo grado Ax^2+ Bx +C = 0

Algun comentario haganlo en el Blog.

Entregar en grupos.

6 comentarios:

  1. hola buenas tardes esta esta un poco dificil pero buscaremos la manera de resolverlos y hacer una buena definicion de los ejercicios.

    ResponderEliminar
  2. Buenas tardes Profesora. Estos ejercicios estan un poco dificiles, pero trataremos todo lo posible de realizatrlos... Estos se nos hacen super complicados porque no tenemos mucha información, solo una guía...

    Eury mendoza Sección "6"

    ResponderEliminar
  3. Buenos dias profesora, coincido con mis compañeros, están dificiles los ejercicios, pero trataremos de resolverlos a ver como nos va...

    ResponderEliminar
  4. Muy buenas tarde profesora espero que este muy bien, mire ya hoy es miércoles y no consigo como hacer ese trabajo que es hasta hoy. Se que también me falta un trabajo que no entregue y he sacado muy bajas notas. Ya no tengo oportunidad de aprobar su materia, prefiero cúrsala el semestre que viene, lo que me da lastima es con los laboratorio que tendría que volver a ver.
    Se despide:
    electroalfa_13@hotmail.com

    ResponderEliminar
  5. buenas noche prpfesora le envie los ejercicios a su correo hotmail, quisiera saber para cuando nos puede dar las notas finales, gracias por todo.

    ResponderEliminar
  6. Buenos dias profesora, como no le pudimos enviar los ejercicios a ninguno de sus correos se lo enviamos a traves de este medio.A lo mejor no se logra ver bien porque se corre y no se ve igual que en word. Intentaremos otra vez con los correos. O si usted quiere nos dice si se lo podemos llevar en fisico el viernes.

    sección "6"
    Delgado Viulman C.I: 15 545 141
    González Anyerín C.I: 18 755 552 González Mireya C.I: 15 267 552



    1) Diseñe un algoritmo para encontrar el entero positivo más pequeño (ent) para el cual la suma 1 + 2+ 3+ 4...+ ent es menor que limite.

    Inicio var
    Suma,num, n1, n2, n3, n4…n9, min: entero
    Minimo=0
    Escribir “introduzca numero positivo”
    Leer num
    Suma= n1+ n2+ n3…n9
    Total_suma = total_suma +suma
    Escribir suma
    Leer suma
    Mientras num >= 0
    Si num>min
    Entonces min es el mun
    Fin si
    Leer num
    Fin mientras
    Escribir “el menor numero entero “ min
    Fin.



    2) Diseñar en el lenguaje pascal una ecuación de segundo grado Ax^2+ Bx +C = 0

    Const
    No_solucion=0;
    Una_ solución=1;
    Dos_soluciones=2;
    Function Resolver_eq2ngrado(a, b, c: real; var, x1, x2:real):integer;
    Var
    Discr:real;//el discriminante
    Begin
    Discr:= b*b – 4 *a*c;
    If discr<0 then
    Begin
    Resolver_eq2 ngrado:= no_solucion:
    End
    Else
    Begin
    If discr: othen
    Begin
    Resolver_eq2ngrado:=una_solucion;
    X1=-b/ (2*a);
    X1:=x2; //constancias de que son iguales
    End
    Else//solo puede ser discr > 0
    Begin
    Resolver_eq2ngrado:=Dos_soluciones;
    X1:=(-b+ sqrt (discr)) / (2*a);
    X2:=(-b - sqrt (discr)) / (2*a);
    End;
    End;
    End;
    Program tipo function
    Const
    No_solucion =0;
    Una_solucion = 1;
    Dos_soluciones= 2;
    Function resol eq2ngrado (a, b, c: real ; var x1, x2: real) : integer;
    Begin
    …// el código de la función esta listada mas arriba
    End;
    Type
    T función= function (a, b, c: real; var x1, x2: real) : integer;
    Var
    Función: T función;
    X1, X2, a, b, c: real;
    Begin
    Write (‘A : ‘ ); Readln (a) ;
    Write (‘B : ‘ ); Readln (b) ;
    Write (‘C : ‘ ); Readln (c) ;
    Function:=resol eq2ngrado; {asignamos a función la dirección de resolver eq2ngrado}
    Case function (a, b,c, X1,X2) of
    No_solucion: begin
    Writeln ( ‘ esta ecuación no tiene solución real’);
    End;
    Una_solucion: begin
    Writeln (‘una solución: X= ‘ )
    End;
    Dos_soluciones : begin
    Writeln ( ‘ dos soluciones’);
    Writeln (‘X1 = ‘ );
    Writeln (‘X2 = ‘ );
    End;
    End;
    End.

    ResponderEliminar