Este es mi código:
Código:
program tp6_4;
uses crt,dos;
type wtf=array [1..30,1..2] of integer;
var matriz:wtf;
procedure fill (var matriz:wtf);
var i:integer;
begin
randomize;
for i:=1 to 30 do
begin
matriz [i,1]:=random(10)-4;
matriz [i,2]:=random(35)+1;
end;
end;
procedure show (var matriz:wtf);
var i:integer;
begin
for i:=1 to 30 do
begin
writeln;
write (' Dia :',(i):5,' Minima :', matriz [i,1]:5,' Maxima: ', matriz [i,2]:5);
end;
end;
procedure calculations (matriz:wtf);
var i,j,minima,maxima,temptotal:integer;
promedio:real;
begin
minima:=0;
maxima:=0;
temptotal:=matriz[i,1]+matriz[i,2];
promedio:=temptotal/30;
for i:=1 to 30 do
begin
if matriz[i,1] < minima then
minima:=matriz[i,1];
if matriz[i,2] > maxima then
maxima:=matriz[i,2];
end;
writeln;
writeln;
writeln;
writeln ('Temperatura minima del mes: ',minima);
writeln ('Temperatura maxima del mes: ',maxima);
writeln ('Temperatura promedio del mes: ',promedio:8:2);
end;
//begin program
begin
delay(30);
clrscr;
writeln;
writeln (' --------------------------------------------------------------------------------------- ');
writeln ('| MEDICIONES DE TEMPERATURAS MAXIMAS Y MINIMAS CORRESPONDIENTES A LOS 30 DIAS DE UN MES |');
writeln (' --------------------------------------------------------------------------------------- ');
writeln;
fill (matriz);
show (matriz);
calculations (matriz);
readkey;
end.
El problema que tengo, es que al ejecutarlo con Windows, no se ve el programa completo.
Me muestra "i" de 12 para abajo, lo que va haciendo lo borra...
Cómo hago para que eso no pase?
Gracias
P.D: Tengo Win 7 x86
Lo probé con Linux y se ve completo, en windows no.