Guest User

Untitled

a guest
May 24th, 2018
70
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.62 KB | None | 0 0
  1. program Project1;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. uses
  6. SysUtils;
  7.  
  8. const MAX_INT=2147483647;
  9. var
  10. x:integer;
  11. begin
  12. { TODO -oUser -cConsole Main : Hier Code einfügen }
  13. writeln('Bitte geben sie eine Ganzzahl ein, aus der das Quadrat gebildet werden soll:');
  14. try
  15. readln(x);
  16. if x > sqrt(MAX_INT) then
  17. writeln('Die Zahl muss aufgrund von Grenzen des Datentyps Integer kleiner sein als: '+FloatToStr(round(sqrt(MAX_INT))))
  18. else
  19. writeln('Das Quadrat von '+IntToStr(x)+' ist '+IntToStr(x*x)+'.');
  20. except on EInOutError do
  21. writeln('Es muss schon eine Zahl einegeben werden..');
  22. end;
  23. readln;
  24. end.
Add Comment
Please, Sign In to add comment