Gotoxy

Program sumavect;
Uses wincrt;
Const
Limite=10;
Type
Vector=array [1..limite] of integer;
Var
i:interger;
a,b,c:vector;
begin
clrscr;writeln(‘por favor llenar el vector a’);
for i:= 1 to limite do
begin
readln(a[i]);
end;
writeln(‘porfa llenar el vector b’);
for i:= 1 to limite do
beginreadln(b[i]);
end;
writeln(‘calculando la suma’);
for i:=1 to limite do
begin
c[i]:=a[i]+b[i];
writeln(‘la suma de, a[i], ‘+’, b[i], ‘=’, c[i]);
end;repeat until keypressed;
end.

Program llenarmat;
Uses wincrt;
Const
Fil=4;
Col=4;
Type
mat= array [1...fil,1..col]of real;
var
i, j: integer;a:mat;
begin
clrscr;
writeln(‘ingrese valores en la matriz a’);
for i:=1 to fil do
begin
for j:=1 to col do
begin
readln(a[i,j]);
end;
end;
repeatuntil keypressed;
end.
Program temperatura;
Uses wincrt;
Const
max= 25;
type
temp= array[1...max]of real;
var
i: integer;
c,f:temp;
beginclrscr;
writeln(‘ingrese temperaturas ºF alvector’);
for i:=1 to max do
begin
readln(f[i]);
c[i]:=5/9*(f[i]-40)+40;
writeln(‘los grados ºF’, f[i], ’a ºC son’, c[i]:4:2);
end;
repeat until keypressed;
end.

Program sueldos;
Uses wincrt;
Cons
max=15;
type
suel= array[1..max]of real;
var
i:integer:iggs, cuota, bono, sueldo:suel;
begin
clrscr;
writeln(‘ingrese sueldo’);
for i:=1 to max do
begin
readln(sueldo[i]);
iggs[i]:=sueldo[i]*4.83%;cuota[i]:=sueldo*12.67%;
bono[i]:=sueldo+250;
writeln(‘sueldo’,sueldo[i],’iggs’,iggs[i],’cuota’,cuota[i],’bono’,bono[i]:4:2);
end;
repeat until keypressed;
end.