Programación En Delphi 7

ANALISIS DE SISTEMAS
3º SEMESTRE

PROGRAMACION II
VECTORES Y MATRICES
Docente:Ing. Lily Arenas
Alumno:Ronald Roca

INCOS - SANTA CRUZ

ANALISIS DE SISTEMAS
3º SEMESTRE

PROGRAMACION II
Alumno:Ronald Roca

1.- Mostrar el menor elemento y su posición del vector V.

procedure menorp( v1:vector; n1:integer; var x1:integer; var p1:integer);
var
CARGAR EL VECTOR
i:integer;
typebegin
vector=array [1..20] of integer;
var
x1:=v1[1];
v:vector;
p1:=1;
n:integer;
for i:=2 to n1 do
procedure TForm1.Button1Click(Sender: TObject);
if v1[i]< x1 then
var
begin
i,dato:integer;
x1:=v1[i];
begin
n:=strtoint(inputbox('Dimensión del Vector','Cantidad de Elementos',''));
p1:=i;
for i:=1 to n do
end;
begin
dato:=strtoint(inputbox('Ingresar Datos','Dato',''));
end;v[i]:=dato;
procedure TForm1.Button2Click(Sender: TObject);
stringGrid1.Cells[(i-1),0]:=inttostr(dato);
var
end;
end;
x,p:integer;
begin
x:=0;
p:=0;
menorp(v,n,x,p);
label1.caption:=inttostr(x)+' :Es el elemento menor';
label2.caption:='Se ubica en la posición número '+inttostr(p);
end;
procedure TForm1.Borrar1Click(Sender: TObject);
var
i:integer;
begin
for i:=1 to n dostringGrid1.Cells[(i-1),0]:='';
label1.caption:='';
label2.caption:='';
end;
procedure TForm1.Salir1Click(Sender: TObject);
begin
close;
end;
end.

INCOS - SANTA CRUZ

ANALISIS DE SISTEMAS
3º SEMESTRE

PROGRAMACION II
Alumno:Ronald Roca

2.- Mostrar el promedio de los elementos pares e impares del vector .

procedure prompi(v1:vector; n1:integer; var pp1:double; var pi1:double);
vari,sp,si,cp,ci:integer;
begin
sp:=0;
si:=0;
cp:=0;
ci:=0;
for i:=1 to n1 do
if v1[i] mod 2=0 then
begin
cp:=cp+1;
sp:=sp+v1[i];
end
else
begin
ci:=ci+1;
si:=si+v1[i];
end;
pp1:=sp/cp;
pi1:=si/ci;
end;
procedure TForm1.SacarPromedio1Click(Sender: TObject);
var
pp,pi:double;
begin
prompi(v,n,pp,pi);
label1.caption:='El promedio de elementos pares es: '+floattostr(pp);label2.caption:='El promedio de elementos impares es: '+floattostr(pi);
end;
procedure TForm1.Borrar1Click(Sender: TObject);
VAR
i:integer;
begin
for i:=1 to n do
stringGrid1.Cells[(i-1),0]:='';
label1.caption:='';
label2.caption:='';
end;
procedure TForm1.salir1Click(Sender: TObject);
begin
close;
end;
end.

INCOS - SANTA CRUZ

ANALISIS DE SISTEMAS
3º SEMESTRE

PROGRAMACION IIAlumno:Ronald Roca

3.-Reemplazar los elementos X del vector V, por el elemento Y, sabiendo que X y Y son valores introducidos por teclado .

procedure reemplazar(v1:vector; n1:integer; x1:integer; y1:integer; var v7:vector; var n7:integer);
var
i:integer;
begin
for i:=1 to n1 do
if v1[i]=x1 then
v7[i]:=y1
else
v7[i]:=v1[i];
n7:=n1;
end;
procedure TForm1.mostrar(v7:vector;n7:integer);
var
i:integer;
begin
for i:=1 to n7 do
stringGrid2.cells[(i-1),0]:=inttostr (v7[i]);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
x,y:integer;
begin
x:=strtoint(edit1.Text);
y:=strtoint(edit2.Text);
reemplazar(v,n,x,y,v5,n5);
mostrar(v5,n5);
end;
procedure TForm1.Button3Click(Sender: TObject);
var
i:integer;
begin
for i:=1 to n do
beginstringGrid1.cells[(i-1),0]:='';
stringGrid2.cells[(i-1),0]:='';
end;
edit1.Text:='';
edit2.Text:='';
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
close;
end;
end.

INCOS - SANTA CRUZ

ANALISIS DE SISTEMAS
3º SEMESTRE

PROGRAMACION II
Alumno:Ronald Roca

4.-Invertir los elementos del vector V en V5 .

procedure invertir (v1:vector; n1:integer; var v5:vector; var n5:integer);
vari,j:integer;
begin
j:=1;
for i:=n1 DownTo 1 do
begin
v5[j]:=v1[i];
j:=j+1;
end;
n5:=n1;
end;
procedure TForm1.mostrar(v7:vector; n7:integer);
var
i:integer;
begin
for i:=1 to n7 do
stringGrid2.cells[(i-1),0]:=inttostr(v7[i]);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
invertir (v,n,v5,n5);
mostrar(v5,n5);
end;
procedure TForm1.Borrar1Click(Sender: TObject);...