Was ist mein Fehler?

[snoopy219]

hey!
ich habe eine hausaufgabe, aber irgendwie ist da ein Fehler drin den ich nicht finde..könnt ihr mir bitte helfen?

die Aufgabe ist im Anhang


mein Quelltext:

Code: Alles auswählen

 var bpersonen,neuerkrankungen,geimpft,gpersonen,erkrankungen,geimpftep,summekpersonen,summeupersonen,tag:longword;
begin
  writeln('--- Simulation einer Epedemie ---');
 
  write('Anzahl der betroffenen Personen       : '); readln(bpersonen);
  write('Neuerkrankungen in %                  : '); readln(neuerkrankungen);
  write('Anzahl der geimpften Personen pro Tag : '); readln(geimpft);
 
  gpersonen:=0;
  erkrankungen:=0;
  geimpftep:=0;
  summekpersonen:=0;
  summeupersonen:=0;
  tag :=0;
  writeln(' Tag - gefaehrdete Personen - Erkrankungen - geimpft - Summe Erkrankter - Summe ungefaehrdeter');
  writeln(  tag,        gpersonen,       erkrankungen,  geimpftep, summekpersonen,      summeupersonen);
 
  repeat
    geimpftep:=geimpft;
    gpersonen:=bpersonen;
    erkrankungen:=gpersonen/neuerkrankungen;
    gpersonen:=gpersonen-(erkrankungen+geimpftep);
    summekpersonen:=summekpersonen+erkrankungen;
    summeupersonen:=summeupersonen+geimpftep;
    tag:=tag+1;
 
  until geimpftep>erkrankungen ;
  readln;
end;                   

wäre echt nett, wenn ihr mir helfen könnten. danke.

[m.fuchs]

Möchtest du uns auch noch sagen, wie sich der Fehler äußert?

[snoopy219]

in der repeat schleife wird folgendes markiert:

erkrankungen:=gpersonen/neuerkrankungen;

[gocher]

Dein Problem ist das es keine zum Teil infizierten Menschen gibt, also z.B. 8,6 Kranke!
Dein programmiertechnisches Problem besteht darin das Du diese zum Teil infizierten dann auch noch in eine Variable packst die nur GANZ infizierte fassen kann!

Also überlege Dir ob Du auch zum Teil infizierte haben willst, dann muss die Variable "erkrankungen" vom Typ Float sein, oder Du musst mit DIV, MOD oder Round arbeiten!

[m.fuchs]

Es hilft sich mal die Fehlermeldungen anzuschauen, in diesem Falle sollten sie genug Ansatzpunkte geben:

Code: Alles auswählen

Hint: use DIV instead to get an integer result
Error: Incompatible types: got "Extended" expected "LongInt"

Kurz gesagt: es gibt zwei Arten wie Zahlen als Variablen gespeichert werden. Als Ganzzahlund als Gleitkommamzahl.
Und es gibt zwei Arten von Divisionsoperatoren:

• / liefert ein Ergebnis als Gleitkommazahl
• div eines als Ganzzahl

Du setzt / willst das Ergebnis aber in einer Ganzzahlvariable speichern.

[snoopy219]

ahh! danke, der fehler ist wohl geklärt.
den nächsten werde ich erstmal selber versuchen zu berichtigen.

[m.fuchs]

den nächsten werde ich erstmal selber versuchen zu berichtigen.

Das ist immer ein guter Ansatz.

Meine Anmerkung sollst du aber auch nicht als negative Kritik auffassen, eher als Hilfestellung wie du selber schnell zum Ziel kommst. Grundsätzlich sind Anfängerfragen hier immer gerne gesehen, solang sie sich an ein Mindestmaß an Höflichkeit halten. Das ist ja bei dir gegeben.

Ein paar Tipps vielleicht noch, für zukünftige Fragen:

• Benutze den Highlighter um Code in deinen Beitrag einzufügen, das macht das Lesen einfacher.
• Versuche möglichst eine genaue Fehlerbeschreibung abzugeben. In welcher Zeile kracht es und mit welchem Fehler.
• Gib an, welche Version von Lazaurs (und auf welchem OS) du nutzt. Das kann manchmal entscheidend sein.

Ansonsten viel Spaß mit Lazarus und bis zur nächsten Frage.