-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathalgorithm_nilai_tempat_bilangan.fprg
More file actions
28 lines (28 loc) · 1.61 KB
/
algorithm_nilai_tempat_bilangan.fprg
File metadata and controls
28 lines (28 loc) · 1.61 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
<?xml version="1.0"?>
<flowgorithm fileversion="3.0">
<attributes>
<attribute name="name" value=""/>
<attribute name="authors" value="HP"/>
<attribute name="about" value=""/>
<attribute name="saved" value="2023-08-09 03:02:51 PM"/>
<attribute name="created" value="SFA7U0NJRUhBU0g7MjAyMy0wOC0wOTswMjoyNzoyMSBQTTsyMDE4"/>
<attribute name="edited" value="SFA7U0NJRUhBU0g7MjAyMy0wOC0wOTswMzowMjo1MSBQTTsxOzIxMjM="/>
</attributes>
<function name="Main" type="None" variable="">
<parameters/>
<body>
<declare name="angkainput, ribuan, ratusan, puluhan, satuan" type="Integer" array="False" size=""/>
<output expression=""Masukkan angka yang lebih besar dari 1000 dan tidak lebih dari 10000: "" newline="True"/>
<input variable="angkainput"/>
<assign variable="ribuan" expression="angkainput / 1000"/>
<assign variable="ratusan" expression="(angkainput mod 1000) / 100"/>
<assign variable="puluhan" expression="ratusan mod 10"/>
<assign variable="satuan" expression="puluhan mod 10"/>
<output expression=""Jadi tempat bilangan yang tepat adalah sebagai berikut: "" newline="True"/>
<output expression=""Ribuan: "&ribuan" newline="True"/>
<output expression=""Ratusan: "&ratusan" newline="True"/>
<output expression=""Puluhan: "&puluhan" newline="True"/>
<output expression=""Satuan: "&satuan" newline="True"/>
</body>
</function>
</flowgorithm>