Desarrolle Un Algoritmo Que Permita Leer Tres Valores Y Almacenarlos En Las Variables A

Estructuras secuenciales
Una estructura de control secuencial, en realidad, no es más que escribir un paso del algoritmo detrás de otro, el que primero se haya escrito será el que primero se ejecute
 Estructuras selectivas
Estas estructuras se utilizan para TOMAR DECISIONES (por eso también se llaman estructuras de decisión o alternativas). Lo que se hace es EVALUAR una condición, y, acontinuación, en función del resultado, se lleva a cabo una opción u otra.
Por ejemplo, queremos calcular la raíz cuadrada de un número; sin embargo todos sabemos (¡supongo! ;)) que la raíz cuadrada de un número negativo NO es un número real. Esto quiere decir que, tras leer el número por teclado, tendremos que ver si es positivo, ya que sólo en este caso podremos calcular su raíz cuadrada.
Veamos comoqueda:
Declaracion de variables
REAL: numero, raiz
fin declaracion de variables

inicio
mostrar por pantalla 'introduce un numero'
leer del teclado la variable numero
SI numero >= 0 ENTONCES:
raiz <- raiz_cuadrada(numero)
mostrar por pantalla 'la raiz cuadrada es:'
mostrar por pantalla raiz
fin del SI
fin


con negativos

inicio
mostrar por pantalla 'introduceun numero'
leer del teclado la variable numero
SI numero >= 0 ENTONCES:
raiz <- raiz_cuadrada(numero)
mostrar por pantalla 'la raiz cuadrada es:'
mostrar por pantalla raiz
SI NO es numero >=0 ENTONCES: {es decir, si numero es negativo}
mostrar por pantalla 'lo siento, no puedo calcular
la raiz cuadrada de un numero negativo'
fin del SI
finsecuencial

Escribir un programa en Pascal que calcula la siguiente expresión trigonométrica para
un valor angular de 90º
(sen x * cos x)/(tan x)
PROGRAM EJER24B; {Autor: Victor Sanchez Sanchez email: victorss18@hotmail.com}
USES CRT;
VAR resultado, resultado2, x:REAL;
BEGIN
WRITE ('PARA CALCULAR LA EXPRESION: (sin(x) * cos(x)) / tan(x)');
WRITELN (' INTRODUZCA EL VALOR DE X ENRADIANES: ');
READLN (x);
WRITELN ('');
resultado:=(sin(x) * cos(x)) / (sin(x) / cos(x));
WRITE ('El resultado de la expresion (sinx * cosx /tgx) es igual a: ');
WRITE (resultado:5:2);


Desarrolle un algoritmo que permita leer tres valores y almacenarlos en las variables A, B y C
respectivamente. El algoritmo debe imprimir cual es el mayor y cual es el menor. Recuerde constatar que
los tresvalores introducidos por el teclado sean valores distintos. Presente un mensaje de alerta en caso de
que se detecte la introducción de valores iguales.

1. Inicio
2. escribir (‘introduzca tres valores’)
3. Leer (A,B,C)
5. Si A > B y A > C Entonces
6. Escribir A “Es el mayor”
7. Sino
8. Si B > A y B > C Entonces
9. Escribir (B “Es el mayor”)
10. Sino
11. Escribir (C “Es el mayor”)
12. Fin_Si
13.Fin_Si
14. Fin
Desarrolle un algoritmo que permita convertir calificaciones numéricas, según la siguiente tabla:
A = 19 y 20, B =16, 17 y 18, C = 13, 14 y 15, D = 10, 11 y 12, E = 1 hasta el 9. Se asume que la nota está
comprendida entre 1 y 20.
Pseudocódigo Diagrama de Flujo
1. Inicio
2. Declaración de variables:
NuevaNota = Carácter
3. Leer registros hasta fin de archivo
4. Si Nota>=19 OR Nota<=20Entonces
5. NuevaNota= “A”
6. Si no (De lo contrario)
7. Si Nota>=16 OR Nota<=18 Entonces
8. NuevaNota= “B”
9. Si no (De lo contrario)
10. Si Nota>=13 OR Nota<=15 Entonces
11. NuevaNota= “C”
12. Si no (De lo contrario)
13. Si Nota>=10 OR Nota<=12 Entonces
14. NuevaNota= “D”
15. Si no (De lo contrario)
16. Si Nota>=1 OR Nota<=9 Entonces
17. NuevaNota= “E”
18. Si no (De lo contrario)
19. Fin_SiEscribir un programa en Pascal que realice la pregunta �Desea
continuar S/N? y que no deje de hacerla hasta que el usuario teclee N.

PROGRAM EJER49;
USES CRT;

VAR respuesta:CHAR;

BEGIN

ClrScr;

REPEAT
WRITELN ('DESEA CONTINUAR: S/N '); READLN (respuesta);
UNTIL respuesta='N';

END.


Escribir un programa en Pascal que determine si un número
leído desde...