AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Schleifen-Problem

Ein Thema von Fritt · begonnen am 2. Nov 2013 · letzter Beitrag vom 3. Nov 2013
 
Fritt

Registriert seit: 1. Jul 2013
Ort: Siegen
1 Beiträge
 
FreePascal / Lazarus
 
#1

Schleifen-Problem

  Alt 2. Nov 2013, 23:36
Entschuldigt bitte, wenn ähnliche Posts bereits tausendfach irgendwo gepostet wurden, allerdings konnte ich nirgendwo eine Lösung für mein Problem finden. Ich bin, was Lazarus/Delphi angeht, ein ziemlicher Neuling. In meinem Info-Kurs hatten wir die Aufgabe eine in einem Edit-Feld stehende Zahl mit einer weiteren in einem zweiten Edit-Feld stehenden Zahl zu potenzieren. Dabei sollten wir einmal eine for-, eine while- und eine repeat-until-Schleife verwenden. Das mit der For-Schleife hat soweit auch zufriedenstellend funktioniert. Ich weiß aber nicht wirklich, wie die anderen beiden funktionieren sollen (Ich habe wirklich verdammt lange überlegt und komme alleine nicht so wirklich weiter).
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
Var a:double; c: double; i: integer;
begin
  a:=strtofloat(edit1.text);
c:=1;
for i:=1 to strtoint(edit2.text)do
begin
c:=c*a;
end;
edit3.text:=floattostr (c);
end;
Vielen Dank schon mal für eure Hilfe!
Felix
  Mit Zitat antworten Zitat
 

 
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:48 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz