restructure and add ipi texs

2019-11-06 18:24:04 +01:00
parent e21da561fc
commit 8fd8d2a485
155 changed files with 129 additions and 0 deletions
@@ -0,0 +1,37 @@
+#include "fcpp.hh"
+
+struct Complex {
+  float real;
+  float imag;
+} ;
+
+Complex erzeuge_complex (float re, float im)
+{
+  Complex t;
+  t.real = re; t.imag = im;
+  return t;
+}
+float real (Complex q) {return q.real;}
+float imag (Complex q) {return q.imag;}
+
+Complex add_complex (Complex p, Complex q)
+{
+  return erzeuge_complex(real(p) + real(q),
+			 imag(p) + imag(q));
+}
+
+// etc
+
+void drucke_complex (Complex p)
+{
+  print(real(p),"+i*",imag(p),0);
+}
+
+int main ()
+{
+  Complex p = erzeuge_complex(3.0,4.0);
+  Complex q = erzeuge_complex(5.0,3.0);
+  drucke_complex(p);
+  drucke_complex(q);
+  drucke_complex(add_complex(p,q));
+}