-
Notifications
You must be signed in to change notification settings - Fork 0
/
27-Girilen Sayı Adedince Mükemmel Sayı Veren Program.fprg
40 lines (40 loc) · 2.17 KB
/
27-Girilen Sayı Adedince Mükemmel Sayı Veren Program.fprg
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
29
30
31
32
33
34
35
36
37
38
39
40
<?xml version="1.0"?>
<flowgorithm fileversion="3.0">
<attributes>
<attribute name="name" value=""/>
<attribute name="authors" value="husey"/>
<attribute name="about" value=""/>
<attribute name="saved" value="2023-08-25 03:36:45 ÖS"/>
<attribute name="created" value="aHVzZXk7SMWhU0VZSU47MjAyMy0wOC0yNTswMzoyMTo1MCDDllM7Mjc5Mg=="/>
<attribute name="edited" value="aHVzZXk7SMWhU0VZSU47MjAyMy0wOC0yNTswMzozNjo0NSDDllM7MTsyOTEw"/>
</attributes>
<function name="Main" type="None" variable="">
<parameters/>
<body>
<declare name="istenenMukemmelSayi, bulunanMukemmelSayi, kontrolMukemmelSayi, carpanToplam, sayac" type="Integer" array="False" size=""/>
<assign variable="kontrolMukemmelSayi" expression="6"/>
<assign variable="bulunanMukemmelSayi" expression="0"/>
<output expression=""Lütfen bulunmasını istediğiniz mükemmel sayı adedini giriniz."" newline="True"/>
<input variable="istenenMukemmelSayi"/>
<while expression="istenenMukemmelSayi > bulunanMukemmelSayi">
<assign variable="carpanToplam" expression="0"/>
<for variable="sayac" start="1" end="kontrolMukemmelSayi / 2" direction="inc" step="1">
<if expression="kontrolMukemmelSayi % sayac == 0">
<then>
<assign variable="carpanToplam" expression="carpanToplam + sayac"/>
</then>
<else/>
</if>
</for>
<if expression="kontrolMukemmelSayi == carpanToplam">
<then>
<assign variable="bulunanMukemmelSayi" expression="bulunanMukemmelSayi + 1"/>
<output expression=""Mükemmel sayılarınız: " & kontrolMukemmelSayi" newline="True"/>
</then>
<else/>
</if>
<assign variable="kontrolMukemmelSayi" expression="kontrolMukemmelSayi + 1"/>
</while>
</body>
</function>
</flowgorithm>