Pascal/Turbo Pascal - pascal

   
Vista:

pascal

Publicado por sara sari.love16@yahoo.com (6 intervenciones) el 06/11/2013 00:48:09
hola Ramon, Gracias por tu colaboracion, con respecto al programa de escribir una funcion con los parametros a y b donde a< b en donde la funcion regresa la suma 1 / a + 1 /(a+1)+ 1/(a+2)+...+ 1/b, 1 esta siendo dividido por los denominadores indicados; a, a+1, a+2
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

pascal

Publicado por ramon (2072 intervenciones) el 06/11/2013 13:35:54
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
{Seria esto}
 
 program sumas;
 uses
   crt;
  var
    a, b : integer;
    total : real;
 
  procedure entradanumeros(var a, b : integer);
  begin
     clrscr;
     write('   Entre Num. A : ');
     readln(a);
     write('   Entre Num. B : ');
     readln(b);
  end;
 
  function ejecucion(a, b : integer) : real;
  var
    y : integer;
  begin
     ejecucion := 0;
     if a < b then
     begin
        for y := 1 to b do
        total := total + (1 / (a + y));
        ejecucion := total;
     end;
  end;
 
  procedure presenta3digitos(nn : real);
  begin
       writeln('  El Resultado Es = ',total:0:3);
    end;
 
  begin
     entradanumeros(a,b);
     writeln('   La Suma Es = ',ejecucion(a,b):0:3);
     writeln;
     presenta3digitos(total);
     readkey;
  end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar