001
23.11.2019, 12:07 Uhr
kaiOr
|
Hallo,
das ist glaube ein Beispiel aus dem Turbo-Pascal-Programm TMASK.
| Zitat: | 1. Gegenstand des Programmes
...K Maskenentwurf
...K Pascal,MT+
...K Pascal,TURBO
...K Pascal,880s
TMASK ist ein Quelltextgenerator, der aus Bildschirmmaskenentwür-
fen PASCAL - Quelltexte generiert. TMASK ist speziell für TURBO -
PASCAL entwickelt worden; die generierten Quelltexte können jedoch
bei entsprechender Einbindung in Quelltexte auch durch andere
PASCAL - Compiler (z.B. PASCAL MT+) verarbeitet werden. Für diese
Compiler sind die aufgerufenen Proceduren von MASKEN.BOX selbst zu
definieren bzw.zu ändern.
TMASK zeichnet sich aus durch:
- Verarbeitung beliebiger Bildschirmmaskenentwürfe in Text-
format als Basis für die Generierung
- Parametergesteuerte Generierung von REAL-, STRING-, INTEGER-
Ein- und Ausgaben
- FULL - SCREEN - Editor zum Entwurf und Modifizierung von
Bildschirmmasken bei Anlehnung an die Wordstar - Steuer-
zeichen
- Nutzerdefinierte Reihenfolge der Ein- und Ausgaben unab-
hängig von ihrer Anordnung auf dem Bildschirm
- bei ausschlieszlicher Nutzung der in MASKGEN.BOX definierten
Ein- und Ausgabeproceduren ist bei den generierten Program-
men eine beliebige Bewegung des Kursors über die Bild-
schirmseite möglich.
In Verbindung mit dem TURBO-PASCAL-Editor können die generierten
Quelltexte vom Programmierer einfach um Prüfungen, Such- und Spei-
cheroperationen u.ä. ergänzt werden.
Die strukturierte Programmierung wird insofern unterstützt, als
für jede_Bildschirmseite_eine_in_sich_geschlossene_Procedure er-
zeugt wird. |
arith.bsp:
| Quellcode: | {$I DECL.TLD}
{$I ARITH.TLD}
var coeff:CoeffType_TL;
x,y :real;
i,n :byte;
j:integer;
begin
coeff[0]:=4;
coeff[1]:=3;
coeff[2]:=2;
coeff[3]:=1;
n:=3;
j:=3;
write('Wert von x ? ');
readln(x);
y:=eval_polynom(coeff,x,n);
writeln('F(x) bei x =',x:6:2,' ist gleich ',y:8:2);
writeln;
y:=int_power(x,j);
writeln('x hoch 3 = ',y:6:2);
writeln;
y:=power(x,pi);
writeln('x hoch pi = ',y:10:7);
writeln;
writeln('Polynom-Koeffizienten :');
for i:=0 to n do writeln('Koeff[',i,'] = ',coeff[i]:5:2);
polynom_derivation(coeff,n,1);
writeln;
writeln('Erste Ableitung :');
for i:=0 to n do writeln('Koeff[',i,']'' = ',coeff[i]:5:2);
end. STRINGS TLD |
Habe das allerdings nur in zerwürfelter Form, könnte auch Bestandteil eines anderen Programmes sein.
MfG
Dieser Beitrag wurde am 23.11.2019 um 12:08 Uhr von kaiOr editiert. |
