Programa final cibernetica 2 cch azacapo
Enviado por luis angel montiel santillan • 29 de Mayo de 2018 • Documentos de Investigación • 1.055 Palabras (5 Páginas) • 175 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);
...