Borland TurboBASIC & TurboPASCAL stuff from 1998 when i started with programming...

[mirrors/Programs.git] / turbobasic / HMOTNOST.BAS

diff --git a/turbobasic/HMOTNOST.BAS b/turbobasic/HMOTNOST.BAS
new file mode 100755 (executable)
index 0000000..646472b
--- /dev/null
+++ b/turbobasic/HMOTNOST.BAS
@@ -0,0 +1,45 @@
+cls\r
+screen 9\r
+screen 0\r
+color 0,15\r
+cls\r
+locate 2,2\r
+input "Jaka je hustota telesa  (g/cm3) " ;hmotnost\r
+cls\r
+locate 2,2\r
+input "Jaky je objem telesa  (cm3 - ml) " ;objem\r
+\r
+screen 9\r
+cls\r
+locate 20,20\r
+print "POCITAM!"\r
+locate 2,2\r
+print "TENTO PROGRAM NAPROGRMOVAL TOMAS MUDRUNKA."\r
+delay 2\r
+screen 0\r
+hustota=hmotnost*objem\r
+cls\r
+\r
+print "hustota....."hmotnost " g/cm3"\r
+print "objem......."objem    " cm3"\r
+print "hmotnost.....? g"\r
+print "ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ"\r
+print "hmotnost = hustota . objem"\r
+print "hmotnost = "hmotnost" g . "objem " cm3"\r
+print "hmotnost = "hustota" g/cm3"\r
+print ""\r
+print "Hmotnost daneho telesa je "hustota" g/cm3."\r
+print ""\r
+print ""\r
+print ""\r
+print ""\r
+print ""\r
+print ""\r
+print ""\r
+print ""\r
+print "TENTO PROGRAM NAPSAL.... TOMAS MUDRUNKA"\r
+PRINT "SPOLECNOST.............. X-TOM"\r
+input "Mas uz tabulku opsanou " ;konec$\r
+\r
+\r
+end\1a
\ No newline at end of file