Programacion
uses crt;
var
A :array[1..100] of string[25];
r,q :string[25];
k,i,n,j,t,w,s :integer;
B,C,D,E,F,G,H :array[1..100] of integer;begin
clrscr;
write('Numero de productos a capturar: '); readln (n);
for i:=1 to n do
begin
write('A. Nombre (',I,'): '); readln (A[i]);
write('B. Tama¤o(',I,'): '); readln (B[i]);
write('C. Inv. Inicial (',I,'): '); readln (C[i]);
write('D. Compras (',i,'): '); readln (D[i]);
write('E. Ventas (',i,'): ');readln (E[i]);
write('F. Consignaci¢n (',i,'): '); readln (F[i]);
end;
clrscr;
//despliega el vector de Producto
gotoxy(1,6) ; write('producto');
for i:=1to n do
begin
for J:=1 to n-(N-1) do
begin
gotoxy(2+2*j,6+i); write(A[i]);
end;
end;
gotoxy(15,6) ; write('Tama¤o');
for i:=1 to n do
begin
for j:=1to n-(N-1) do
begin
gotoxy(15+2*j,6+i); write(B[i]);
end;
end;
gotoxy(25,6); write('Inicial') ;
for i:=1 to n do
begin
for j:=1 to n-(N-1) do
begingotoxy(25+2*j,6+i); write(C[i]);
end;
end;
gotoxy(35,6); write('Compras');
for i:=1 to n do
begin
for j:=1 to n-(N-1) do
begin
gotoxy(35+2*j,6+i);write(D[i]);
end;
end;
gotoxy(45,6); write('ventas');
for i:=1 to n do
begin
for j:=1 to N-(N-1) do
begin
gotoxy(45+2*j,6+i); write(E[i]);
end;
end;
//gotoxy(55,6); write('Consignar');
for i:=1 to n do
begin
for j:=1 to N-(N-1) do
begin
gotoxy(55+2*j,6+i); write(F[i]);
end;
end;
// end;
gotoxy(65,6);write('Final');
for i:=1 to n do
begin
for j:=1 to N-(N-1) do
begin
G[i]:=C[i]+D[i]-E[i]+F[i];
gotoxy(65+2*j,6+i); write(G[i]);
end;
end;
readln;
end.
Regístrate para leer el documento completo.