semestralka
[mirrors/Programs.git] / turbobasic / 1998 / HMOTNOST.BAS
CommitLineData
0f95cc4b
H
1cls\r
2screen 9\r
3screen 0\r
4color 0,15\r
5cls\r
6locate 2,2\r
7input "Jaka je hustota telesa (g/cm3) " ;hmotnost\r
8cls\r
9locate 2,2\r
10input "Jaky je objem telesa (cm3 - ml) " ;objem\r
11\r
12screen 9\r
13cls\r
14locate 20,20\r
15print "POCITAM!"\r
16locate 2,2\r
17print "TENTO PROGRAM NAPROGRMOVAL TOMAS MUDRUNKA."\r
18delay 2\r
19screen 0\r
20hustota=hmotnost*objem\r
21cls\r
22\r
23print "hustota....."hmotnost " g/cm3"\r
24print "objem......."objem " cm3"\r
25print "hmotnost.....? g"\r
6c1eebfd 26print "────────────────────────────────────────────────────"\r
0f95cc4b
H
27print "hmotnost = hustota . objem"\r
28print "hmotnost = "hmotnost" g . "objem " cm3"\r
29print "hmotnost = "hustota" g/cm3"\r
30print ""\r
31print "Hmotnost daneho telesa je "hustota" g/cm3."\r
32print ""\r
33print ""\r
34print ""\r
35print ""\r
36print ""\r
37print ""\r
38print ""\r
39print ""\r
40print "TENTO PROGRAM NAPSAL.... TOMAS MUDRUNKA"\r
41PRINT "SPOLECNOST.............. X-TOM"\r
42input "Mas uz tabulku opsanou " ;konec$\r
43\r
44\r
45end\1a
This page took 0.291661 seconds and 4 git commands to generate.