• Viernes 8 de Noviembre de 2024, 12:51

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Temas - rodo1985

Páginas: [1]
1
Pascal / No Me Compila ....
« en: Jueves 10 de Mayo de 2007, 15:33 »
hola que tal , programe lo siguiente y no compila....



Código: Text
  1.  
  2.  
  3. program calculo_de_raiz;
  4. var
  5. a,b,c,d,raiz1,raiz2:real;
  6. begin
  7. writeln ('ingrese los tres valores de la ecuacion');
  8. readln (a,b,c);
  9. d:=(b*b)-(4*a*c);
  10.  if d<0 then
  11.  begin
  12.  writeln ('las raices son imaginarias');
  13.  end
  14.  else
  15.  begin
  16.   if d>=0 then
  17.   begin
  18.    raiz1:=(-b+d)/2*a;
  19.    raiz2:=(-b-d)/2*a;
  20.    writeln ('las raices son');
  21.    writeln ('el valor de la primera raiz es :' raiz1);
  22.    writeln ('el valor de la segunda raiz es :' raiz2);
  23.   end;
  24.  end;
  25. end.
  26.  
  27.  
  28.  


cuando compilo me pone :

error syntax ¨)¨  identifier raiz1

2
Pascal / Problema Para Finalizar El Ciclo For
« en: Viernes 4 de Mayo de 2007, 16:27 »
hola a todos , cuando quiero terminar el programa siempre va el end. pero si quiero continuar tengo que poner end; miren lo que me pasa....

 programe lo siguiente ....
Código: Text
  1.  
  2. program programa1;
  3. var max,min,a,b,c,f:real;
  4.       i:integer;
  5. begin
  6.  writeln ('ingrese el primer valor');
  7.  readln (a);
  8.  c:=0;
  9.  max:=a;
  10.  min:=a;
  11.  c:=c+1;
  12.  f:=f+1;
  13.   for i:=1 to 5 do
  14.   begin
  15.   writeln ('ingrese otro valor para saber si es maximo o minimo');
  16.   readln (B);
  17.    if b>max then
  18.    begin
  19.    max:=b;
  20.    c:=c+1;
  21.    end
  22.    else
  23.     if b<min then
  24.     begin
  25.     min:=b;
  26.     f:=f+1;
  27.     end;
  28.    end;
  29.   [color=red]end;[/color] ahora end
  30.  writeln ('el valor maxaimo es', max);
  31.  writeln ('la posicion del valor maximo es', c);
  32.  writeln ('el valor minimo es', min);
  33.  writeln ('la posicion del valor minimo es', f);
  34.  readln (a);
  35. end.
  36.  
  37.  
cuando le doy run me pone que tengo error de ¨;¨

cuando arranca el ciclo for para finalizarlo no va ;?
si pongo ¨.¨ si funciona pero claro al darle run lo unico que puedo hacer es ingresar valores y luego finaliza....


lo solucione

lo arregle sacandole el ;

pero tengo un error de ¨identifier readln¨ y ¨identifier writeln¨.....donde?

Editado Escribe el codigo entre los tags [CODE] aca va el codigo [ /CODE]

3
Pascal / Problema En Run Del Freepascal
« en: Sábado 28 de Abril de 2007, 21:06 »
hola a todos soy nuevo , estoy curasando esta materia por primera vez en la facultad de ingenieria y me descargue el compilador freepascal ...

el problema que tengo es el siguiente ...

program prueba1;
var s,a,b:real;
begin
  readln (a,b);
  s:=a+b;
  writeln (s);
end.



cuando le doy run , en DOS y pongo ejemplo el numero 1 y el numero 2, salta y no veo el resultado y vulve al programa , como ago para que cuando ponga cualquier valor, me calcule la suma sin tener que volver a la ventana del programa pascal  .....

bueno gracias por sus respuestas.......

Páginas: [1]