program PasoArrays;
uses
crt, sysutils;
type
arr=array [1..10] of integer;
var
Entero:array [1..10] of integer;
// ARAY UNIDIMENSIONAL DE ENTEROS
EnteroB:array [1..5,1..2] of integer;
// ARRAY BIDIMENSIONAL DE ENTEROS
i:integer; j:integer; op:char;
temp: integer; Repetido:integer;
procedure menu;
begin
writeln('1-Entrada');
writeln('2-Listado');
writeln('3-Pasar a bidimensional');
writeln('4-Listado Bidimensional');
writeln('5-Salir');
end;
procedure entrada;
begin
// ponemos a cero, todos los elementos
// del array unidimensional
// Inicializamos las variables
for i := 1 to 10 do begin
Entero[i] := 0;
end;
temp := 0;
// recogemos los datos....
for i:= 1 to 10 do begin
while TRUE do begin
ReadLn(temp);
for j := 1 to 10 do begin
if j <> i then begin
if temp =
entero[j] then Repetido := 1;
end;
end;
clrscr;
if Repetido = 0 then begin
WriteLn('Faltan ' +
IntToStr(10 - i) + ' numeros');
Entero[i] := temp;
Repetido := 0;
break;
end else begin
Writeln ('El numero esta repetido, escribe uno diferente');
Repetido := 0;
end;
end;
end;
end;
procedure listado;
begin
// Imprimimos el listado
for i := 1 to 10 do begin
WriteLn(Entero[i]);
end;
readln;
end;
procedure pasar_datos;
begin
temp := 1;
for i := 1 to 5 do begin
for j := 1 to 2 do begin
EnteroB[i][j] := Entero[temp];
temp := temp + 1;
end;
end;
clrscr;
WriteLn('Datos pasados!');
readln;
end;
procedure listado_bidimensional;
begin
for i := 1 to 5 do begin
WriteLn(IntToStr(EnteroB[i][1]) + ' '
+ IntToStr(EnteroB[i][2]));
end;
ReadLn;
end;
// INICIO DEL PROGRAMA
BEGIN
randomize;
repeat
clrscr;
menu;
op:=readkey;
clrscr;
case op of
'1':entrada;
'2':listado;
'3':pasar_datos;
'4':listado_bidimensional;
'5':break;
end;
until op='5';
end.
Recoger 10 números, verificar que no se puedan introducir dos iguales, mostrarlos en un array unidimensional, pasarlos a un bidimensional y mostrarlos de nuevo.
Be the first to comment
You can use [html][/html], [css][/css], [php][/php] and more to embed the code. Urls are automatically hyperlinked. Line breaks and paragraphs are automatically generated.