Removed redundant, 3RD party or incompatible programs from main directory
[mirrors/Programs.git] / turbobasic / HMOTNOST.BAS
1 cls
2 screen 9
3 screen 0
4 color 0,15
5 cls
6 locate 2,2
7 input "Jaka je hustota telesa (g/cm3) " ;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 "hustota....."hmotnost " g/cm3"
24 print "objem......."objem " cm3"
25 print "hmotnost.....? g"
26 print "────────────────────────────────────────────────────"
27 print "hmotnost = hustota . objem"
28 print "hmotnost = "hmotnost" g . "objem " cm3"
29 print "hmotnost = "hustota" g/cm3"
30 print ""
31 print "Hmotnost 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
This page took 0.275487 seconds and 4 git commands to generate.