Delphi: Integer und Extended Inkompatible Typen?

Quellcode von dem Private bereich:

    INTpi :integer;
    INTp1 :integer;
    INTp2 :integer;
    INTp3 :integer;
    INTp4 :integer;
    INTp5 :integer;
    INTpu1 :integer;
    INTpu2 :integer;
    INTpu3 :integer;
    INTpu4 :integer;
    INTpu5 :integer;
    INTpeg1 :integer;
    INTpeg2 :integer;
    INTpeg3 :integer;
    INTpeg4 :integer;
    INTpeg5 :integer;
    INTupeg1 :integer;
    INTupeg2 :integer;
    INTupeg3 :integer;
    INTupeg4 :integer;
    INTupeg5 :integer;

Folgender Quellcode:

  INTpi := StrToInt(Epi.Text);
  INTp1 := StrToInt(Ep1.Text);
  INTp2 := StrToInt(Ep2.Text);
  INTp3 := StrToInt(Ep3.Text);
  INTp4 := StrToInt(Ep4.Text);
  INTp5 := StrToInt(Ep5.Text);


  INTpu1 := INTp1/100;
  INTpu2 := INTp2/100;
  INTpu3 := INTp3/100;
  INTpu4 := INTp4/100;
  INTpu5 := INTp5/100;

Ep(Zahl) sind TEdits die ich zu Integer umformatiere.An der/-n Stelle(n) an denen ich durch 100 teile kommt folgende Fehlermeldung:

Inkompatible Typen: 'Integer und Extended'

Könnt ihr mir da weiterhelfen? Schon mal danke im voraus :)

20.06.2020, 03:39

Wenn ich teile, darf ich keine Int verwenden. Da int nur für ganze Zahlen sind. Also habe ich Float/Real benutzt und jetzt klappt alles :D

2 Antworten

Vom Fragesteller als hilfreich ausgezeichnet

regex9

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Computer, programmieren, Code

20.06.2020, 03:27

Der /-Operator gibt bei Gebrauch eine Fließkommazahl zurück.

Entweder du speicherst das Ergebnis also in einem anderen Datentyp (wie real):

var
  dividend, divisor: integer;
  quotient: real;
begin
  quotient := dividend / divisor;
end;

oder du wandelst das Ergebnis via Typecast/Rundung wieder zurück in einen Integer:

var
  dividend, divisor: integer;
  quotient: integer;
begin
  quotient := Round(dividend / divisor);
end;

oder du verwendest die euklydische Division (Division mit Rest):

var
  dividend, divisor: integer;
  quotient: integer;
begin
  quotient := dividend div divisor;
end;

In letzterem Fall würde bspw. 13 div 2 das Ergebnis 6 ergeben (6 Rest 1).

KarlRanseierIII

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Computer, programmieren, Informatik

20.06.2020, 03:17

Das Ergebnis einer Division ist in den seltensten Fällen ganzzahlig und somit kein Integraltyp.

igern

Fragesteller

20.06.2020, 03:17

OMG Danke bin ich dumm xD

Ich bin noch ein absouluter Anfänger in Delphi/lazarus... Ich wollte nun in meinem Programm direkt beim starten

var x:integer;

erstellen... das habe ich hinbekommen indem ich sie an dieser stelle im Quellcode eingefügt habe

{$R *.lfm}
 var x:integer;

aber wenn ich nun darunter

{$R *.lfm}
 var x:integer;
x:=random(100);

schreibe, funktioniert das ganze nicht mehr..... wenn ich das gleiche in eine "Klick funktion" oder wie man das nennt packe, klappt es. An welche stelle im Quellcode kann ich denn jetzt "Anweisungen" wie if etc. reinschreiben das sie direkt beim starten das programmes ausgeführt werden und nicht erst wenn man draufklickt etc. ???

...zur Frage

Morsealphabet als Binärbaum programmieren? What?

Hey,

habe zu morgen eine Aufgabenstellung bekommen, die lautet:

Morsealphabet als Binärbaum programmieren. (Bzw. erstmal implementieren/ aber schriftlich?!)

Habe die ganze Aufgabe mal mit den anderen Dateien hochgeladen.

Hier: https://drive.google.com/open?id=1CUy3nWDhU10mHjhDO43ym0hbmSQYGMdo

Programmiersprache: Pascal [in Delphi]

Verstehe leider nur Bahnhof, wir sollen Aufgabe a) und b) erledigen.
Nur wie?! Und schriftlich???

Danke im Voraus

...zur Frage

Wie viele Zeilen Code schreiben Softwareentwickler bzw. Programmierer durchschnittlich pro Tag?

...zur Frage

Lazarus: Objekte aus Form1 in Form 2 verändern?

Hallo Leute, ich versuche mit einer Form1 per Click einen Button in der Form2 verschwinden zu lassen. Ich habe nur das Problem, dass ich aus einem Grund die Fehlermeldung :"sigsegv" angezeigt bekomme.

Ich würde mich sehr freuen wenn jemand mir einen Tipp geben könnte wie man dies umsetzen könnte.

Beste Grüße

...zur Frage

Lazarus Package aus .pas dateien erstellen?

Ich habe ein Lazarus Pkg heruntergeladen aber wie so häufig ist da drin keine fertige .lpk datei die man einfach installieren könnte sondern man muss die pas dateien selber in ein Package kompilieren welches man dann installiert das ist mir klar. Aber wie mache ich das? Kann mir einer helfen?

...zur Frage

Wir sollen in Informatik ein einfaches Spiel mit delphi prorammieren aber ich hab einfach keine Idee vielen dank für hilfe?

