Pascal/Turbo Pascal - Programa Tabla en Pascal

   
Vista:

Programa Tabla en Pascal

Publicado por Alexia (4 intervenciones) el 11/09/2011 23:32:21
Por favor, necesito ayuda. Estoy empezando a usar Pascal porque me gusta mucho la informática y estoy haciendo mis primeros programas para ir aprendiendo. Me gustaría empezar con el tema de tablas, matrices y vectores y ando buscando ejemplos que me ayuden a entenderlos mejor.

¿Cómo podría hacer un procedimiento que modificase una tabla de 2 dimensiones (MxN) de manera que: 1) calcule la media de los elementos positivos y 2) reemplace los elementos negativos porla media calculada?

Gracias por su ayuda
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Programa Tabla en Pascal

Publicado por ramon (2072 intervenciones) el 17/09/2011 17:37:06
{Con esto te ayuda algo o quieres mas}

program vectro;
uses
crt;
var
vector1, vector2 : array[1..20,1..20] of integer;
x1, y1 : integer;

procedure rellena_vector;
var
x, y : integer;
begin
for x := 1 to 20 do
for y := 1 to 20 do
begin
vector1[x,y] := (x * y);
end;
for x := 1 to 20 do
for y := 1 to 20 do
write(' ',vector1[x,y]);
end;

begin
clrscr;
writeln('contenido vector1');
writeln;
rellena_vector;
move(vector1,vector2,sizeof(vector1));
writeln;
writeln;
writeln('contenido vector2');
writeln;
for x1 := 1 to 20 do
for y1 := 1 to 20 do
write(' ',vector2[x1,y1]);
readln;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar