elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Los 10 CVE más críticos (peligrosos) de 2020


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  Ejercicios
| | | |-+  Ayuda con ejercicio fácil en Pascal
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Ayuda con ejercicio fácil en Pascal  (Leído 2,449 veces)
MauroB99

Desconectado Desconectado

Mensajes: 2


Ver Perfil
Ayuda con ejercicio fácil en Pascal
« en: 11 Agosto 2017, 22:41 pm »

Hola, antes que nada quiero aclarar que soy n00b en el tema de programación, empecé estudiando Pascal esta semana así que por favor si pueden responderme con sencillez y en términos que pueda entender se los agradecería.
La letra del ejercicio es la siguiente:
"Supóngase que un número de tres dígitos tiene la forma abc. Por ejemplo, si el número fuera 730, entonces a representa al siete, b al tres y c al cero. Escríbanse expresiones en Pascal que produzcan los "números" cba y accb."
Esto fue lo que hice:
Código
  1. Program ejercicio_4_capitulo3 (input, output); uses crt;
  2. var numero, a, b, c: integer;
  3. begin  clrscr;
  4. write ('Escriba un numero entero de 3 cifras : ');
  5. read(numero);
  6. a := trunc(numero DIV 100);
  7. writeln ('a= ',(a));
  8. b := trunc ((numero - a * 100) DIV 10);
  9. writeln ('b= ',(b));
  10. c := (numero - a * 100) - (b * 10);
  11. writeln ('c= ',(c));
  12. writeln (c, b, a);
  13. writeln (a, c, c, b);
  14. readkey
  15. end.
Me gustaría saber si está bien o si se puede simplificar de alguna manera, gracias!


« Última modificación: 11 Agosto 2017, 23:41 pm por MauroB99 » En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
ejercicio Pascal, ayuda para terminarlo « 1 2 »
Programación General
manu3742 16 9,754 Último mensaje 6 Abril 2011, 20:40 pm
por d(-_-)b
Necesito ayuda con un ejercicio de turbo pascal
Programación General
Madsmarco 1 3,085 Último mensaje 10 Abril 2011, 22:17 pm
por skapunky
Ayuda con Ejercicio en Pascal?
Programación General
horacio_b92 1 2,005 Último mensaje 6 Octubre 2012, 13:37 pm
por n0z
Ayuda ejercicio en Pascal
Programación General
mardek 1 2,119 Último mensaje 1 Mayo 2013, 22:03 pm
por Ferno
Ayuda con ejercicio! Free Pascal
Ejercicios
DiegoCorrea 0 4,115 Último mensaje 4 Septiembre 2015, 18:40 pm
por DiegoCorrea
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines