wurzel ziehen und quadrieren

[Neutral General]

Hi,

also ich schreibe dir da alle mal kommentiert und formatiert hier hin... ausnahmsweise..

Delphi-Quellcode:

program Project2; 

{$APPTYPE CONSOLE} 

uses 
  Windows, 
  Messages, 
  SysUtils, 
  Dialogs; 

var 
 s: integer; 
 t: Single;  // Single statt Integer für die Wurzel
 Rechnung: string; 

begin 
  Rechnung:= Inputbox ('quadrieren und Wurzelziehen', 
                          'Zahl eingeben, die quadriert und aus der die Wurzel gezogen werden soll.','1'); 
  s:= Strtoint(Rechnung); 

  if ((s <=-46340) or (s >=46340)) then // kannst auch einfach s überprüfen
    Showmessage('Die von Ihnen eingegebene Zahl befindet sich nicht im Zahlenbreich.') // begin, end überflüssig
  else 
  begin 
    t:= sqrt(s); // t := s ist unnötig
    s:= s*s; // oder sqr(s); wobei dann aber auch s: Single;
    Showmessage ('Das Quadrat von '+Rechnung+' ist '+inttostr(s)+' und die Wurzel aus '+Rechnung+' ist '+ FloatToStr(t)+'!'); // bei t jetzt FloatToStr benutzen weil t=Kommazahl
  end; 
end.

Aber wie gesagt: Wer kommt auf die Idee eine Konsolenanwendung mit InputBox und ShowMessage zu schreiben?? Sicher das nicht readln und writeln gemeint waren?..

Gruß
Neutral General