Pascal habe ich ca. 1993 im Gymnasium gelernt. Aber zu Hause habe ich
noch Basic bevorzugt.
Interessante Programme habe ich aber erst ab 1996 in Pascal
geschrieben. Bis 1999 bin ich bei Pascal geblieben.
Danach habe ich mehr in C bzw. ein wenig C++ programmiert
(siehe Weihnachtsprogramme).
Fast alle Programme hier (außer topsort.pas) wurden mit
"Borland Turbo Pascal 6.0" geschrieben.
Soweit nichts anderes angegeben ist, gilt folgendes für die
Programme:
Benutzung auf eigene Gefahr, keine Gewähr bei Fehlern, frei
kopierbar, Geldverdienen und Patentierung von Teilen der der Gesamtheit
mit diesen Programmen nicht erlaubt.
If nothing else is mentioned, this applies for these programmes:
Using on your own risk, No warranty in error cases, free copying, No
moneymaking with this programs and No patenting of parts or the whole of
these programmes.
Studium |
Bildschirm-Animationen |
Bitmap-Zeichnen |
Grafisches |
Mathematisches |
Tools (Nützliches) |
Units (Module) |
Weihnachtliches |
Name | Beschreibung | Bilder (Größe) |
---|---|---|
feldlist.pas | Datenstrukturen: Dynamische Felder durch Listen mit Index- und Sublistenteil in der Typdefiniton der Elemente. | |
topsort.pas | Theoretische Informatik: Topologische Sortierung im gerichteten Graph. |
Name | Beschreibung | Bilder (Größe) |
---|---|---|
Afterdrk.pas | Strahlenförmig angeordnete Kreise und Linien | Bild 1 (43 KB) |
Ameisen.pas | Der Punkt scheint sich wie ein Ameisenhaufen zu bewegen | 1 (9 KB) 2 (77 KB) |
Drehrec2.pas | Drehendes gefülltes Rechteck, ergibt schöne Kreisstrukturen | 1 (12 KB) 2 (12 KB) |
Ellipsen.pas | 12 sich drehende Ellipsen-Viertel (90 Grad-Abschnitte) sehr farbig |
1 (10 KB)
2 (11 KB) 3 (11 KB) 4 (7 KB) |
Farben2.pas | Sehr viele gefüllte Kreise, die oft ihre Farbe ändern (RGB wird zufällig verstellt) | 1 (42 KB) 2 (45 KB) |
Kegel.pas | wie ein Lichtkegel. Wenn zwei sich schneiden, wird um eine Farbstufe erhöht | 1 (20 KB) 2 (13 KB) |
Kreis.pas | ein Kreis dreht sich um einen Punkt am Kreisrand, dabei ändert sich die Farbe | Bild 1 (27 KB) |
Kreisbau.pas | Ausgehend vom Mittelpunkt werden immer kleinere Quadrate, Kreise oder Achtecke angehangen | 1 (7 KB) 2 (8 KB) |
Lindreh2.pas | Eine Linie dreht sich um 360 Grad und bildet Raute. Zufällige Faren und Orte | Bild 1 (29 KB) |
Lindrehe.pas | Eine Linie dreht sich und bewegt sich gleichtzeitig. Zufällige Farbe, Anfangspunkt und Länge | Bild 1 (5 KB) |
Linierot.pas | Linie wird gedreht und ändert dabei Drehradius und Länge. Bringt eine sehr interessante Figur | Bild 1 (31 KB) |
Quadrot.pas | Das gleiche wie bei Linierot, nur mit Quadraten Bringt eine etwas andere aber auch interessante Figur | Bild 1 (22 KB) |
Recht2.pas | Rechtecke, Kreise, Ellipsen, Linien, Strahlen und Text Erst vergößert, dann verkleinert. Nicht so interesssant. | Bild 1 (16 KB) |
Spirale.pas | Drehende Spirale, nahezu pixelweise gezeichnet, Farbe auf Farbe. Ergibt ein sehr schönes Bild | Bild 1 (17 KB) |
Spirale2.pas | Einfache Spirale aus Kreisabschnitten in Lila | Bild 1 (11 KB) |
Spz.pas | Eng gezeichnete normale Spirale, erscheint fast wie aus Kreisen | Bild 1 (17 KB) |
Voegel2.pas | Einfacher wechselnder Vogelflug. Dabei ändert sich zyklisch die Berge, Wolken und der Wasserfall. | 1 (7 KB) 2 (8 KB) |
Name | Beschreibung | Bilder (Größe) |
---|---|---|
Bmp256.pas | Lädt 256-Farb Bitmap-Bild (nach Windows-Format). | |
Bmp256wr.pas | Schreibt 256-Farb Bitmap-Bild (nach Windows-Format). | Bild 1 (3 KB) |
Bmpzei16.pas | Zm Zeichnen von Bildern in 16-Farb-Grafik mit der Maus; Ursprungs-Version; kein Speichern möglich | 1 (10 KB) 2 (8 KB) |
Bmpzei8b.pas | Zeichnen von Bildern in 256-Farb-Grafik mit der Maus; nur ausgelegt auf 512KB-Grafikspeicher, sonst "Fenster" falsch dargestellt; eigenes propriätäres Datenformat | |
Bmpzeich.pas | Zum Zeichnen von Bildern in 16-Farb-Grafik mit der Maus; Speichern/Laden mit eigenem propriätären Datenformat (Beispielbild (189 KB) | Bild 1 (5 KB) |
Bmp_bild.pas | Lädt 16-Farb-Bild im BMP-Format von Windows der Größe 640x442 (einstellbar) | Bild 1 (5 KB) |
Name | Beschreibung | Bilder (Größe) |
---|---|---|
Bildgr.pas | Drehen eines Bildschirmbereiches, langsam da pixelweise | Bild 1 (3 KB) |
Billard.pas | einfaches Billardspiel, Richtung und Kraft kann vorgegeben werden | Bild 1 (4 KB) |
Bmpdreh3.pas | auch Drehen eines Bildschirmbereiches, aber exakter und schneller | Bild 1 (4 KB) |
Race.pas | hochdrehender Tacho und Drehzahlmesser, Gangschaltung, "sich bewegende" Straße, alles automatisch | 1 (6 KB) 2 (6 KB) |
Rastzeic.pas | Lädt Bild im Format von Bmpzeich.pas, zufälliger Bildaufbau Beispiel-Bild | 1 (12 KB) 2 (11 KB) |
Rectples.pas | liest Bild von innen nach außen und schreibt auf Platte; proprietäres Datenformat | 1 (8 KB) 2 (5 KB) |
Rectpsch.pas | liest geschriebenes Bild von Rectples.pas ein, schreibt auf Bildschirm | 1 (7 KB) 2 (8 KB) |
Rueckwae.pas | Einparken mit Auto üben, nicht ganz real | 1 (4 KB) 2 (4 KB) |
Tasrechn.pas | grafischer Taschenrechner, per Maus bedienbar | 1 (10 KB) 2 (8 KB) |
Triomino.pas | Im Gegensatz zu Domino haben die Spielsteine hier 3 Seiten, nicht fertig geschrieben | 1 (7 KB) 2 (6 KB) |
Vectorfo.pas | Drehende Schrift, Anfangs- und Endpunkte der Strichlinien werden neu berechnet |
1 (3 KB)
2 (3 KB) 3 (3 KB) 4 (3 KB) |
Name | Beschreibung | Bilder (Größe) |
---|---|---|
Apfelman.pas | zeichnet Apfelmann in 16 Farben, interessante mathematische Funktion |
1 (11 KB)
2 (27 KB) 3 (25 KB) |
Feldrech.pas | Rechnen mit großen Zahlen in Feldern | Bild 1 (5 KB) |
Funktion.pas | Zeichnet Funktionen und Funktionsgruppen | 1 (23 KB) 2 (32 KB) |
Mandel.pas | zeichnet Mandelbrot in 16 Farben, sehr interessante mathematische Funktion | 1 (46 KB) 2 (124 KB) |
Matrixca.pas | Interaktives Gauß-Verfahren auf Matrizen | Bild 1 (5 KB) |
Przahl2.pas | berechnet Primzahlen ziemlich effizient, speichert bisherige und testet nur mit diesen Modulo | 1-10.000 (9 KB) 1-1.000.000 (565 KB) |
Name | Beschreibung | Bilder (Größe) |
---|---|---|
Labyrint.pas | Computer sucht sich einen Weg durch vorgegebenes Labyrinth | Bild 1 (3 KB) |
Logiktra.pas | Computer findet zu einer (nahezu) beliebigen Kombbination von 4 Stiften in 6 Farben in maximal 7 Schritten die richtige. Komplexe Logik. | 1 (7 KB) 2 (7 KB) |
Rechnen.pas | Auslasten des Computer durch doppelter und langer Schleife mit Rechenoperationen | Bild 1 (6 KB) |
Rechtsli.pas | Schreiben von rechts nach links. | Bild 1 (10 KB) |
Sndblas1.pas | Sound-Ausgabe über Soundblaster-OPL3-Chip | Bild 1 (7 KB) |
Sndblas2.pas | Sound-Ausgabe über Adlib, ähnlich zu Sndblas1.pas | Bild 1 (6 KB) |
Tausch.pas | vertauscht die Buchstaben eines Wortes zufällig | Bild 1 (5 KB) |
Wortsort.pas | Sortiert ein Feld von zufälligen Wörtern | 1 (12 KB) 2 (11 KB) |
Name | Beschreibung | Bilder (Größe) |
---|---|---|
Farbwahl.pas | vereinfacht Verändern der RGB-Werte in der EGA-Palette mit 16 Farben. Auch Rücksetzen möglich | |
Fxxfenst.pas | grafische "Fenster" für die 256-Farb-Version von bmpzeich (für die Funktionstasten F1 - F10) | |
Maus.TPU | übersetzte Version einer alten Unit, v.a. für 3-Tasten-Mäuse. Nicht von mir. Not written by me. | |
Textobjz.pas | Linien- und Füllmuster-Unterstützung, Zeichnen der geometrischen Objekte, für die 256-Farb-Version von bmpzeich | |
T_steuer.pas | Einige Funktionen für das Spiel Triomino (nicht fertig) | |
Zoominbi.pas | für Weih98*.PAS; Zeichnet Bild von Mitte nach außen |
Name | Beschreibung | Bilder (Größe) |
---|---|---|
Weihna97.pas | Weihnachten 1997, fallender Schnee, trabendes Rentier Beine.bmp(23 KB) Tisch.bmp(189 KB) Weiwald2.bmp(189 KB) |
1 (11 KB)
2 (11 KB) 3 (9 KB) |
Neuschli.pas | Weihnachten 1998, Vorbereitungsprogramm 1; Schlitte.bmp(79 KB) Schlitt2.bmp(79 KB) |
|
Weih98vo.pas | Weihnachten 1998, Vorbereitungsprogramm 2; Weiback.bmp(189 KB) Schlitte.bmp(79 KB) Schlitt2.bmp(79 KB) Ra98weih.bmp(373 KB) Ralin98w.bmp(307 KB) |
|
Weihna98.pas | Weihnachten 1998, Hauptprogramm; fallender Schnee,
fliegender Schlitten; Schlitt2.bmp(79 KB) I98weih.bmp(373 KB) Ralin98w.bmp(307 KB) |
|
Weihn99.pas | Weihnachten 1999, fallender Schnee, Sound-Ausgabe mit
Soundblaster-OPL3 Iweihn99.bmp(373 KB) |
Meine Programme Homepage |
Letzte Änderung: 18.07.2002 |
E-Mail: Stefan Ziegler |