X-Git-Url: http://git.harvie.cz/?a=blobdiff_plain;f=turbobasic%2F1998%2FHUSTOTA.BAS;fp=turbobasic%2F1998%2FHUSTOTA.BAS;h=c570779957fc6db7aa09f0f9f105295d58241e0c;hb=8986c5cdb1ca4cb8b60d62cdf942eb84e8fe339b;hp=0000000000000000000000000000000000000000;hpb=ecef903d8113af5d734957400a4e90914bbe816e;p=mirrors%2FPrograms.git

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