Ausgangszahl verdoppeln ! Einige Beispiele

Ari · Beiträge: 29

(1) Eine Ausgangszahl soll beliebig oft verdoppelt werden. Ermögliche die Eingabe der Ausgangszahl und der Anzahl der Verdopplungen sowie die Ausgabe der Ergebnisse!

(2) Eine Ausgangszahl soll so oft verdoppelt werden, bis eine Obergrenze erreicht ist. Ermögliche die Eingabe der Ausgangszahl und der Obergrenze sowie eine passende Ausgabe für die Ergebnisse.

(3) Es soll zuerst eine beliebige Anzahl von geraden Zahlen (beginnend bei 2) sowie ihre Summe ausgegeben werden. Der User soll diese Anzahl festlegen können. Dann soll analog eine beliebige Anzahl von ungeraden Zahlen (beginnend bei 1) sowie ihre Summe ausgegeben werden.

(4) Der User soll eine Folge von positiven ganzen Zahlen einlesen, welche in einem Memo ausgegeben werden. Durch die Eingabe der Zahl Null wird die Eingabe beendet. Abschließend sollen Summe, Mittelwert und Maximum der Zahlenfolge ausgegeben werden.

(5) Der User soll eine positive ganze Zahl angeben. Es werden in einem Memo alle Teiler dieser Zahl ausgegeben und bestimmt, ob es sich um eine Primzahl handelt (Eine Primzahl ist nur durch 1 und sich selbst teilbar). Diese Antwort soll in einem Meldungsfenster erfolgen.

(6) Der User soll einen beliebigen Kontostand angeben und dann Abhebungen durchführen. Abhebung und neuer Kontostand sollen in einem Memo mitprotokolliert werden. Man kann allerdings nur dann abheben, wenn genügend Geld am Konto ist. Beträgt der Kontostand 0€, wird das Programm mit einer entsprechenden Meldung beendet.

Das sind Übungsbeispiele von unserer Lehrerin

Also wenn sowas in der Art kommt (ohne Hinweise etc)..

für die 1. SA schon zach find ich ? was meint ihr ?

wie mache ich das erste Beispiel ?

Raphael O. · Beiträge: 1596 VS 2013

Zitat:

was tun?

also, als erstes änderst du mal den Titel gemäß den Forenrichtlinien

)

dann kommen wir mal zu den Aufgaben...
was du hierfür brauchst sind 2 Edit-Felder 1Button
und je nach belieben ein Edit mit ReadOnly oder ein label...

zu (1):
die Ausgangszahl wird ins erste Editfeld geschrieben (vom BEnutzer) die Anzahl der verdoppelungen im 2....
die Buttonclick-prozedur sieht dann so aus:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

var i,zahl:Integer;
begin
zahl:=strtoint(edit1.text);
for i:=1 to strtoint(edit2.text) do
begin
  zahl:=zahl*2;
end;
edit3.Text:=inttostr(zahl);
end;

ich denke mal die Schulaufgabe dürfte zu schaffen sein

Ari · Beiträge: 29

ich dachte so :

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure Tform1.button1click (sender: Tobject);
var i: byte; summe:real;
begin
summe:=0;
for i:=1 to 5 do begin
summe:=summe+i*i 
memo1.lines.add(floattostr(summe))
end;
end;

aber ich seh grad... dein weg scheint mir besser

btw für frage2.. wie programmiere ich eine Obergrenze ??

Lhid · Beiträge: 831

Meinung und mich grundlegend verändert.--> Beiträge gelöscht

Raphael O. · Beiträge: 1596 VS 2013

@Lhid: wofür braucht er denn hier ararys??

wenn du eine Grenze haben wilslt (anstatt der Anzahl an Ausführungen ) machst du das am besten so:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

var zahl:Integer;
begin
zahl:=strtoint(edit1.text);
while zahl<=strtoint(edit2.text) do//edit2 enthält die Grenze
begin
  zahl:=zahl*2;
end;
end;

Lhid · Beiträge: 831

Meinung und mich grundlegend verändert.--> Beiträge gelöscht

Ari · Beiträge: 29

lol while haben wir noch garnicht gelernt !

ehh... und warum edit3.Text:=inttostr(zahl); `? nicht memo1 ?

Raphael O. · Beiträge: 1596 VS 2013

habt ihr denn schon repeat-schleifen??

kannst es natürlich acuh in ein memo schreiben, aber hier ist wohl ein edit praktischer...

Ari · Beiträge: 29

repeat haben wir auch noch nich :-(

die Obergrenze kann ich also (theoretisch) garnicht machen ?

Raphael O. · Beiträge: 1596 VS 2013

eine ganz unelegante methode wäre es for i :=1 to 10000 do
...
if zahl>strtoint(edit2.text) then break;
damit wird die schleife abgebrochen

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme