Pascal/Turbo Pascal - pascal

   
Vista:

pascal

Publicado por Sara sari.love16@yahoo.com (6 intervenciones) el 05/11/2013 20:43:29
hola, necesito escribir una funcion en pascal que describa dos parametros enteros, a y b con a < b.
el programa debe regresarla suma

1/ a + 1/(a+1) + 1/(a+2) +...+1/b

luego escribir un enunciado de llamada para la funcion anteriorque ahga que la computadora imprima el resultado de la suma: 1/101 +1/102 +...+1/500 hasta 3 digitos decimales.
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 00:10:27
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
44
45
46
{Tengo problema para entender esto  1/ a + 1/(a+1) + 1/(a+2) +...+1/b son dividir 1 por a o esto}
 
 program sumas;
 uses
   crt;
  var
    a, b : integer;
    total : integer;
 
  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) : integer;
  var
    y : integer;
  begin
     ejecucion := 0;
     if a < b then
     begin
        for y := 1 to b do
        total := total + (a + y);
        ejecucion := total;
     end;
  end;
 
  procedure presenta3digitos(nn : integer);
  var
    digit : string[12];
    begin
       str(nn,digit);
       writeln('  El Resultado Es = ',copy(digit,1,3));
    end;
 
  begin
     entradanumeros(a,b);
     writeln('   La Suma Es = ',ejecucion(a,b));
     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