Pascal/Turbo Pascal - Ayuda Problema pascal

   
Vista:

Ayuda Problema pascal

Publicado por Federico (1 intervención) el 04/07/2013 07:58:44
Buenas era para saber si alguien me puede corregir el codigo por favor!!! he estado horas y nada no puedo porfavor ayudemen!!

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
Program EjercicioParcial;
uses crt;
Type reg=record;
tempmax:integer;
tempmin:integer;
end;
vector=array [1..31] of reg;
Var v:vector; i,toptemp,mintemp:integer; y,j,:real
Procedure Temperatura (var a:vector);
begin
For i:=1 to 31 do
Begin
Writeln ('Ingresar Dias Con Temperatura Maxima');
Readln (a[i].tempmax);
Writeln ('Ingresar Dias Con Temperatura Minima');
Readln (a[i].tempmin);
End;
Function PromedioTempmax (a:vector):real;
var tempmaxprom:integer;
begin
For i:=1 to 31 do
 
tempmaxprom:=promedio+a[i],tempmax;
promedio:=tempmaxprom/31;
 
End;
Function PromedioTempmin (a:vector):real;
var tempminprom:integer;
begin
For i:=1 to 31 then
 
tempminprom:=promedio+a[i],tempmin;
promedio:=tempminprom/31;
End;
begin
clrscr;
Temperatura (v);
j:=1;
l:=1000;
for i:=1 to 31 do
if v[i].max >=j then
toptemp:=i
if v[i].min < l then
mintemp:=i
end;
Writeln ('El promedio general de temeperaturas maximas es',PromedioTempmax:2:2);
Writeln ('El promedio general de temeperaturas maximas es',PromedioTempmin:2:2);
Writeln ('El dia de maxima temp fue: ',toptemp);
Writeln ('El dia de minima temp fue: ',mintemp);
 
readkey;
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

Ayuda Problema pascal

Publicado por ramon (2072 intervenciones) el 04/07/2013 12:15:10
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
{El código lo tienes funcionando pero tendrás que modificar cosas para que funcione bien}
 
Program EjercicioParcial;
uses crt;
Type reg=record
tempmax:integer;
tempmin:integer;
end;
vector=array [1..31] of reg;
Var v:vector; i,toptemp,mintemp:integer; y,j:real;
    l : integer;
Procedure Temperatura (var a:vector);
begin
For i:=1 to 31 do
Begin
Writeln ('Ingresar Dias Con Temperatura Maxima');
Readln (a[i].tempmax);
Writeln ('Ingresar Dias Con Temperatura Minima');
Readln (a[i].tempmin);
End;
end;
Function PromedioTempmax (a:vector):real;
var tempmaxprom:integer;
promedio : integer;
begin
For i:=1 to 31 do
 
tempmaxprom := promedio + a[i].tempmax;
promedio:=round(tempmaxprom/31);
 
End;
Function PromedioTempmin (a:vector):real;
var tempminprom:integer;
promedio : integer;
begin
For i:=1 to 31 do
 
tempminprom := promedio + a[i].tempmin;
promedio:=round(tempminprom/31);
End;
begin
clrscr;
Temperatura (v);
j:=1;
l:=1000;
for i:=1 to 31 do
if v[i].tempmax >=j then
toptemp:=i;
if v[i].tempmin < l then
mintemp:=i;
Writeln ('El promedio general de temeperaturas maximas es',PromedioTempmax(v));
Writeln ('El promedio general de temeperaturas maximas es',PromedioTempmin(v));
Writeln ('El dia de maxima temp fue: ',toptemp);
Writeln ('El dia de minima temp fue: ',mintemp);
 
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