sergiotarxz/DeberesPascal
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Solving some issues commented by the students.

Browse Source
This commit is contained in:
sergiotarxz 2021-04-06 17:48:16 +02:00
parent 676d183c39
commit dcda6a1955
Signed by: sergiotarxz
GPG Key ID: E5903508B6510AC2
1 changed files with 18 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
ejercicio2.pas
View File

@ -1,4 +1,4 @@
uses sysutils; uses sysutils,crt;
type type
CostoArrayRow = array[1..3] of double; CostoArrayRow = array[1..3] of double;
@ -16,16 +16,16 @@ var
i, j: Int64; i, j: Int64;
begin begin
for i := 1 to Length(ESTACIONES) do for i := 1 to Length(ESTACIONES) do
write(#9 + ESTACIONES[i]); write(' ' + ESTACIONES[i]);
write(#10); write(#10);
for i := 1 to Length(cantidad) do for i := 1 to Length(cantidad) do
begin begin
write(ARTICULOS[i]); write(ARTICULOS[i]);
for j := 1 to Length(cantidad[i]) do for j := 1 to Length(cantidad[i]) do
begin begin
write(#9 + IntToStr(cantidad[i][j])); write(' ' + IntToStr(cantidad[i][j]));
end; end;
write(#10); writeln('');
end; end;
end; end;
@ -34,16 +34,16 @@ var
i, j: Int64; i, j: Int64;
begin begin
for i := 1 to Length(ARTICULOS) do for i := 1 to Length(ARTICULOS) do
write(#9 + ARTICULOS[i]); write(' ' + ARTICULOS[i]);
write(#10); writeln('');
for i := 1 to Length(costo) do for i := 1 to Length(costo) do
begin begin
write(COSTES[i]); write(COSTES[i]);
for j := 1 to Length(costo[i]) do for j := 1 to Length(costo[i]) do
begin begin
write(#9 + FloatToStr(costo[i][j])); write(' ' + FloatToStr(costo[i][j]));
end; end;
write(#10); writeln('');
end; end;
end; end;
@ -53,8 +53,8 @@ var
precio_por_cantidad: double; precio_por_cantidad: double;
begin begin
for i := 1 to Length(ESTACIONES) do for i := 1 to Length(ESTACIONES) do
write(#9 + ESTACIONES[i]); write(' ' + ESTACIONES[i]);
write(#10); writeln('');
for i := 1 to Length(COSTES) do for i := 1 to Length(COSTES) do
begin begin
@ -63,18 +63,21 @@ begin
begin begin
precio_por_cantidad := 0; precio_por_cantidad := 0;
for k := 1 to Length(ARTICULOS) do for k := 1 to Length(ARTICULOS) do
precio_por_cantidad += cantidad[k][j] * costo[j][k]; precio_por_cantidad += cantidad[k][j] * costo[i][k];
write(#9 + FloatToStr(precio_por_cantidad)); write(' ' + FloatToStr(precio_por_cantidad));
end; end;
write(#10); writeln('');
end; end;
end; end;
procedure printTables(costo: CostoArray; cantidad: CantidadArray); procedure printTables(costo: CostoArray; cantidad: CantidadArray);
begin begin
printCosto(costo); printCosto(costo);
writeln('');
printCantidad(cantidad); printCantidad(cantidad);
writeln('');
printCostoPorEstacion(costo, cantidad); printCostoPorEstacion(costo, cantidad);
writeln('');
end; end;
var var
@ -83,6 +86,7 @@ var
i, j: Int64; i, j: Int64;
begin begin
ClrScr;
Randomize; Randomize;
for i := 1 to 3 do for i := 1 to 3 do
@ -95,4 +99,5 @@ begin
cantidad[i][j] := Random(2000) + 500; cantidad[i][j] := Random(2000) + 500;
printTables(costo, cantidad); printTables(costo, cantidad);
ReadKey;
end. end.