• Viernes 8 de Noviembre de 2024, 12:42

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.


Mensajes - rodo1985

Páginas: [1]
1
Pascal / Re: No Me Compila ....
« en: Jueves 10 de Mayo de 2007, 23:21 »
:devil:  aaaa!!! me falto poner a max2=pg1; los dos :..


 :lol: ahora siiiiii funca carajo VAMOS!!!!!

 :comp:

2
Pascal / Re: No Me Compila ....
« en: Jueves 10 de Mayo de 2007, 22:11 »
gracias por responder enko

mira esto este es otro cuando compilo me pone ¨error illegal expression¨

como que hay una ilegal exprecion pero donde ??

Código: Text
  1.  
  2.  
  3. program promedios;
  4. var a,b,c,d,e,pg1,pg2,max,max2:real;
  5.     x,y,i,nl:integer;
  6.  
  7. begin
  8.  
  9.  writeln ('ingrese el numero de legajo:');
  10.  readln (nl);
  11.  writeln ('ingrese los cinco promedios:');
  12.  readln (a,b,c,d,e);
  13.  pg1:=(a+b+c+d+e)/5;
  14.  max:=pg1;
  15.  x:=nl;
  16.  
  17.  writeln ('ingrese el numero de legajo:');
  18.  readln (nl);
  19.  writeln ('ingrese los cinco promedios:');
  20.  readln (a,b,c,d,e);
  21.  pg2:=(a+b+c+d+e)/5;
  22.  max2:=pg2;
  23.  y:=nl;
  24.  
  25.  for i:=3 to 5 do
  26.  begin
  27.  
  28.   writeln ('ingrese el numero de legajo:');
  29.   readln (nl);
  30.   writeln ('ingrese los cinco promedios:');
  31.   readln (a,b,c,d,e);
  32.   pg1:=(a+b+c+d+e)/5;
  33.  
  34.   if pg1>max then
  35.   begin
  36.  
  37.     max:=pg1;
  38.     x:=nl;
  39.  
  40.   end
  41.   else
  42.   begin
  43.  
  44.    if pg1>max2 then
  45.    begin
  46.  
  47.      max2=pg1;
  48.      y:=nl;
  49.  
  50.    end;
  51.  
  52.   end;
  53.  
  54.  end;
  55.  
  56.  writeln ('los valores maximos son:', max,max2);
  57.  writeln ('los numeros de legajo son:', x,y);
  58.  
  59.  readln;
  60.  
  61. end.
  62.  
  63.  
  64.  

3
Pascal / Re: No Me Compila ....
« en: Jueves 10 de Mayo de 2007, 15:46 »
AAAAAAA!!!!!!!!!!!!!! me comi la coma en el writeln de la raiz ....

Código: Text
  1.  
  2. program calculo_de_raiz;
  3. var
  4. a,b,c,d,raiz1,raiz2:integer;
  5. begin
  6. writeln ('ingrese los tres valores de la ecuaciona');
  7. writeln ('ingrese a , b ,c' );
  8. readln (a,b,c);
  9. d:=((b*b)-(4*a*c))**(1/2);
  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.  readln;
  26. end.
  27.  
  28.  
  29.  
  30.  
una consulta cuando el free pascal te marca error como puedo saber sobre que linea del codigo esta dicho error .......

no compila cuando agrego lo de la raiz ()**(1/2)...

4
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

5
Pascal / Re: Problema Para Finalizar El Ciclo For
« en: Sábado 5 de Mayo de 2007, 05:28 »
gracias lo solucione , la proxima pongo el codigo entre los tags ...

6
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]

7
Pascal / Re: Problema En Run Del Freepascal
« en: Sábado 28 de Abril de 2007, 23:42 »
gracias amigo .....ahora tendre que practicar y practicar ...........

8
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]