turbobasic/1998/HUSTOTA.BAS

   1 cls
   2 screen 9
   3 screen 0
   4 color 0,15
   5 cls
   6 locate 2,2
   7 input "Jaka je hmotnost telesa  (g) " ;hmotnost
   8 cls
   9 locate 2,2
  10 input "Jaky je objem telesa  (cm3 - ml) " ;objem
  11
  12 screen 9
  13 cls
  14 locate 20,20
  15 print "POCITAM!"
  16 locate 2,2
  17 print "TENTO PROGRAM NAPROGRMOVAL TOMAS MUDRUNKA."
  18 delay 2
  19 screen 0
  20 hustota=hmotnost/objem
  21 cls
  22
  23 print "hmotnost...."hmotnost " g"
  24 print "objem......."objem    " cm3"
  25 print "hustota.....? g/cm3"
  26 print "────────────────────────────────────────────────────"
  27 print "hustota = m:V"
  28 print "hustota = "hmotnost" g:"objem " cm3"
  29 print "hustota = "hustota" g/cm3"
  30 print ""
  31 print "Hustota daneho telesa je "hustota" g/cm3."
  32 print ""
  33 print ""
  34 print ""
  35 print ""
  36 print ""
  37 print ""
  38 print ""
  39 print ""
  40 print "TENTO PROGRAM NAPSAL.... TOMAS MUDRUNKA"
  41 PRINT "SPOLECNOST.............. X-TOM"
  42 input "Mas uz tabulku opsanou " ;konec$
  43
  44
  45 end\1a