Hola a todos soy estudiante de primer semestre de lic. en informatica y en mi universidad nos mandaron a aprendernos los lenguajes de manera autodidacta, hasta ahora hemos visto pascal pero nos ordenaron a que aprendiéramos c/c++, actualmente estamos trabajando con módulos y arreglos, mi problema es que he tenido grandes problemas al implementar esto ultimo aprendido a c/c++ a continuación voy a colocar un código con el que he tenido estas dificultades:
program sumamatrices;
const
x =4;
type
tiparre= array [1..x,1..x] of integer;
var
a,b,c : tiparre;
Fi,Co: integer;
procedure limpiar (var a,b,c : tiparre);
begin
for Fi := 1 to x do
begin
for Co:= 1 to x do
begin
a[Fi,co]:= 0;
b[Fi,co]:= 0;
c[Fi,co]:= 0;
end;
end;
end;
procedure llenar (var a,b:tiparre);
begin
for Fi:= 1 to x do
begin
for Co:= 1 to x do
begin
writeln ('ingrese el valor de a en la posicion ',Fi,', ',Co);
readln(a[Fi,Co]);
writeln ('ingrese el valor de b en la posicion ',Fi,', ',Co);
readln(b[Fi,Co]);
end;
end;
end;
procedure sumar (var a,b,c: tiparre);
begin
for Fi:= 1 to x do
begin
for Co:= 1 to x do
begin
c[Fi,Co]:= a[Fi,Co] + b[Fi,Co];
writeln ('el valor de c en la posicion',Fi,',',Co,'es ', c[Fi,Co]);
end;
end;
end;
procedure determinar (a:tiparre);
var
cont: integer;
begin
cont:=0;
for Co := 1 to x do
begin
if a[Fi,Co] = 1 then
begin
cont:= cont +1
end;
end;
if (cont = x) then
begin
writeln('la diagonal de a es 1');
end;
end;
begin
limpiar (a,b,c);
llenar (a,b);
sumar (a,b,c);
determinar(a);
end.
si alguno de ustedes tiene los conocimiento y la disposición para realizarme el favor de traducirme este código estaría muy agradecido, realmente me ayudaría bastante a la comprensión de este lenguaje
c/c++
no existe. En general deberás cambiarbegin
yend
por{
y}
, traducir los buclesfor
y funciones, usarstd::cout
en lugar dewriteln
y declarar variables al estilo C o C++. Ah, losif
en C o C++ no tienenthen
.