Programa final cibernetica 2 cch azacapo
luis angel montiel santillanDocumentos de Investigación29 de Mayo de 2018
1.055 Palabras (5 Páginas)196 Visitas
Program Estadio;
Uses crt;
Var
Producto: Array [1..5] of String;
Produccion : array [1..6,1..5] of integer;
Fila,Columna,Posicion:Integer;
Lect:String;
Vuelta:Char;
Procedure Lector;
Begin
Writeln('BIENVENIDO AL SISTEMA FINANCIERO DEL ESTADIO OLIMPICO UNIVERSITARIO');
Readln(Lect);
End;
Procedure Lectura;
Begin
For Fila:=1 to 5 do
Begin
Writeln('INGRESE PRODUCTO #',Fila);
Readln(Producto[Fila]);
End;
ClrScr;
For Fila:=1 to 5 do
For Columna:=1 to 4 do
Begin
Writeln('INGRESE PRODUCCION DEL TRIMESTRE #',Columna,' DE ',Producto[fila]);
Readln(Produccion[Fila,Columna]);
End;
End;
Procedure Total;
Begin
For Columna:=1 to 4 do
For Fila:=1 to 5 do
Begin
Produccion[6,Columna]:=Produccion[6,Columna]+Produccion[Fila,Columna];
End;
For Fila:=1 to 6 do
For Columna:=1 to 4 do
Begin
Produccion[Fila,5]:=Produccion[Fila,5]+Produccion[Fila,Columna];
End;
End;
Procedure Escribe;
Begin
For Fila:=1 to 5 do
For Columna:=1 to 4 do
Begin
Gotoxy(1,Fila*2);
Write(Producto[Fila]);
Gotoxy((Columna*5)+Posicion,Fila*2);
Write(Produccion[Fila,Columna]);
End;
Readln;
End;
Procedure Resultado;
Begin
Writeln('Produccion anual');
For Fila:=1 to 5 do
Writeln(Producto[fila],'=',Produccion[fila,5]:9);
writeln('Produccion por trimestre');
for fila:=1 to 4 do
writeln('Trimestre #',fila,': ',produccion[6,fila]);
End;
Procedure Vueltas;
Begin
Writeln('TYPE S TO CONTINUE OR ANY CHARACTER TO EXIT');
...