Pascal/Turbo Pascal - Funcfion promedio en oascal

 
Vista:
Imágen de perfil de cesar
Val: 19
Ha aumentado su posición en 2 puestos en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

Funcfion promedio en oascal

Publicado por cesar (10 intervenciones) el 11/08/2017 05:43:42
EL ENUNCIADO hacer un prpgramita que me de el promedio de n notas puede ser sin o con peticion al usuario EL problema es muy facil como tal pero como funcion se me complica la vida Al correr esto me da 3 numeros aleatorios y para el promedio
Yo use esta version Como poner a?? puede ser poner writ " ingrese nota acumulada
readln a
lohice no me corrio Tambien ouse 3 notas como variables n1 n2 y n3 t ampoco corrio donde puedo ponerlo ???

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Var
   n : integer;   //numero de datos o notas 
   a:longint;   // nota acumulada
   p:longint;   //promedio 
 
   Function promN(n:integer):integer;
  begin
  if n = 0 then
  promN:= 1
  else
   promN := n * promN(n - 1);
 end;
 
 
 begin
       n := 3;
        writeln(promN(n));
   	p := a div n;
        writeln(p);
         a := a+n;
         writeln(a);
         readln;
 
end.
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
Imágen de perfil de cesar
Val: 19
Ha aumentado su posición en 2 puestos en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

Funcion promedio en Pascal

Publicado por cesar (10 intervenciones) el 11/08/2017 05:45:26
El titulo es FUNCION PROMEDIO EN PASCAL
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

Funcfion promedio en oascal

Publicado por ramon (2127 intervenciones) el 11/08/2017 14:13:02
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
47
{A ver si esto ayuda }
 
program promedio;
uses
   crt;
 
Var
pro : array[0..3] of integer;
n : integer; {//numero de datos o notas}
a:longint; {// nota acumulada }
p:longint; {//promedio  }
 
Function promN(n:integer):integer;
begin
    if n = 0 then
    promN:= 1
  else
     promN := n * promN(n - 1);
  end;
 
  function elpromedio(d : array of integer) : integer;
  var
     i : integer;
  begin
     elpromedio := 0;
     for i := 0 to 3 do
     p := p + d[i];
     elpromedio := p div i;
  end;
 
  begin
    clrscr;
    pro[0] := 5;
    pro[1] := 6;
    pro[2] := 8;
    pro[3] := 7;
    writeln('  Las Notas [ ',pro[0],' ] [ ',pro[1],' ] [ ',pro[2],' ] [ ',
    pro[3],' ]');
    writeln('  El Promedio Es = ',elpromedio(pro));
     {n := 3;
    writeln(promN(n));
    p := a div n;
    writeln(p);
    a := a+n;
    writeln(a);}
   readln;
 end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar
Imágen de perfil de cesar
Val: 19
Ha aumentado su posición en 2 puestos en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

Funcfion promedio en oascal

Publicado por cesar (10 intervenciones) el 12/08/2017 05:20:20
gracias amigo 10,puntos corrio perfecto!!!
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