...zur Frage

Mensch-ärgere-dich-nicht in Pseudocode?

Hallo Community. Ich schreibe demnächst eine Informatik-Klausur und habe als Übungsaufgabe unter anderem folgende Aufgabe bekommen:

Beschreiben Sie in Pseudocode den Vorgang des ersten Würfelns beim Mensch ärgere dich nicht, also vor dem ersten Raussetzen bis zum Ende des ersten Zuges! Nutzen Sie die Befehle: - würfeln (gibt eine Zahl zwischen 1 und 6 zurück), - raussetzen, - rücken(n) (verlangt als Parameter die Anzahl der Felder um die gerückt wird - weitergeben (wenn der eigene Spielzug beendet ist) sowie die aus Pascal bekannten Schlüsselwörter für Programmstrukturen (begin, end, if ... then ... else ... usw.)! Verwenden Sie die Variablen AZ für die aktuelle Augenzahl und i für die Nummer des Wurfes.

_________________________________________________________

Wir haben sowas ähnliches schonmal im Unterricht gemacht, ich habe aber wieder vergessen wie das nochmal ging. Kann mir jemand helfen?

(Ich erwarte nicht, dass mir jemand diese Aufgabe komplett löst, ich hoffe, dass mir jemand Lösungsansätze geben kann.)

Danke :)

...zur Frage

Wurzeln in Pascal?

Hallo, ich würde gern Wurzel ziehen, aber wenn ich sqrt(x); eingebe funktioniert das nicht :c

...zur Frage

Was ist eure lieblings Programmiersprache in 2023?

...zur Frage

programmieren repeat schleife?

Wie lautet die größte Zahl, die sich aus den Ziffern von x bilden lässt?
Die größte Zahl zu x = 213 wäre z.B. die 321, für die 11002 wäre es die 21100.

hallo, ich habe diese Aufgabe bekommen und kann sie einfach nicht lösen.

Ich muss mit einer repeat schleife hinbekommen, das die größte zahl gebildet wird. für einen bestimmten zahlen Bereich. zbs. von 0 bis 10.

strings dürfen wir nicht benutzen.

meine programmier Sprache ist Pascal.

danke im Voraus

...zur Frage

Wann StrToFloat oder FloatToStr (oder StrToInt,…) benutzen?

Beim programmieren mit Delphi in Lazarus stelle ich mir (als absoluter Beginner beim Thema programmieren) die Frage, was String und Float genau bedeutet und wann ich StrToFloat und FloatToStr benutzen muss. Ich habe gegoogelt und da stand, String sei eine Zeichenfolge. Was ist eine Zeichenfolge?

Außerdem, was ist Integer und wann brauche ich das (StrToInt, und gibt es auch IntToStr?)? Mache grade einen Programmier Kurs in dem wir mit Delphi bei Lazarus beginnen. Leider wird in dem Kurs vorausgesetzt das ich mir solche Dinge schon merken kann, aber ich bin da nicht so flott.

Ich brauch Antworten in möglichst einfacher Sprache, die Fachsprache kenne ich noch nicht und kann deshalb mit sämtlichen Foren in denen sich Programmierer darüber unterhalten nichts anfangen.

...zur Frage

Wörter in einem String zählen mit Pascal?

Hallo, ich soll die Wort Anzahl eines Strangs zählen in Pascal.

wie funktioniert das. Egal was ich versuche, ich komme nicht weiter....

Am besten so leicht wie möglich. So viel dürfen wir noch nicht benutzen.

Schleifen sind erlaubt.

Aber keine Arrays!

Danke im Voraus! :)

...zur Frage

In einem bestimmten Intervall alle Primzahlen ausgeben?

Hallo liebe Community ich habe folgendes Problem, ich habe die Aufgabe ein Programm zu schreiben, welches mir aus dem Intervall von 20-30 ausgibt wie viele Primzahlen dort enthalten sind und welche es sind. Anstatt mir aber, 2 als Anzahl und 23 und 29 als Primzahlen auszugeben, gibt mir das Programm 77 als Anzahl und dann ne Menge Zahlen aus. Ich verstehe jedoch nicht warum.

Quellcode:

procedure TForm1.StartClick(Sender: TObject);
var
  A, B, C, ANFANGS_WERT, END_WERT, ANZAHL : Cardinal;
  IST_PRIMZAHL : Boolean;
  PRIM_FELD : array[1..100] of Cardinal;
begin
  ANZAHL := 0;
  ANFANGS_WERT := StrToInt(Eingabe1.Text);
  END_WERT := StrToInt(Eingabe2.Text);
  for A := ANFANGS_WERT  to END_WERT do
  begin
    IST_PRIMZAHL := true;
    for B := 2 to (A div 2) do
    begin
      C :=  A mod B;
      if C = 0 then
      begin
        IST_PRIMZAHL := false;
      end
      else if IST_PRIMZAHL = true then
      begin
        Inc(ANZAHL);
        PRIM_FELD[ANZAHL] := A
      end
      else IST_PRIMZAHL := true;
    end;
  end;
  Ausgabe.items.add(' Primzahlen: ' + IntToStr(ANZAHL));
  for A := 1 to ANZAHL do
    begin
      Ausgabe.Items.Add(IntToStr(PRIM_FELD[A]));
    end;
end;

...zur Frage

Wie unterscheiden sich Pascal und Delphi?

Ich wollte mal fragen, wie sehr sich Delphi und Pascal unterscheiden. Ich habe gemerkt dass der Syntax sich sehr ähnelt, da ich mir Lazarus gedownloaded und Delphi auch gesehen habe. Danke im Voraus

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen