Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program Project1;
- {$APPTYPE CONSOLE}
- uses
- SysUtils;
- const MAX_INT=2147483647;
- var
- x:integer;
- begin
- { TODO -oUser -cConsole Main : Hier Code einfügen }
- writeln('Bitte geben sie eine Ganzzahl ein, aus der das Quadrat gebildet werden soll:');
- try
- readln(x);
- if x > sqrt(MAX_INT) then
- writeln('Die Zahl muss aufgrund von Grenzen des Datentyps Integer kleiner sein als: '+FloatToStr(round(sqrt(MAX_INT))))
- else
- writeln('Das Quadrat von '+IntToStr(x)+' ist '+IntToStr(x*x)+'.');
- except on EInOutError do
- writeln('Es muss schon eine Zahl einegeben werden..');
- end;
- readln;
- end.
Add Comment
Please, Sign In to add comment