Moved old turbobasic files to directory 1998 and added new directory for new files

[mirrors/Programs.git] / turbobasic / 1998 / HUSTOTA.BAS

diff --git a/turbobasic/1998/HUSTOTA.BAS b/turbobasic/1998/HUSTOTA.BAS
new file mode 100644 (file)
index 0000000..c570779
--- /dev/null
+++ b/turbobasic/1998/HUSTOTA.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 hmotnost telesa  (g) " ;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 "hmotnost...."hmotnost " g"\r
+print "objem......."objem    " cm3"\r
+print "hustota.....? g/cm3"\r
+print "────────────────────────────────────────────────────"\r
+print "hustota = m:V"\r
+print "hustota = "hmotnost" g:"objem " cm3"\r
+print "hustota = "hustota" g/cm3"\r
+print ""\r
+print "Hustota 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