From c5fcf7179a83ef65c86c6a4a390029149e518649 Mon Sep 17 00:00:00 2001
From: Franciszek Malinka <franciszek.malinka@gmail.com>
Date: Tue, 5 Oct 2021 21:49:54 +0200
Subject: Duzy commit ze smieciami

---
 semestr-4/ask/lista1/zad7.txt | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 semestr-4/ask/lista1/zad7.txt

(limited to 'semestr-4/ask/lista1/zad7.txt')

diff --git a/semestr-4/ask/lista1/zad7.txt b/semestr-4/ask/lista1/zad7.txt
new file mode 100644
index 0000000..1e9c4b3
--- /dev/null
+++ b/semestr-4/ask/lista1/zad7.txt
@@ -0,0 +1,21 @@
+        I := 0
+        goto ITest
+ILoop:  J := I
+        goto WTest
+WLoop:  t1 := 4 * J
+        Temp := arr[t1]
+        t2 := J - 1        
+        t3 := 4 * t2
+        arr[t1] := arr[t3]
+        arr[t3] := Temp
+        J := J - 1
+WTest:  if J <= 0 goto IPlus
+        t4 := 4 * J
+        t5 := arr[t4]
+        t6 := J - 1
+        t7 = 4 * t6
+        t8 := arr[t7]
+        if t5 >= t8 goto IPlus
+        goto WLoop 
+IPlus:  I := I + 1
+ITest:  if I < length goto ILoop
\ No newline at end of file
-- 
cgit v1.2.3