Test Foro de elhacker.net SMF 2.1

Programación => Programación General => Mensaje iniciado por: Mario Olivera en 1 Abril 2015, 16:56 PM

Título: [SOLUCIONADO] Problema en pascal
Publicado por: Mario Olivera en 1 Abril 2015, 16:56 PM
 Hola tengo un problema en un simple código de pascal, les dejo el código, el error es que me dice que el indentificador suma esta duplicado, eso es lo que entiendo, Saludos!


Código (pascal) [Seleccionar]
program suma;

var resta,a,b,c,suma,multiplicacion:real;

BEGIN
write('primer numero: ');
read(a);
writeLn('segundo numero: ');
read(b);
writeLn('tercer numero: ');
read(c);
suma:= a+b+c;
writeLn('resultado suma', suma);
multiplicacion:=  a*b*c;
writeLn('Multiplicacion ' multiplicacion);
resta:= (a+b) - c;
writeLn('Resta ', resta);
END.



Título: Re: Problema en pascal
Publicado por: engel lex en 1 Abril 2015, 16:59 PM
no se de pascal, pero seguro este es el problema

declaras el programa llamado suma
Código (pascal) [Seleccionar]
program suma;

y luego declaras una variable llamada igual
Código (pascal) [Seleccionar]
var resta,a,b,c,suma,multiplicacion:real;
Título: Re: Problema en pascal
Publicado por: Mario Olivera en 1 Abril 2015, 17:07 PM
Cita de: engel lex en  1 Abril 2015, 16:59 PM
no se de pascal, pero seguro este es el problema

declaras el programa llamado suma
Código (pascal) [Seleccionar]
program suma;

y luego declaras una variable llamada igual
Código (pascal) [Seleccionar]
var resta,a,b,c,suma,multiplicacion:real;

Pues parece que se soluciono eso pero sigue tirando errores :S
Título: Re: Problema en pascal
Publicado por: engel lex en 1 Abril 2015, 17:15 PM
publica los errores copy&paste del compilador
Título: Re: Problema en pascal
Publicado por: Mario Olivera en 1 Abril 2015, 17:17 PM
Cita de: engel lex en  1 Abril 2015, 17:15 PM
publica los errores copy&paste del compilador

" expected but "identifier MULTIPLICACION" found

Le faltaba en la expresion write (' ' , multiplicacion)
Título: Re: [SOLUCIONADO] Problema en pascal
Publicado por: Bundor en 1 Abril 2015, 17:25 PM
Yo aprendí con Pascal  ;D
Ya no recuerdo muy bien, pero tengo por ahí cosas guardadas. El ide que usabamos era el embarcadero. Depende si era lazarus o embarcadero había que poner algunas cosas, pero ya no me acuerdo.

En embarcadero lo hacía así:

Código (pascal) [Seleccionar]

program EJER1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
    num1:real;
    num2:real;
    res:real;


begin
  try
    { TODO -oUser -cConsole Main : Insert code here }

    writeln('PROGRAMA 1');
    write('Introduce numero 1: '); read(num1);
    write('Introduce numero 2: '); read(num2);

    res:=num1+num2;
    writeln('El resultado es: ',res:2:2);

    if num1>num2 then
      begin
      writeln('El numero 1 es mayor');
      end
    else
      begin
      writeln('El numero 2 es mayor');
      end;

      readln;
      readln;

  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.