diff options
| author | Abigail <abigail@abigail.be> | 2021-04-16 01:12:58 +0200 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2021-04-16 01:12:58 +0200 |
| commit | 6d77ad28625fb12bad358b00aa4746c9df714392 (patch) | |
| tree | 43847517f79143369fe795c49dd1f8be143fb2cc | |
| parent | 3f31447acbe9b9a929319d1b691610dcbb2bc07b (diff) | |
| download | perlweeklychallenge-club-6d77ad28625fb12bad358b00aa4746c9df714392.tar.gz perlweeklychallenge-club-6d77ad28625fb12bad358b00aa4746c9df714392.tar.bz2 perlweeklychallenge-club-6d77ad28625fb12bad358b00aa4746c9df714392.zip | |
Pascal solution for week 108, part 1
| -rw-r--r-- | challenge-108/abigail/README.md | 2 | ||||
| -rw-r--r-- | challenge-108/abigail/pascal/ch-1.p | 19 |
2 files changed, 21 insertions, 0 deletions
diff --git a/challenge-108/abigail/README.md b/challenge-108/abigail/README.md index 1a326569ae..b91c6ce23b 100644 --- a/challenge-108/abigail/README.md +++ b/challenge-108/abigail/README.md @@ -8,6 +8,7 @@ location in the memory. * [C](c/ch-1.c) * [Fortran](fortran/ch-1.f90) * [Go](go/ch-1.go) +* [Pascal](pascal/ch-1.p) * [Perl](perl/ch-1.pl) * [Python](python/ch-1.py) @@ -55,6 +56,7 @@ more informations. * [Python](python/ch-2.py) * [R](r/ch-2.r) * [Rexx](rexx/ch-2.rexx) +* [Ruby](ruby/ch-2.rb) * [Scheme](scheme/ch-2.scm) * [sed](sed/ch-2.sed) * [SQL](sql/ch-2.sql) diff --git a/challenge-108/abigail/pascal/ch-1.p b/challenge-108/abigail/pascal/ch-1.p new file mode 100644 index 0000000000..918503a432 --- /dev/null +++ b/challenge-108/abigail/pascal/ch-1.p @@ -0,0 +1,19 @@ +Program XXX; + +(* *) +(* See ../README.md *) +(* *) + +(* *) +(* Run as: fpc -och-1.out ch-1.p; ./ch-1.out *) +(* *) + +var i: Integer; + p: ^Integer; + w: ^Word; + +begin + p := @i; + w := addr (p); + writeln (w^); +end. |