[ Foro de Pascal ]

algoritmo, me podrian ayudar con esto por favor, gracias

04-Jun-2020 02:16
Invitado (quiqa)
0 Respuestas

program t3;

var
lista: array [1..3200] of
record
vector: integer;

end;
num: integer;
opcion: integer;
i: integer;
valor: integer;


begin
numero:= 0;
repeat
WriteLn('........');
WriteLn;
WriteLn('1- cargar numeros aleatorios');
WriteLn('2- insertar un valor');
WriteLn('3- eliminar el valor');
WriteLn('4- mostrar el vector cargado');
WriteLn('5- salir');
Write('Escoja una opción: ');
ReadLn(opcion);
WriteLn;

case opcion of
1: { cargar numeros aleatorios }
if numero < 3200 then
begin
numero := numero + 1;
WriteLn('Introduciendo un numero ', numero);
ReadLn(numero);

WriteLn;
end
else
WriteLn('......');

2: { inserte un valor }
begin
if valor= 0 then
WriteLn('No hay datos')
else
for i := 1 to valor do
WriteLn(i, ' ', valor[i].vector);
WriteLn;
end;

3: { eliminar valor}


Begin
For j:=i to n-1 do
a[j]:=a[j+1];
n:=n-1;
End;

end.




Si ya eres usuario del sistema, puedes contestar desde tu cuenta y así ganar prestigio.

Si sólo eres un visitante, puedes optar por...