Ejercicios Pasados en Clases

Nicolás Ripoll · Nicolás Ripoll el Jue Abr 17, 2008 12:34 am

Buenas,

hoy pasamos un par de ejercicios simples estilo certámen para poder evaluar el estado del curso para el 21.04.08

Ejercicios Vistos:

1.- Pregunta n°2 - Cert.1 - 2° Sem 2008

Realice un programa en pascal que resuelva la sumatoria

con un error R (1>R>0) determinado por el usuario, que representa a la diferencia entre el término n-1 y n de la sucesión ya dada, y que luego entregue en pantalla el valor de la sumatoria y el n° de términos utilizado.

Program pregunta2;
Var
''''''''''''''i, s :integer;
''''''''''''''x, suma, anterior, R : real;
Begin
''''''''''''''repeat
''''''''''''''writeln('Ingrese el valor R');
''''''''''''''readln(R);
''''''''''''''until ( R >=0) AND (R<=1) ;
''''''''''''''suma := 0; x := 0; s := 1;i:=1;
''''''''''''''repeat
''''''''''''''anterior := x;
''''''''''''''x:= 1 /(i+1);
''''''''''''''s := -s;
''''''''''''''i:= i + 1;
''''''''''''''suma := suma + s*x;
''''''''''''''until abs(anterior - x) <= R ;
''''''''''''''writeln('El numero de terminos utilizado fue ',i-1);
''''''''''''''writeln('y sumaron ',suma);
''''''''''''''readln;
End.

Nota: Para el espaciado de la identación utilicé '''''''''''''' para que fuese notoria, pues el navegador no me permitio generar espacios, pero de todas maneras la identación se encuentra correcta pues no aparecen bucles iterativos ni decisiones abiertas como lo son el if, while, for, case, etc... que "corran" la estructura.

2.- Imprimir verticalmente en Pantalla un número ingresado por el usuarioy contar cuantos dígitos lo conforman (Se aplicó Yapaen este ejercicio)

Los alumnos que asistieron a la ayudantía tienen el desarrollo, por lo que les insto a que si alguíen se anima lo suba al foro.