X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;ds=sidebyside;f=sw%2Fsrc%2Fpascal%2FQUADRW.PS;fp=sw%2Fsrc%2Fpascal%2FQUADRW.PS;h=fb0ef6db4545c59d3747ebfe2a7ddd92e900675c;hb=81e70d488b71bf995c459ca3a02c025993460ffa;hp=0000000000000000000000000000000000000000;hpb=07ec0278333ed187ac242dedcff13c56cf1b0b91;p=pdp8.git diff --git a/sw/src/pascal/QUADRW.PS b/sw/src/pascal/QUADRW.PS new file mode 100644 index 0000000..fb0ef6d --- /dev/null +++ b/sw/src/pascal/QUADRW.PS @@ -0,0 +1,11 @@ +PROGRAM QUADRATWURZEL(OUTPUT); + + VAR X,Y: REAL; + +BEGIN X := 1.0; + WHILE X<=100.0 DO + BEGIN Y := SQRT(X); + WRITELN(X :10:2, Y); + X := X + 1.0 + END +END.