Pascal/Turbo Pascal - unqa sola linea

   
Vista:
Imágen de perfil de cesar

unqa sola linea

Publicado por cesar (10 intervenciones) el 24/09/2017 03:40:35
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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
program video27array;
// pide a un usuario que introduzca el tiempo en horas en unsa semana
// y da por pantalla el dia que debe trabajar mas y el de menos ademas de
//la media de horas estudiadas semanalmente
 
CONST
  dias:array[1..7]of string =('lunes','martes','mier', 'jue', 'vie', 'sab', 'dom') ;
 
TYPE
  thoras= array[1..7]of real;
 
    VAR
      horas:thoras;
 
      PROCEDURE insertar(VARhoras:thoras);
      VAR i:Integer ;
 
begin
 
 
  for i:=1 to 7 do
   begin
                write('por favor introduce las horas que has estudiado el dia ',i,
                'de esta semana' );
                readln(horas[i]);
 end;
 
end;
FUNCTION media(horas:thoras):real;
VAR i:Integer ;
 
  begin
       media:=0;
  for i:=1 to 7 do
                media:= media+horas[i];
 
  media:= media/7;
 
  END;
      FUNCTION maximo(horas:thoras:integer ;
      Var i:integer, t:real;
         begin
               t:=horas[1];
                 maximo:=1;
                for i:=2 to 7 do
                 if (horas [i] >t )then
 
                     t:=horas[i];
                 maximo:=i;
                   end;
                   end
        FUNCTION minimo(horas:thoras:integer ;
      Var i:integer; t:real;
         begin
               t:=horas[1];
                 maximo:=1;
                for i:=2 to 7 do
                 if (horas [i]<t ) then
 
                     t:=horas[1];
                 minimo:=i;
                   end;
 
 
         End
 
     FUNCTION minimo(horas:thoras:integer  ;
      Var t:integer t:real;
         begin
               t:=horas[1];
                 minimo:=1;
                for i:=2 to 7 do
                 if (horas [i] <t ) then
                 t=   horas [i]
                  begin
               t:=horas[1];
                 minimo:=i;
 
         end ;
         End
BEGIN
 insertar(horas);
   writeln;
   writeln('media de horas estudiadas', (horas):0:2);
      writeln ('el dia que mas has estudiado es',dias[maximo (horas)],'y el dia
      que menos has estudiado es ',dias[maximo (horas)],' , ' ) ;
   readln;
end.

ERROR

FUNCTION maximo(horas:thoras:integer ;

error falal de sintaxis en esa linea video27array.lpr(40,35) Fatal: Syntax error, ")" expected but ":" found
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

unqa sola linea

Publicado por dario (38 intervenciones) el 24/09/2017 06:23:26
Te falta cerrar parentesis en algunas funciones.
Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Imágen de perfil de cesar

unqa sola linea

Publicado por cesar (10 intervenciones) el 24/09/2017 18:18:56
cuales;; no las veo???
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
Imágen de perfil de cesar

unqa sola linea

Publicado por cesar (10 intervenciones) el 25/09/2017 02:41:30
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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
program video27array;
 // pide a un usuario que introduzca el tiempo en horas en unsa semana
// y da por pantalla el dia que debe trabajar mas y el de menos ademas de
//la media de horas estudiadas semanalmente
 
CONST
  dias:array[1..7]of string =('lunes','martes','mier', 'jue', 'vie', 'sab', 'dom') ;
 
TYPE
  thoras= array[1..7]of real;
 
    VAR
      horas:thoras;
 
      PROCEDURE insertar(VARhoras:thoras);
      VAR i:Integer ;
 
begin
 
 
  for i:=1 to 7 do
   begin
                write('por favor introduce las horas que has estudiado el dia ',i,
                'de esta semana' );
                readln(horas[i]);
 end;
 
end;
function media(horas:thoras):real;
VAR i:Integer ;
 
  begin
       media:=0;
  for i:=1 to 7 do
                media:= media+horas[i];
 
  media:= media/7;
 
  END ;
      FUNCTION maximo(horas:thoras):integer ;
      Var i:integer; t:real;
         begin
               t:=horas[1];
                 maximo:=1;
                for i:=2 to 7 do
                 if (horas [i] >t )then
                    begin
                     t:=horas[i];
                 maximo:=i;
                   end;
                   end ;
        FUNCTION minimo(horas:thoras):integer ;
      Var i:integer; t:real;
         begin
               t:=horas[1];
                 minimo:=1;
                for i:=2 to 7 do
                 if (horas [i]<t ) then
                       begin
                     t:=horas[1];
                 minimo:=i;
                   end;
 
 
         End ;
 
BEGIN
 insertar(horas);
   writeln;
   writeln('media de has estudiadas':,media(horas));
      writeln ('el dia que mas has estudiado es',dias[maximo (horas)],'y el dia
      que menos has estudiado es ',dias[minimo(horas)],' , ' ) ;
   readln;
end.

AHORA EL ERROR ESTA EN writeln('media de has estudiadas':,media(horas));

AGRADEZCO SU ASYUDA
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

unqa sola linea

Publicado por dario (38 intervenciones) el 25/09/2017 04:47:12
Hola, pruebalo asi:

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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
program video27array;
// pide a un usuario que introduzca el tiempo en horas en unsa semana
// y da por pantalla el dia que debe trabajar mas y el de menos ademas de
//la media de horas estudiadas semanalmente
 
CONST
	dias:array[1..7]of string =('lunes','martes','mier', 'jue', 'vie', 'sab', 'dom') ;
 
TYPE
	thoras= array[1..7]of real;
 
VAR
	horas:thoras;
 
PROCEDURE insertar(VAR horas:thoras);
VAR i:Integer ;
begin
	for i:=1 to 7 do
	begin
		write('por favor introduce las horas que has estudiado el dia ',i,
			'de esta semana: ');
		readln(horas[i]);
	end;
end;
 
function media(horas:thoras):real;
VAR i:Integer ;
begin
	media:=0;
	for i:=1 to 7 do
		media:= media+horas[i];
	media:= media/7;
END ;
 
FUNCTION maximo(horas:thoras):integer ;
Var i:integer; t:real;
begin
	t:=horas[1];
	maximo:=1;
	for i:=2 to 7 do begin
		if (horas [i] >t )then
		begin
			t:=horas[i];
			maximo:=i;
		end;
	end;
end;
 
FUNCTION minimo(horas:thoras):integer ;
Var i:integer; t:real;
begin
	t:=horas[1];
	minimo:=1;
	for i:=2 to 7 do begin
		if (horas [i]<t ) then
		begin
			t:=horas[1];
			minimo:=i;
		end;
	End;
end;
 
BEGIN
	insertar(horas);
	writeln;
	writeln('media de has estudiadas: ' ,media(horas):4:2);
	writeln ('el dia que mas has estudiado es ',dias[maximo (horas)]);
	writeln ('y el dia que menos has estudiado es ',dias[minimo(horas)]);
	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

unqa sola linea

Publicado por cesar (10 intervenciones) el 26/09/2017 04:56:03
ahora siiii mil gracias saludos desde venezuela cesar gomez
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
Revisar política de publicidad