Mensajes

Mi duda es , como trabaja el "centinela" ?

Espero explicarme... Saludos!

Hola , acabo de migrar a Linux y instale "Lazarus" , pero al compilar con F9 e intentar ejecutar , no sucede nada.... Que es lo que tengo que hacer?


Saludos!

Hola, termine mi primer programita en pascal  , es una simple calculadora , pero tengo una duda , como puedo hacer para que al resultado se le pueda seguir aplicando una suma , resta , division o multiplicacion? Me explico? Saludos!

Código [Seleccionar] Expandir

program calculadora;
        var
           number1, number2, resultado : real;
           funciones: char;


begin
     Writeln('Este programa es una calculadora');
     Writeln('Inserte el primer numero : '); readln(number1);
     Writeln('Inserte el segundo numero : '); readln(number2);
     Write('Que desea hacer con estos numeros? : sumar(+) , multiplicar(*) , dividir(/) , restar(-)    ');
     Readln(funciones);
     case (funciones) of
     '+' : resultado:=number1+number2;
     '-' : resultado:= number1-number2;
     '/' : resultado:= number1/number2;
     '*' : resultado:= number1*number2;
     else Writeln('No se puede realizar esta operacion');
     end;

     Writeln('El resultado es: ' , resultado) ;

     readln

end.     

Uhmmm , cuando pongo para que imprima la suma , me imprime el mismo numero 2 veces sin hacer una suma , como seria?

Crea un programa que pida números positivos al usuario, y vaya calculando la suma de todos ellos (terminará cuando se teclea un número negativo o cero), usando "repeat".

Código [Seleccionar] Expandir


program ej;

var
   numero:integer;
   resultado:integer;

begin
     repeat
           Writeln('Inserte numeros');
           Readln(numero);

     until numero<=0;

end.             


Como hago para realizar la suma?

Saludos!

Si , gracias por responder. El problema principal es que la variable la puse en char y tenia que ponerla en string. Error de parte mia.

Saludos!

 //Crea un programa que pida al usuario su contraseña. Deberá terminar cuando
//introduzca como contraseña la palabra "acceso", pero volvérsela a pedir
//tantas veces como sea necesario.

Program while;

var
   contrasena:char;
   acceso:boolean;


begin
acceso:=true;
while acceso do
   begin
   Writeln('Introduzca su contrasenaa por favor:  ');
   Readln(contrasena);
   

   if (contrasena='acceso' )then
      acceso:=false;


   end;




end.


Que es lo que estoy haciendo mal? o.o , porque si pongo acceso sigue pidiendo la contreña....
                                     

Hola , estoy aprendiendo pascal , como haria esto?

Un programa que escriba la secuencia de números 3, 5, 7,..., 21.

Código [Seleccionar] Expandir

Program For;

var
   numero: integer;


begin

   for numero := 3 to 27 do

       Write(numero:=numero+2);
   readln
end.           

No me deja poner numero := numero+2 ... Como seria otra forma ?

Saludos!