Pascal/Turbo Pascal - Ayuda por favor en pascal (funciones)

   
Vista:

Ayuda por favor en pascal (funciones)

Publicado por Sara sari.love16@yahoo.com (6 intervenciones) el 14/10/2013 14:02:45
a)Escriba una funcion que describa dos parametros enteros, p y q con p < q.
la funcion debe regresar la suma 1/p + 1/(p+1) + 1/(p+2) +...1/q


b)Escriba un enunciado de llamada para la funcion anterior que haga que la computadora imprima el resultado de la suma 1/101 + 1/102 +...+ 1/500
hasta 5 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

Ayuda por favor en pascal (funciones)

Publicado por ramon (2072 intervenciones) el 15/10/2013 12:29:50
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
{A ver si es algo de esto}
 
program suma;
 uses
    crt;
  var
    t : integer;
    d1, d2 : integer;
 
  function lasuma(p, q : longint) : longint;
  var
    tomo : longint;
  begin
     lasuma := 0;
     tomo := p;
     if p < q then
     begin
        for t := 1 to q do
        tomo := tomo + t;
        lasuma := tomo;
     end
   else
      writeln('*** Numero 1º Mayor Numero 2º ´);
  end;

 begin
     clrscr;
     write('   Entre 1º Numero Entero : ');
     readln(d1);
     write('   Entre 2º Numero Entero : ');
     readln(d2);
     writeln('   Lasuma Es : ',lasuma(d1,d2));
     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