Pascal/Turbo Pascal - ayuda con esto

   
Vista:

ayuda con esto

Publicado por el mismo (7 intervenciones) el 14/05/2009 08:48:34
Solo necesito multiplicar pero sin usar el signo de *(por) Queria saber si alguien me podria orientar un poco mas es solo que aun no he logrado programar bn este programilla que aunque no tiene nada de dificil para los que ya saben para nosotros los novatos nos hace quebrarnos la cabeza por unos momentos.
El problema es que ya pido los numeros por multiplicar pero al mo mento de multiplicarlos no me resulta espero alguien me pueda orientar un poco. De antemano mil gracias por cualquier respuesta. aki el kodigo

program sumando;
uses crt;
var
numero1,numero2,suma, total: real;
producto:real;
contador:integer;

begin
clrscr;
contador:=1;
writeln('dame un valor');
readln(numero1);
writeln('escribe el valor por el que quieras multiplicarlo');
readln(numero2);

producto:= numero1 + numero2;
suma:=suma + numero2;
contador:= contador + 1;
if contador > numero2 then
writeln('')
else
writeln('tu multiplicacion es:', suma + numero2);
readln;
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

RE: Corrige el FOR

Publicado por martin (74 intervenciones) el 14/05/2009 09:31:20
Creo que ya contesté,pero no fue suficiente.
En la linea del FOR no se puede introducir signos de relacion. El programa quedaría así:

var
Multiplicando, Multiplicador,SumaT : real;
i : integer;

begin
write('Introduce el Multiplicando: ');
readln(Multiplicando);
writeln;
write('Introduce el Multiplicador: ');
readln(Multiplicador);
SumaT := 0;

FOR i := 1 to Multiplicador do
SumaT := SumaT+Multiplicando;
writeln;
writeln;
writeln('El producto de ambos numeros es: ',SumaT:8:2)
end.

Espero te solucione el problema.
Un saludo: Martin
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE: Corrige el FOR

Publicado por el mismo (7 intervenciones) el 14/05/2009 18:24:42
aun no me corre el programa alguien me podria dar una ayudadita aki dejo el codigo:
program sumando;
uses crt;
var
multiplicando,multiplicador,sumaT: real;
cont:integer;

begin
clrscr;

writeln('dame un valor');
readln(multiplicando);
writeln('escribe el valor por el que quieras multiplicarlo');
readln(multiplicador);
sumaT:=0;
for cont:= 1 to multiplicador do;
sumaT:=sumaT + multiplicando;
writeln;
writeln;
writeln;
writeln('el producto de ambos numeros es:',sumaT:8:2);
readln;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar