Programación

 program Pronostico;
uses
crt;
const
n=12;
type
valhis=array [1..n] of real;
var
dt,p:valhis;
ft:valhis;
op:integer;
aux,a,b:real;
vvh,vf:boolean;

procedure marco;var
q:integer;
begin
textcolor(0);
gotoxy(1,1);
write('É');
gotoxy(80,1);
write('»');
gotoxy(1,49);
write('È');
gotoxy(80,49);
write('¼');for q:=2 to 48 do
begin
gotoxy(1,q);
writeln('º');
gotoxy(80,q);
writeln('º');
end;
for q:=2 to 79 do
begin
gotoxy(q,1);
writeln('Í');gotoxy(q,49);
writeln('Í');
end;
end;
procedure menu;
begin
marco;
gotoxy(35,2);
textcolor(0);
writeln('MENU PRINCIPAL');
gotoxy(30,5);textcolor(9);
writeln('1. INFORMACION DE PRONOSTICOS');
gotoxy(30,7);
writeln('2. INGRESO DE DATOS');
gotoxy(30,9);
writeln('3. INGRESO DE FACTORES');
gotoxy(30,11);writeln('4. CONSULTA DE RESULTADOS');
gotoxy(30,13);
writeln('5. INTEGRANTES');
gotoxy(30,15);
writeln('6. SALIR');
gotoxy(30,17);
textcolor(12);
end;
procedureinformacion;
var
opi:integer;
Begin
clrscr;
marco;
gotoxy(26,2);
Writeln('INFORMACION DE PRONOSTICOS');
gotoxy(2,5);
textcolor(9);
Writeln('1. ¨QUE ESPRONOSTICO?');
gotoxy(2,7);
Writeln('2. ¨QUE ES PROMEDIO MOVIL SIMPLE?');
gotoxy(2,9);
Writeln('3. ¨QUE ES PROMEDIO MOVIL PONDERADO?');
gotoxy(2,11);
Writeln('4. ¨QUE ESSUAVIZAMIENTO EXPONENCIAL SIMPLE?');
gotoxy(2,13);
Writeln('5. ¨QUE ES SUAVIZAMIENTO EXPONENCIAL DOBLE?');
gotoxy(2,15);
Writeln('6. ¨QUE ES REGRESION LINEAL?');
gotoxy(2,17);Writeln('7. VOLVER AL MENU ANTERIOR');
gotoxy(2,20);
textcolor(12);
Write('Ingrese una opcion: ');
Readln(opi);
Case opi of
1:Begin
clrscr;
marco;...