¿ayuda con programcion estructurada, arreglos?

Question

hola, tengo una duda estoy haciendo un programa para la facu, este año se trabaja con programacion estrucuturada, usamos pascal xq es un buen compilador como para ir introduciendose en el mundo de la programacion.. en fin, la cuestion es q ahora estoy intentando hacer un programa y necesito pasar los valores q tengo almacenados en un arreglo unidimensional (vector) a un arreglo bidimensional (matriz), estoy teniendo problemas para hacerlo... si alguien me puede ayudar ya sea en pseucodigo o en pascal??? gracias!!

Answer 1

Respuesta preferida

seria algo asi

program arreglo_matriz;

uses crt;

const

maximo = 5;

type

vector = array [1..maximo*maximo] of integer;

matriz1 = array [1..maximo,1..maximo] of integer;

var

vec:vector;

matriz:matriz1;

i,j,k:integer;

begin

randomize;

j:=0;

i:=1;

for k:=1 to maximo*maximo do

begin

j:=j+1;

vec[k]:=random(50);

write (vec[k],' ');

matriz[i,j]:=vec[k];

if (j > maximo) then

begin

i:=i+1;

j:=1;

end;

end;

writeln;

writeln;

for i:=1 to maximo do

begin

for j:=1 to maximo do

write (matriz[i,j],' ');

writeln;

end;

readln;

end.

picas el arreglo dependiendo del numero de columnas q tenga la matriz, en este caso la matriz es cuadrada, para q todos los numeros del vector esten en la matriz

el codigo q hace eso posible es el for q va hasta "maximo*maximo" ....si ya tu tienes un vector creado en otro lado puede quita el "vec[k]:=random(50) " q eso solo lo hacia para llenar el vector y poderlo mostrar por pantalla para q se viera como picaba el vector en la matriz

saludos...espero haberte ayudado