initial commit

tools/texel/skripte/42.tsc

@@ -0,0 +1,17 @@
+// Berechnet die Fl<46>che des Kreises mit dem Radius r=argv[2]
+// tm 97-11-20
+
+proc main(...)
+{
+	if (argc<3) exit(1);
+
+	datei = argv[0];
+	zelle = argv[1];
+	r     = argv[2];
+	
+	/* Fl<46>che berechnen */
+	wert = pi() * r * r;
+
+	/* R<>ckgabe des Ergebnisses */
+	Texel.ReturnCellValue(datei,zelle,wert);
+}