Hallo,
bitte ändere Deinen Code auf "Delphi-Code". Ergänze das Ganze mit einer Beschreibung und Kommentaren, damit jeder sieht, was Du Dir vorgestellt hast, und nicht raten muss. Und wofür willst Du Ideen haben? Wie es variabel gestaltet werden soll? (Dann musst Du die Abfrage vor allem einbauen an den Anfang der Haupt-Prozedur des Programms.) Oder was?
Jürgen
/Edit
Ich habe jetzt die Änderungen gelesen. So wird es nichts; sondern so musst Du vorgehen:
Delphi-Quellcode:
// nicht hier:
procedure odd;
var x, y, anz :integer;
begin
// hier müsste jetzt write ('blabla'); readln (n);
// Setlength(quadrat,1,n);
usw. end;
// sondern hier:
begin
// hier müsste jetzt write ('blabla'); readln (n);
// Setlength(quadrat,1,n);
if (ord mod 4=0) then mod4
else if (ord mod 2=1) then odd
else oddmod2;
ausgabe;
end.
Aber wie es geht, weiß ich nicht, da ich von Delphi schon zu lange weg bin und mit Arrays fast nie gearbeitet habe.
Beschreibung und Kommentare sind natürlich weiterhin notwendig.
Jürgen