ÁREA DE UN CIRCULO

Saludos, el día de hoy realizare un ejercicio que permita saber el área de un circulo, conociendo su radio
Algoritmo area_circulo
Definir area, radio, pii Como Real;
Escribir "ingrese radio del circulo";
Leer radio;
pii <- 3.1415;
area <- pii*radio^2;
Imprimir "el area del circulo es; ", area;
FinAlgoritmo

SUMA DE DOS NUMEROS

Saludos, el día de hoy realizaremos un ejercicio básico para introducirnos a la programación, para ello usaremos el programa PSeint y que lo pueden descargar de forma gratuita desde este link.
el problema consiste en ingresar por teclado dos números, y luego muestre el resultado de la suma.

Algoritmo suma_dos_numeros
Definir suma, numero1, numero2 Como Entero;
Escribir "Ingrese primer numero";
Leer numero1;
Escribir "Ingrese segundo numero";
Leer numero2;
suma <- numero1 + numero2;
Escribir "La suma de ", numero1, " y ", numero2, " es: ", suma;
FinAlgoritmo

HALLAR EL MÁXIMO COMÚN DIVISOR DE TRES NÚMEROS

Saludos, me dejaron un problema como tarea, el cual consiste ingresar por teclado 3 números y hallar su máximo común divisor. para ello mi programa me pedirá ingresar por teclado 3 numero, seguidamente inicializare un contador en 2 (no considero al 1 por que todos los números son divisibles con 1 y no se considera como su máximo común divisor), seguidamente uso la estructura repetitiva mientras, el cual me permitirá obtener los números por los cuales dividiré n1, n2, n3 y el tope como máximo, lo considere la suma de los números ingresados (i<=n1+n2+n3) la cuestión seria que solo obtenga los números divisibles de los 3 números y luego usar una estructura condicional, para comparar los divisibles comunes y luego imprimirlos.

Ejemplo:

12 = 1, 2, 3, 4, 6, 12
14 = 1, 2, 7, 14
36 = 1, 2, 3, 4, 6, 9, 12, 18, 36

en el ejemplo, se observa los números que son divisibles de los tres números ingresados, y vemos que el 2 (aparte del 1) es el valor que se repite, y el mas mayor de los divisores comunes, por tanto es el máximo común divisor de los tres números

Se implementara el algoritmo en el programa PSeInt y lo pueden descargarlo aquí.

Algoritmo Maximo_comun_divisor_3N
Definir n1, n2, n3, i Como Entero;
Escribir "Ingrese primer numero";
Leer n1;
Escribir "Ingrese segundo numero";
Leer n2;
Escribir "Ingrese tercer numero";
Leer n3;
i<-2;
Mientras (i<n1+n2+n3) Hacer
Si (n1 mod i=0 y n2 mod i=0 y n3 mod i=0)  Entonces
Escribir "maximo comun divisor es: ", i;
Fin Si
i<-i+1;
Fin Mientras
FinAlgoritmo

SUMA LOS 100 PRIMERO NUMERO POR LA FORMULA DE GAUSS

Saludos, realizare un algoritmo que sume los numero del 1 hasta el n , usando la formula de

Carl Friedrich Gauss, y se cuenta la siguiente anécdota en su infancia.

“J. B. Büttner, maestro de un colegio alemán, castigó a todos los niños a sumar los 100 primeros números naturales para tenerlos entretenidos y callados un buen rato. Carl Friedrich Gauss obtuvo la respuesta casi de inmediato: 1 + 2 + 3 + … + 99 + 100 = 5050.” Una historia mil veces contada. Todos los profesores de primaria y secundaria se la cuentan a sus alumnos. ¿Ocurrió de verdad? ¿Hay alguna evidencia histórica? Sigue la historia contando que “Gauss, el niño prodigio, se dio cuenta de que 1 + 100, 2 + 99, 3 + 98, etc., todos suman 101, y que hay 50 de estos pares, resultando 50 × 101 = 5050. La fórmula más general para la suma aritmética de 1 al n es:

Incluso hay una película que relata la vida de Carl Friedrich Gauss.

Usare el programa PSeInt, y lo pueden descargarlo aquí.

y algoritmo es mucho mas sencillo como verán.

Algoritmo Formula_Gauss

Definir n, suma Como Entero;

escribir "Ingrese el limite de la suma";

Leer n;

suma <- (n*(n+1))/2;

Escribir "la suma es: ", suma

FinAlgoritmo

HALLAR LA SUMA DEL 1-100

Saludos, realizare un algoritmo sencillo, el cual consiste en sumar los numero de 1  hasta el 100, para ello usare la estructura mientras para obtener los numero del 1-100, e iniciare un acumulador en cero (suma) donde se almacene los numero sumados hasta que la condición sea cumplida (i<=100) y una vez terminada el ciclo mientras me imprima la suma de los numero del 1-100.
mencionar que también existe una formula para simplificar todo el proceso de sumar los numero del 1-100 (formula de gauss), pero eso es tema para otro blogger.

Para ello usare como siempre el programa PSeInt, y lo pueden descargarlo aquí.

Algoritmo sumar_1_100
Definir n, suma Como Entero;
n <-1;
suma <-0;
Mientras n<=100 Hacer
suma <-suma+n;
n<-n+1;
Fin Mientras
Escribir "La suma es: ", suma;
FinAlgoritmo

HALLAR EL ÁREA DE UN TRIÁNGULO EQUILÁTERO

Saludos, resolveré un algoritmo que halle el área haciendo uso de unos de sus lados de un triángulo equilátero, recordando que un triángulo equilátero tiene tres lados iguales y tres ángulos de igual medida; por lo tanto, si conoces la longitud de un lado, sabrás la longitud de los tres lados.

Ejemplo;

Datos de entrada

lado equilátero

Proceso:

Algoritmo Area_triangulo

Definir lado, area, s Como Real;

Escribir "Ingrese lado equilatero"

Leer lado;

area <- (lado^2)*(rc(3)/4);

Escribir "El area es: ", area;

FinAlgoritmo

Datos salida

Area de triangulo

HALLAR EL ÁREA DE UN TRIANGULO CON LA LONGITUD DE SUS 3 LADOS

Saludos, desarrollare otra forma de hallar el área de un triangulo, en el anterior blogger, hice uso de la base y la altura, en este blogger usare la longitud de los lados del triangulo.

Ejemplo:

a= 3
b= 4
c= 5
semiperimetro = 1/2(a+b+c)
s = 1/2(3+4+5)
area = √(s*((s-a)*(s-b)*(s-c)))
area= 6

Para ello, usare el programa PSeInt.

Algoritmo Area_triangulo
Definir s, a, b, c, area Como Entero;
Escribir "Ingrese lado a";
Leer a;
Escribir "Ingrese lado b";
Leer b;
Escribir "Ingrese lado c";
Leer c;
s<-1/2*(a+b+c);
area <- rc(s*((s-a)*(s-b)*(s-c)));
Escribir "el area del triangulo es: ", area;
FinAlgoritmo