Programa.dpr 777 B

1234567891011121314151617181920212223242526272829303132333435363738394041424344
  1. program Programa;
  2. {$APPTYPE CONSOLE}
  3. {
  4. Las bibliotecas se almacenan en archivos especiales
  5. llamados unidades (Unit).
  6. }
  7. uses
  8. SysUtils, Math;
  9. { Para futuras versiones de Delphi: }
  10. { System.SysUtils, System.Math; }
  11. var
  12. valor1: Integer;
  13. cadena1: String;
  14. valor2: Double;
  15. begin
  16. Write('Ingresa un entero: ');
  17. ReadLn(valor1);
  18. {
  19. Nuevo procedimiento.
  20. Convierte un entero a string.
  21. }
  22. cadena1 := IntToStr(valor1);
  23. WriteLn('La variable cadena1 tiene el valor de: ', cadena1);
  24. WriteLn('Presiona la tecla Enter para emitir un Beep');
  25. ReadLn;
  26. Beep;
  27. {
  28. Nuevo procedimiento.
  29. Eleva a una potencia cualquier tipo de dato numérico.
  30. }
  31. valor2 := Power(valor1, 3);
  32. WriteLn(valor1, ' elevado al cubo es: ', valor2:0:0);
  33. ReadLn;
  34. end.