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
0
