AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Hoch Programm

Ein Thema von boxer123 · begonnen am 23. Nov 2011 · letzter Beitrag vom 28. Nov 2011
Antwort Antwort
Seite 1 von 2  1 2   
boxer123

Registriert seit: 18. Okt 2011
96 Beiträge
 
#1

Hoch Programm

  Alt 23. Nov 2011, 20:31
Also das programm soll sich eine hohe zahl auswählen und sie dann auseinander nehmen und kommt drauf an wenn es eine 4 stellige zahl ist dann so mit jder zahl hoch 4 genommen werden und wenn es eine 5 stellige zahl ist dann muss jede ziffer mit hoch 5 genommen werden.


Es funkt aber nicht.

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var zahl1 , zahl2:integer;
ziffer: Array [ 1..4 ] of integer;
begin
zahl1:= 1000;
repeat
  zahl1:= zahl1+1;
    ziffer[1]:= ( zahl1 mod 10 ) div 1;
    ziffer[2]:= ( zahl1 mod 100 ) div 10;
    ziffer[3]:= ( zahl1 mod 1000 ) div 100;
    ziffer[4]:= ( zahl1 mod 10000 ) div 1000;
  for i:= 1 to 4 do
    ziffer[i]:= ziffer[i] * ziffer[i] * ziffer[i] * ziffer[i];
  until zahl1= zahl2;
edit2.text:= InTTostr(zahl1);
end;
Edit: sorry habe das wichtige ausgelassen, das ergebnis soll der gleichen zahl gleich sein
  Mit Zitat antworten Zitat
Klaus01

Registriert seit: 30. Nov 2005
Ort: München
5.752 Beiträge
 
Delphi 10.4 Sydney
 
#2

AW: Hoch Programm

  Alt 23. Nov 2011, 22:03
.. wo wird zahl2 mit einem Wert versorgt?

Grüße
Klaus
Klaus
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.017 Beiträge
 
Delphi 12 Athens
 
#3

AW: Hoch Programm

  Alt 23. Nov 2011, 22:24
.. wo wird zahl2 mit einem Wert versorgt
Das, und ziffer wird auch nie wieder verwendet.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#4

AW: Hoch Programm

  Alt 24. Nov 2011, 00:20
Hatten wir das ganze nicht schon mal mit einer dreistelligen Zahl?
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Delphi-Laie

Registriert seit: 25. Nov 2005
1.474 Beiträge
 
Delphi 10.1 Berlin Starter
 
#5

AW: Hoch Programm

  Alt 24. Nov 2011, 00:34
Also das programm soll sich eine hohe zahl auswählen
Hohe? Ich kenne nur große Zahlen, wobei auch das relativ ist: Jede Zahl ist winzig gegenüber der Unendlichkeit.

und sie dann auseinander nehmen
Auseinander( )nehmen? Ich kenne bei Zahlen nur das Zerlegen. Wie sollen die zerlegt werden? Additiv? Multiplikativ?

mit jder zahl hoch 4 genommen werden und wenn es eine 5 stellige zahl ist dann muss jede ziffer mit hoch 5 genommen werden.
Hoch 4 genommen? Also mit 4 potenziert werden?

Es funkt aber nicht.
Was, kein Funken?

Geändert von Delphi-Laie (24. Nov 2011 um 13:01 Uhr)
  Mit Zitat antworten Zitat
Bjoerk

Registriert seit: 28. Feb 2011
Ort: Mannheim
1.384 Beiträge
 
Delphi 10.4 Sydney
 
#6

AW: Hoch Programm

  Alt 24. Nov 2011, 01:49
Ist mindestens der dritte Thread dieser Art. Boxer, mach' dir div und mod halt mal klar.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  X, Y, Z: Integer;
begin
  for X:= 2 to 4 do
    for Y:= 2 to 4 do
    begin
      ShowMessage (IntToStr(X)+' div '+IntToStr(Y)+' = ');
      ShowMessage (IntToStr(X)+' div '+IntToStr(Y)+' = '+IntToStr(X div Y));
    end;
  for X:= 2 to 4 do
    for Y:= 2 to 4 do
    begin
      ShowMessage (IntToStr(X)+' mod '+IntToStr(Y)+' = ');
      ShowMessage (IntToStr(X)+' mod '+IntToStr(Y)+' = '+IntToStr(X mod Y));
    end;
  for X:= 2 to 4 do
    for Y:= 1 to 2 do
      for Z:= 1 to 2 do
      begin
        ShowMessage (IntToStr(X)+' div '+IntToStr(Y)+' mod '+IntToStr(Z)+' = ');
        ShowMessage (IntToStr(X)+' div '+IntToStr(Y)+' mod '+IntToStr(Z)+' = '+IntToStr(X div Y mod Z));
      end;
end;
  Mit Zitat antworten Zitat
jobo

Registriert seit: 29. Nov 2010
3.072 Beiträge
 
Delphi 2010 Enterprise
 
#7

AW: Hoch Programm

  Alt 24. Nov 2011, 11:48
Für ein Hoch Programm ist jedenfalls der Ansatz richtig:
Eine Hoch Sprache verwenden.


Gruß, Jo
  Mit Zitat antworten Zitat
Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#8

AW: Hoch Programm

  Alt 24. Nov 2011, 13:06
@Delphi-Laie + jobo: Wenn ihr nichts zum Thema beizutragen habt unterlasst doch bitte das sticheln. Wie man euren Aussagen entnehmen kann scheint ihr zu wissen was der Fragesteller meint. Nicht jeder hat Spaß daran mit Fachausdrücken um sich zu werfen. Von daher respektiert bitte wenn jemand eine Frage ohne Unmengen an Fachausdrücken stellt.
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat
jobo

Registriert seit: 29. Nov 2010
3.072 Beiträge
 
Delphi 2010 Enterprise
 
#9

AW: Hoch Programm

  Alt 24. Nov 2011, 13:59
Ja, Du hast Recht. Auch wenn es meiner Meinung nach nicht alles immer so fürchterlich ernst sein muss. Die Grenze ist vielleicht Geschmackssache, aber letztlich schätze ich ja selber die Sachlichkeit hier.
Gruß, Jo
  Mit Zitat antworten Zitat
boxer123

Registriert seit: 18. Okt 2011
96 Beiträge
 
#10

AW: Hoch Programm

  Alt 28. Nov 2011, 21:24
habe es alleine geschafft aber trozdem dankke
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2   

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 12:58 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz