Pascal/Turbo Pascal - es un ejercicio de la facu que lo pense con vectores

 
Vista:
sin imagen de perfil

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

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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder