Calculando cantidad de digitos pascal

-

En este ejemplo de turbo pascal mostrare la manera de como calcular la cantidad de dígitos

De un número mediante if' anidados de manera
que se dira exactamente de cuantos digitos es el numero que se
introdusca llendo desde -3 a 3 digitos

Aqui el codigo:

<Program appletenhtml (input,output);

uses
 crt; 
Var
 num: integer;
Begin
 write('Escribe el numero de 1 a 3 cifras: ');
 readln(num);
 
 if (num >= -9) and (num <= 9) then
  write('El numero introducido tiene 1 cifra')
 else if (num >= -99) and (num <= 99) then
  write('El numero introducido tiene 2 cifras')
 else if (num >= -999) and (num <= 999) then
  write('El numero introducido tiene 3 cifras')
 else
  write('El numero introducido tiene mas de 3 cifras');
 readkey;
End.



Descargar ejemplo

Comentarios

Publicar un comentario

Entradas más populares de este blog

Sacando aceleracion de un vehiculo en c++

-
Imagen
La palabra aceleración está presente en muchas situaciones de nuestra vida diaria, tanto es así que incluso uno de los pedales en el automóvil se llama “acelerador”. Siempre se utiliza asociada a un movimiento . Sin embargo, el significado que se le da habitualmente no corresponde exactamente al significado que se le da en Física. La aceleración mide directamente la rapidez con que cambia la velocidad. Si un vehículo se desplaza por una carretera, su velocidad varía  muchas veces durante el viaje; estos cambios en la velocidad se deben porque es imposible mantener una velocidad constante durante un trayecto  ya que pueden ocurrir situaciones que obliguen al conductor a aumentar la misma o a disminuirla. Por ejemplo, puede que el conductor deba frenar bruscamente en una situación de emergencia o bien puede que necesite aumentar la velocidad para adelantar a otro vehículo. En cualquiera de las dos situaciones, hay un cam...
Read more »

Ejemplo de suma Pascal

-
Imagen
Aquí muestro un ejemplo simple de suma en pascal en el cual pide introducir dos números para luego sumarlos y mostrar el resultado : Program P3AE4 (input,output); uses crt; Var num1, num2, total: Integer; Begin writeln('Suma'); writeln('Ingrese el primer numero:'); readln(num1); writeln('Ingrese el segundo numero:'); readln(num2); total:= num1+num2; writeln('El total de la suma es: ',total); readkey; End. Si quiere restar, multiplicar o dividir solo deberían cambiar el símbolo "+" por el deseado. Descargar código: link Turbo Pascal
Read more »

Gráfica de Seno y Coseno en C++ | Código C++

-
Imagen
para graficar por ejemplo la función seno, hacen falta 3 pasos: 1. Hacer un ciclo de 0 a 360º (con aumentos de 5 queda muy bien) con for, algo muy normal. 2. Calcular, obviamente, el seno de cada valor. Para esto la librería math.h nos regala la función sin(). Su uso es el obvio, pero el asunto es que todas las funciones trigonométricas que usa c++ trabajan en radianes. Es decir que primero tendremos que convertir nuestro ángulo en radianes y luego ya sacar el seno. Si la variable ‘i’ contiene el ángulo y tenemos ya definida la constante PI, la función quedaría así: sin(i/180*PI) 3. Luego viene la parte más rara, convertir ese valor en un entero que pueda meter como coordenada en un gotoxy. Si tenemos una variable int y y la igualamos a nuestra función anterior podría quedar bien si multiplicamos por 10: int x, y; y = sin(i/180*PI)*10; gotoxy(x,y); Nos quedaría nuestra gráfica en una escala 1:10, pero al correr el programa veremos que hay muchos valores de seno que ...
Read more »