es un ejercicio de la facu que lo pense con vectores
Publicado por Evelyn (1 intervención) el 23/07/2020 02:11:50
Sea una persona que sólo sabe sumar, multiplicar y dividir por dos.
Ver que si sigue el siguiente algoritmo puede multiplicar dos números enteros
positivos cualesquiera:
1) Escribe los dos números, uno al lado del otro (para hacer dos columnas)
2) Va dividiendo el número de la primer columna por dos (si no da justo,
aproxima )(Ej . 17 /2 = 8), hasta que llega a 0
3) Va multiplicando el número de la segunda columna por 2.
4) Marca las filas en las que la división no fue exacta. (con X)
5) Suma de la columna de las multiplicaciones los números de las filas marcadas.
lo que hice es lo siguiente, no me doy cuenta en donde esta el error de codigo
Ver que si sigue el siguiente algoritmo puede multiplicar dos números enteros
positivos cualesquiera:
1) Escribe los dos números, uno al lado del otro (para hacer dos columnas)
2) Va dividiendo el número de la primer columna por dos (si no da justo,
aproxima )(Ej . 17 /2 = 8), hasta que llega a 0
3) Va multiplicando el número de la segunda columna por 2.
4) Marca las filas en las que la división no fue exacta. (con X)
5) Suma de la columna de las multiplicaciones los números de las filas marcadas.
lo que hice es lo siguiente, no me doy cuenta en donde esta el error de codigo
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
uses crt;
A: array [i..j] of integer;
var num1,num2: integer;
begin
writeln('ingrese el primer numero: ');
readln(num1);
writeln('ingrese el segundo numero: ');
readln(num2);
for fil:= 1 to 2 do
for col:= 1 to 2 do
readln(v[i,j]);
while ((num1 <> 0) and (num1 mod 2 = 0)) do
i:=num1 mod 2;
writeln('el resto da: ',i);
j:= num2 * 2;
if (num1 mod 2 = 0)
then
V[i..1]:= 'X';
writeln('los de resto cero son: ', V[i..1]);
V[i..2]:= i1 + i2;
readkey();
end .Valora esta pregunta
0