Advertisement
Guest User

Untitled

a guest
Aug 30th, 2016
59
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.49 KB | None | 0 0
  1. procedure TForm1.Button1Click(Sender: TObject);
  2. var
  3. i: integer;
  4. zahl1: integer;
  5. zahl2: integer;
  6. Ergebnis: integer;
  7. begin
  8. zahl1:= StrToInt(Edit1.Text);
  9. zahl2:= StrToInt(Edit2.Text);
  10.  
  11. Ergebnis:= 0;
  12.  
  13.  
  14.  
  15. for i := zahl1 to zahl2 do begin
  16. Ergebnis:= Ergebnis + i;
  17. end;
  18. Label1.Caption:= IntToStr(Ergebnis);
  19.  
  20.  
  21. end;
  22.  
  23. procedure TForm1.FormActivate(Sender: TObject);
  24. begin
  25. Edit1.Text:= '';
  26. Edit2.Text:= '';
  27. Label1.Caption:= 'Ergebnis';
  28.  
  29. end;
  30.  
  31. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement