Aquí unos ejemplos básicos de algoritmos en Turbo Pascal 7.0 (hechos por mi :P). Ten en cuenta que en la programación cada programador tiene su estilo.
Ejercicio 1) Realice un programa en Turbo Pascal que indique si eres mayor o menor de edad.
Bien para resolver este ejercicio lo primero que debemos hacer es saber que variables vamos a utilizar, en este caso nuestra variable sera la edad, ya que el programa debe decir si somos o no mayores de edad, también usaremos una condición del tipo if para que el programa sepa cuando es mayor o menor, una vez entendido esto procedemos al algoritmo.
Program Edad;
Uses crt;
Var ed: integer;
Begin
Clrscr;
writeln ('¿Cual es su Edad: ?');
read (ed);
If ed<18 Then writeln ('Usted es Menor de Edad')
Else writeln ('Usted es Mayor de Edad');
Readkey;
End.
Compilamos nuestro algoritmo con Alt + F9 para comprobar que no hay errores.
Una vez comprobado podemos ejecutar nuestro algoritmo presionando Ctrl + F9.
Y listo ya tenemos un programa que nos dice si somos mayores o menores de edad jeje.
3 comentarios:
necesito ayu con un ejercicio de pascalll
por favor necesito ayuda con este programa :
se realiza una encuesta para estimar el grado de aceptación x de los productos x e y en el mercado . a cada encuestado se le pregunta si consume producto x y si consume el producto x y si consume el producto y. la respuesta puede ser si o no . se pide calcular e informar el porcentaje de consumidores de :
a) del producto x
b)del producto y
c) del producto x solamente
d) del producto y solamente
Me salta unexpected end of file :v
Publicar un comentario