18 lines
313 B
Plaintext
18 lines
313 B
Plaintext
// Berechnet die Fl„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„che berechnen */
|
||
wert = pi() * r * r;
|
||
|
||
/* R<>ckgabe des Ergebnisses */
|
||
Texel.ReturnCellValue(datei,zelle,wert);
|
||
}
|