definiere eine variable die eben diesen wert beinhalten soll.
z.B.
var
prozent: integer;

jetzt kommt es darauf an ob du immer eine schleife durlaufen lässt oder dauernd neue aufgebn laufen lässt.


Schleife:
einfach immer am anfang der Schleife einfügen:

prozent := prozent + 1;
write (prozent);

hier wird bei jedem schleifendurchgang der wert prozent erhöht.

Wenn dauernd neue aufgaben berechnet werden schreibts du einfach immer genau das gleiche dazwischen wenn eben das prozent erhöht werden soll.
das prozentzeichen würde ich danach noch einfügen indem du unter
prozent := prozent + 1; write (prozent); einfach noch write ('%'); schreibtst.

Ich beschäftige mich noch nitcht lange mit pascal aber es sollte so oder so ähnlich klappen:

das habe ich leider auch schon ausprobiert,
dabei erhalte ich folgende ausgabe:

1 prozent fertig1 Prozent fertig3 prozent fertig4 prozent fertig5 prozent
fertig6 prozent fertig u.s.w

stimmt hab ich nicht dran gedacht.
sry


aber versuchs doch mal mit dem befehl clrscr immer vor dem prozent!

der löscht nähmlich den aktuellen bildschirminhalt was bedeutet das vor dem "3 prozent" dann da "ein prozent" gelöscht wird.

allerdings wird dabei der gesamte inhalt des programmfensters gelöscht , so das auch informationen wie "datei 123412 verschoben" nicht mehr sichtbar sind.
es gibta glaub sogar eine möglichkeit blos bestimmte sachen zu löschen aber diwe kenne ich nicht:

MfG
Shintaro

So ein Blödsinn!

Die richtige Antwort ist: vor jeder Ausgabe einfach

GoToXY(1, 1);

@ shintaro2000
geht nich, weil ich vorher noch anderen text auf'm bildschirm hab

@ son_quatsch
geht leider auch nich: kommt das selbe wie bei

prozent := prozent + 1;
write (prozent);

raus.


habs aber schon selber gelöst:
hab "clreol" und "prozent := prozent +1" benutzt

@ son_quatsch

sry, dass ich erst seit 2 wochen mit delphi rumprobier und nebenher noch andere dinge zu tun hab

und da deins auch nicht funktioniert:
einfach mal still halten